Vlookup並將Excel功能與VBA匹配？

Question

=VLOOKUP($I13,Data!$B$13:$XFD$1048576,MATCH(M$10,Data!$B$11:$XFD$11,0),FALSE)

這是我要轉換為VBA以提高效率的功能。

目的是將頁面上的日期鏈接到另一頁（ I13 ），然后將頁面的標題與另一頁匹配（ M10 ），以便當我輸入新的頁眉時，它將自動從充滿數據的工作表中提取數據。 那就是我上面的函數是怎么轉換成VBA ？

謝謝

Answer 1

我正在從事此職能，但沒有成功，

1   2   3   4           1   2   3   4

Yash 1232551000 2000 Yash 1232551000 2000 ABC 234456456 5000 8000 ABC 2344565000 8000 XYZ 567998998 12000 18000 XYZ 567998998 12000 18000 XYZ 567998998 12000 18000 Yash 1232551000 2000 ABC 2344564568000 8000 Yash 123255255 2000 XYZ 567 998 12000 18000 XYZ 567 998 12000 18000

Sub yash()
r = 2
Do While Cells(r, 7) <> ""
Cells(r, 8) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 8), Range("A1:E1"), 0), 0)
Cells(r, 9) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 9), Range("A1:E1"), 0), 0)
Cells(r, 10) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 10), Range("A1:E1"), 0), 0)
Cells(r, 11) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 11), Range("A1:E1"), 0), 0)
r = r + 1
Loop
End Sub

為了演示它，請復制所有內容並粘貼到此注釋中第2行的cell（“ A1”）中。

Answer 2

在此處輸入圖片說明

Sub yash()
r = 2
Do While Cells(r, 7) <> ""
Cells(r, 8) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 8), Range("A1:E1"), 0), 0)
Cells(r, 9) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 9), Range("A1:E1"), 0), 0)
Cells(r, 10) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 10), Range("A1:E1"), 0), 0)
Cells(r, 11) = WorksheetFunction.VLookup(Cells(r, 7), Range("A2:E4"), WorksheetFunction.Match(Cells(1, 11), Range("A1:E1"), 0), 0)
r = r + 1
Loop
End Sub

為了演示它，請復制所有內容並粘貼到此注釋中第2行的cell（“ A1”）中。