Jak vyhledat / najít hodnoty v jiném sešitu?
Tento článek hovoří o tom, jak vyhledat hodnoty a vrátit data z jiného sešitu, a jak najít / vyhledat hodnoty z jiného sešitu. Zde podrobně představím tři řešení.
- Vlookup data a návratové hodnoty z jiného sešitu v aplikaci Excel
- Data Vlookup a návratové hodnoty z jiného uzavřeného sešitu s VBA
Vlookup data a návratové hodnoty z jiného sešitu v aplikaci Excel
Například vytváříte tabulku Fruit Purchase v aplikaci Excel a nyní je třeba si prohlédnout plody z jiného sešitu a vrátit odpovídající ceny, jak je uvedeno níže. Zde vás provedu řešením pomocí funkce VLOOKKUP v aplikaci Excel.
1. Otevřete oba sešity, ze kterých budete vlookup hodnoty hledat, a vracet je.
2. Vyberte prázdnou buňku, za kterou vrátíte cenu, zadejte vzorec = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) do něj a poté přetáhněte jeho Fill Handle pro použití tohoto vzorce na požadovaný rozsah.
Poznámky:
(1) Ve výše uvedeném vzorci je B2 ovoce, které vyhledáte v jiném sešitu, Price.xlsx označuje název souboru sešitu, ve kterém vyhledáte, List1 znamená název listu, ze kterého vyhledáte, a A $ 1 : $ B $ 24 je rozsah, ze kterého budete hledat. Můžete je změnit, jak potřebujete.
(2) Po zavření sešitu, ze kterého jste vyhledali, se vzorec automaticky aktualizuje na = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] list1'! $ A $ 1: $ B $ 24,2, FALSE), W: \ test \ je cesta k uložení sešitu, ze kterého jste vyhledali.
Všechny ceny se doposud vrátily správně, jak je ukázáno vlevo. A tyto ceny se automaticky aktualizují, pokud jste původní sešit vyhledali ze změn.
 |
Vzorec je příliš komplikovaný na to, abyste si ho pamatovali? Uložte vzorec jako položku automatického textu pro opakované použití jediným kliknutím v budoucnu! Přečtěte si více ... Zkušební verze zdarma |
Data Vlookup a návratové hodnoty z jiného uzavřeného sešitu s VBA
Může to být vrh zmatený pro konfiguraci cesty uložení, názvu souboru a listu ve funkci VLOOKUP. Tato metoda zavede VBA, aby se to snadno vyřešilo.
1. zmáčkni Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.
2. Klepněte na tlačítko Vložit > Modula poté vložte pod kód VBA do okna otevíracího modulu.
VBA: Vlookup data a návratové hodnoty z jiného uzavřeného sešitu
Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.
4. V úvodním dialogovém okně zadejte rozsah dat, který vyhledáte, a klikněte na OK .
5. Nyní prosím vyberte sešit, kde budete hledat hodnoty v úvodním dialogovém okně Vyberte sešit, a klikněte na Otevřená .
Nyní jsou všechny vybrané hodnoty vyhledány v zadaném uzavřeném sešitu a odpovídající hodnoty jsou vráceny v zadaném sloupci. Viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
