跨多个工作表的 Vlookup

Question

这背后的想法是在 sheet11-13 到 sheet1 的 G:AI 列上使用 vba vlookup。标题在所有工作表的第 3 行结束。

我已经编写了如下代码。代码停在ws1.Cells(r, c).Value = Application.WorksheetFunction.VLookup(ws1.Cells(r, 1).Value, ws2.Range("A1:AI500"), colnum, False) 处，显示子集超出范围，有时甚至

运行时错误“1004”：无法获取 WorksheetFunction 类的 VLookup 属性。

请对前进的道路提出建议。

我想发送文件以获得更好的说明，但似乎找不到附加功能。谢谢 ！

Sub green_update()


Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet

Set wb = ThisWorkbook
Set ws1 = wb.Sheets("Sheet1")
Set ws2 = wb.Sheets("Sheet13")

Dim bil As String
Dim lastrow As Long
Dim for_col As Long, i As Long, r As Long, c As Long, colnum As Long
r = 4: c = 7: colnum = 7

'mysheets = "sheet11:sheet12:sheet13"
'i would like to allow vlookup to search through all sheet 11-13

For for_col = 1 To ws2.Cells("4", Columns.Count).End(xlToLeft).column
lastrow = ws2.Cells(Rows.Count, "A").End(xlUp).row

    For i = 1 To lastrow - 3

    ws1.Cells(r, c).Value = Application.WorksheetFunction.VLookup(ws1.Cells(r, 1).Value, ws2.Range("A1:AI500"), colnum, False)
    r = r + 1
    Next

 r = 4
 colnum = colnum + 1
 c = c + 1

Next

End Sub

Answer 1

因为你已经完全改变了你的要求。我发布另一个答案来说明清楚。 您的请求仍不完全清楚，因此某些输入可能会引用错误的目的地，但您可以轻松更改这些输入。 如果您有任何不明白的地方，请随时再次提问。

Option Explicit
Sub green_update()

 Application.ScreenUpdating = False

 Dim zaman As Double
 zaman = Timer
Dim wb As Workbook, ws1 As Worksheet, wsNames as Worksheet

Set wb = ThisWorkbook
Set ws1 = wb.Sheets("Sheet1")

Dim colNo As Long, OthARowNo As Long, sh1ARowNo As Long
Dim for_col As Long, i As Long, r As Long, c As Long, colnum As Long

r = 4: c = 7: colnum = 7

For Each wsNames In Sheets(Array("sheet11", "sheet12", "sheet13"))
    colNo = wsNames.Cells("4", Columns.Count).End(xlToLeft).column
    'Column numbers are 35 but you are working between G:AI which is 29 columns!

    OthARowNo = wsNames.Cells(Rows.Count, "A").End(xlUp).row
    sh1ARowNo = ws1.Cells(Rows.Count, "A").End(xlUp).row

    For for_col = 7 To colNo 'colNo Is 35 Green columns start at 7th column, totally 29 loop, till 35th one.
        For i = 1 To sh1ARowNo   'This should run until sh1's row number
            ws1.Cells(r, c).Value = Application.VLookup(ws1.Cells(r, 1).Value, wsNames.Range("A1:AI" & OthARowNo), colnum, False)
            If IsError(ws1.Cells(r, c).Value) Then
                ws1.Cells(r, c).Value = ""
            End If
            r = r + 1
        Next i
        r = 4
        colnum = colnum + 1
        c = c + 1
    Next for_col
    colnum = 7
    c = c + 6 'There are 6 columns between AI:AP and BR:BY
Next wsNames

 Application.ScreenUpdating = True

 MsgBox Format(Timer - zaman, "00.00") & "secs"
End Sub

Answer 2

我在代码中解释了我的答案，但总结你的问题：

1-您没有定义变量，尤其是工作表。永远不要假设您的工作表并始终定义和设置对工作簿和工作表的引用

2- 您将 For loops 限制为 A 列的行号和第 3 行的列号，但如果它们为空或与您的查找轮次不兼容怎么办？然后你可能会得到错误或错误的结果。仔细定义它们。

Option Explicit

Sub green_update()
Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet

Set wb = ThisWorkbook
Set ws1 = wb.Sheets("Sheet1") 'Change this Sheet1 name with your current Worksheet name
Set ws2 = wb.Sheets("mysheets")

Dim bil As String 'I don't know where do you use that variable.
Dim lastrow As Long 'Prefer to work with Long instead of Integer
Dim for_col As Long, i As Long, r As Long, c As Long, colnum As Long
r = 4: c = 7: colnum = 7


     For for_col = 1 To ws2.Cells("4", Columns.Count).End(xlToLeft).Column
'This is important! Here in this case are you sure you, _ 
'you would like to define how many times your For loop will run based on 3rd row?     

lastrow = ws2.Cells(Rows.Count, "A").End(xlUp).Row

'This is also important! Are you sure you would like to run your For loop_
'based on the row number of A column? I think you should define it -3 _
'because you start your lookup from D4 (so first 3 one Is not necessary)

        For i = 1 To lastrow - 3
            ws1.Cells(r, c).Value = WorksheetFunction.VLookup(ws1.Cells(r, 4).Value, ws2.Range("A1:AI500"), colnum, False)
            r = r + 1
        Next
 r = 4
 colnum = colnum + 1
 c = c + 1

     Next
End Sub