For eksempel oppretter du en frukt Purchase tabellen i Excel, og nå må du VLOOKUP fruktene fra en annen arbeidsbok og returnere tilsvarende priser som under skjermbilder som vises. Her vil jeg lede deg løse det med VLOOKKUP funksjon i Excel.
1. Åpne begge arbeidsbøker som du vil FINN.RAD verdier fra og tilbake verdier.
2. Velg en tom celle du vil returnere prisen, skriver formelen = FINN.RAD (B2, [Price.xlsx] Ark1 $ A $ 1: $ B $ 24,2, USANN) inn i det, og deretter drar du fyllhåndtaket for å bruke denne formelen til området som du trenger
Notater.
(1) i formelen ovenfor, er B2 frukt som du vil se opp fra en annen arbeidsbok, indikerer Price.xlsx filnavnet arbeidsbok du vil se opp fra, betyr Ark1 arket navnet du vil se opp fra, og A $ 1: $ B $ 24 er området som du vil se opp fra. Du kan endre dem som du trenger
(2) Når du har lukket arbeidsbok du så opp fra, formelen vil automatisk oppdatere til = FINN.RAD (B2,. 'W: \\ test \\ [Price.xlsx] Ark1' ! $ A $ 1: $ B $ 24,2, USANN), W: \\ test \\ er besparelsen banen arbeidsbok som du har sett opp fra
så langt er alle priser har returnert riktig som venstre skjermbilde. vist. Og disse prisene vil oppdateres automatisk hvis opprinnelige arbeidsboken du så opp mot endringer.
FINN.RAD data og returnere verdier fra en annen lukket arbeidsbok med VBA
Det kan være et kull forvirret å konfigurere sparing banen, filnavn, og regnearket i FINN.RAD-funksjonen. Denne metoden vil innføre en VBA å løse det enkelt.
1. Trykk på ALT + F11 for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk på Insert > Modul, og deretter lime inn under VBA-kode i åpningen modulvinduet
VBA: FINN.RAD data og returnere verdier fra en annen lukket arbeidsbok
Private Function GetColumn (Num As Integer) As StringIf Num < = 26 ThenGetColumn. = Chr (Num + 64) ElseGetColumn = Chr ((Num - 1) \\ 26 + 64) & Chr ((Num - 1) Mod 26 + 65) End IfEnd FunctionSub FindValue () Dim xAddress Som StringDim xString Som StringDim xFileName Som VariantDim xUserRange Som RangeDim xRG Som RangeDim xFCell Som RangeDim xSourceSh Som WorksheetDim xSourceWb Som WorkbookOn Error Resume NextxAddress = Application.ActiveWindow .RangeSelection.AddressSet xUserRange = Application.InputBox ( "Lookup verdier:", "Kutools for Excel", xAddress, Type: = 8) Hvis Err < > 0 Then Exit undergruppe xUserRange = Application.Intersect (xUserRange, Application.ActiveSheet.UsedRange) xFileName = Application.GetOpenFilename ( "Excel-filer (* .xlsx), * .xlsx", en "Velg en arbeidsbok") Hvis xFileName = False deretter Avslutt SubApplication.ScreenUpdating = FalseSet xSourceWb = Workbooks.Open (xFileName) Set xSourceSh = xSourceWb.Worksheets.Item (1) xString = "= '" & xSourceWb.Path & Application.PathSeparator & _ "[" &Amp; xSourceWb.Name & "]" &Amp; xSourceSh.Name & " '! $" For hver xRG I xUserRangeSet xFCell = xSourceSh.Cells.Find (xRg.Value,, xlValues, xlWhole,,, False) Hvis ikke (xFCell Er Nothing) ThenxRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" &Amp; xFCell.RowEnd IfNextxSourceWb.Close FalseApplication.ScreenUpdating = TrueEnd Sub
Merk: Dette VBA vil returnere verdier i en kolonne som er 2 kolonner bak valgte kolonnen. For eksempel jeg velge kolonne B når du søker denne VBA, vil verdiene tilbake i kolonne D. Hvis du trenger å endre målet kolonnen, må du finne ut koden xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" &Amp; xFCell.Row, og erstatte to til annet nummer som du trenger.
3. Trykk på F5-tasten eller klikk på Kjør-knappen for å kjøre denne VBA.
4. I åpnings dialogboksen kan du angi dataområdet som du vil se opp, og klikk på OK-knappen.
5. Nå kan du velge arbeidsboken der du vil slå opp verdier i åpnings Velg en dialog arbeidsbok, og klikk på knappen Åpne.
Nå alle valgte verdier er så opp i den angitte lukket arbeidsbok , og tilsvarende verdier returneres ved angitt kolonne. Se skjermbilde:
Finn /søke verdier i andre arbeidsbøker med Kutools for Excel
Hvis du har Kutools for Excel er installert, dets Avansert søk og erstatt verktøyet kan hjelpe oss til å finne eller søke verdier i flere arbeidsbøker unntatt nåværende lett. Gjør følgende:
Kutools for Excel - Kombinerer Mer enn 120 avanserte funksjoner og verktøy for Microsoft Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
1. Sjekk arbeidsbøker som du vil søke verdier i er åpne eller ikke. Hvis ikke, må du åpne den.
1. Klikk på Kutools > Navigasjon for å aktivere navigasjonsruten ved å klikke på Avansert søk og erstatt-knappen helt til venstre i navigasjonsruten til å skifte til Advance Finn og erstatt visning, og klikk på fanen Søk.
2. Nå kan du konfigurere finne kriterier som følger:
(1) I Søk etter-boksen skriver du inn verdien du vil søke etter,
(2) Velg Alle arbeidsbøker fra Innen nedtrekkslisten; .
(3) i arbeidsbøker liste, bare sjekke arbeidsbøker som du vil søke i,
(4) Klikk på Finn alle knappen
Notater:
(1) Hvis du ikke kan vise avanserte søkealternativene, klikker du på Utvid-knappen som skjermbildet under vises:
(2) For store og små bokstaver søker, vennligst sjekk Match case alternativet.
(3) Hvis nøyaktig søker ved å matche hele cellen innhold er nødvendig, vennligst sjekk Match hele Cell alternativ.
Alle som søker resultatene er liste nederst i navigasjonsruten som skjermbildet under vises. Klikk på en søking resultat, vil markøren hopper til å korrespondere celle umiddelbart.
Gratis Last ned Kutools for Excel Nå