Mar shampla tá tábla Ceannaigh Torthaí á chruthú agat in Excel, agus anois ní mór duit na torthaí ó leabhar oibre eile a bhreathnú agus praghsanna comhfhreagracha a thabhairt ar ais mar atá thíos na scáileáin scáileáin a thaispeántar. Anseo treoróidh mé duit é a réiteach le feidhm VLOOKKUP in Excel.

1. Oscail an dá leabhar oibre a bhfeicfidh tú luachanna astu agus luachanna ar ais iontu.

2. Roghnaigh cill bhán a thabharfaidh tú ar ais praghas, clóscríobh an fhoirmle = VLOOKUP (B2, [Price.xlsx] Bileog1! $ A $ 1: $ B $ 24,2, BRÉAGACH) isteach ann, agus ansin tarraing a Láimhseáil Líon isteach chun an fhoirmle seo a chur i bhfeidhm ar an raon de réir mar is gá duit.

B’fhéidir gur bruscar mearbhall é chun an cosán sábhála, ainm an chomhaid agus an bhileog oibre a chumrú i bhfeidhm VLOOKUP. Tabharfaidh an modh seo VBA isteach chun é a réiteach go héasca.

1. Brúigh an Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Cliceáil ar an Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach i bhfuinneog an mhodúil tosaigh.

VBA: Sonraí Vlookup agus luachanna tuairisceáin ó leabhar oibre dúnta eile

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 Sub

nótaí: Fillfidh an VBA seo luachanna i gcolún atá 2 cholún taobh thiar de cholún roghnaithe. Mar shampla, roghnaigh mé colún B agus an VBA seo á chur i bhfeidhm, fillfidh luachanna ar ais i gColún D. Más gá duit an colún ceann scríbe a athrú, faigh amach an cód le do thoil xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row , agus a chur ina ionad 2 go huimhir eile de réir mar is gá duit.

3. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith.

4. Sa bhosca dialóige tosaigh, sonraigh le do thoil an raon sonraí a bhreathnóidh tú, agus cliceáil ar an OK cnaipe.

5. Anois roghnaigh an leabhar oibre le do thoil áit a bhféachfaidh tú ar luachanna sa bhosca Roghnaigh dialóg Roghnaigh Leabhar Oibre, agus cliceáil ar an Oscail cnaipe.

Anois breathnaítear ar na luachanna roghnaithe go léir sa leabhar oibre dúnta sonraithe, agus tugtar luachanna comhfhreagracha ar ais ag colún sonraithe. Féach an pictiúr: