Note: The other languages of the website are Google-translated. Back to English

Kako iskanje vrednosti vrne več ustreznih vrednosti v Excelu?

Ta vadnica govori o iskanju vrednosti, ki vrne več ustreznih vrednosti v Excelu, kot je prikazano na spodnjih posnetkih zaslona:

doc-iskanje-vrednost-1

Iskalna vrednost vrne več ustreznih vrednosti s formulo matrike

Iskalna vrednost s filtrom vrne več ustreznih vrednosti

Iskalna vrednost vrne več ustreznih vrednosti z definirano funkcijo

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.

puščica modri desni mehurček Iskalna vrednost vrne več ustreznih vrednosti s formulo matrike

Tukaj je formula dolgega polja, ki lahko poda roko pri iskanju vrednosti in vrne več ustreznih vrednosti.

1. V prazno celico vnesite vrednost, ki jo želite poiskati. Oglejte si posnetek zaslona:

doc-iskanje-vrednost-2

2. V sosednjo celico vnesite to formulo =IF(ISERROR(INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$D$4,ROW($A$1:$A$7)),ROW(1:1)),2)),"",
INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$D$4,ROW($A$1:$A$7)),ROW(1:1)),2))
vanj in pritisnite Shift + Ctrl + Enter tipke, nato povlecite Samodejno izpolnite da izpolnite celice, dokler ne izide prva prazna celica. Oglejte si posnetek zaslona:

doc-iskanje-vrednost-3

Opomba: V zgornji formuli $ A $ 1: $ B $ 7 označuje podatke o obsegu, $ A $ 1: $ A $ 7 pomeni obseg stolpcev, v katerem iščete določeno vrednost, $ D $ 4 označuje celico, ki jo vnesete vrednost v korakih 1, 2 pomeni iskanje ustreznih vrednosti v drugem stolpcu.


puščica modri desni mehurček Iskalna vrednost s filtrom vrne več ustreznih vrednosti

V Excelu lahko za rešitev te težave uporabite tudi funkcijo Filtriranje.

1. Izberite obseg stolpcev, za katerega želite poiskati vrednost, in kliknite datum > filter. Oglejte si posnetek zaslona:

doc-iskanje-vrednost-4

2. Nato kliknite puščični gumb v prvi celici izbranega obsega in samo na spustnem seznamu označite vrednost, ki jo želite poiskati. Oglejte si posnetek zaslona:

doc-iskanje-vrednost-5

3. klik OK, zdaj vidite samo vrednost iskanja in njene ustrezne vrednosti so filtrirane.

doc-iskanje-vrednost-6


puščica modri desni mehurček Iskalna vrednost vrne več ustreznih vrednosti z definirano funkcijo

Če vas zanima definirana funkcija, lahko težavo rešite tudi z določeno funkcijo.

1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Moduli > Vstavi vstaviti a Moduli okno in v okno kopirajte spodnji VBA.

VBA: Iskalna vrednost vrne več ustreznih vrednosti.

Function MyVlookup(pWorkRng As Range, pRng As Range, pColumnIndex As Integer, Optional pType As String = "v")
'Updateby20140827
Dim xRow As Single
Dim xCol As Single
Dim arr() As Variant
ReDim arr(0)
For i = 1 To pRng.Rows.Count
    If pWorkRng = pRng.Cells(i, 1) Then
        arr(UBound(arr)) = pRng.Cells(i, pColumnIndex)
        ReDim Preserve arr(UBound(arr) + 1)
    End If
Next
If pType = "h" Then
    xCol = Range(Application.Caller.Address).Columns.Count
    For i = UBound(arr) To xCol
        arr(UBound(arr)) = ""
        ReDim Preserve arr(UBound(arr) + 1)
    Next
    ReDim Preserve arr(UBound(arr) - 1)
    MyVlookup = arr
Else
xRow = Range(Application.Caller.Address).Rows.Count
For i = UBound(arr) To xRow
    arr(UBound(arr)) = ""
    ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = Application.WorksheetFunction.Transpose(arr)
End If
End Function

3. Zaprite okno in vnesite to formulo v celico = MyVlookup (A10, $ A $ 2: $ B $ 7,2) (A10 označuje vrednost iskanja, $ A $ 2: $ B $ 7 označuje obseg podatkov, 2 označuje številko indeksa stolpca). In pritisnite Shift + Ctrl + Enter tipke. Nato povlecite ročico za polnjenje navzdol po celicah in postavite kazalko v Formula Barin pritisnite Shift + Ctrl + Enter še enkrat.

Nasvet: Če želite vrniti vrednosti v vodoravnih celicah, lahko vnesete to formulo = MyVlookup (A10, $ A $ 2: $ B $ 7, 2, "h").


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
IF($A$1:$A$7=$D$4 Ta logična formula vedno izpiše "FALSE" ali 0, zakaj je torej tako, ali sem kaj zamudil?

Pojasnite prosim

Steve
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL