Question

我收到“下标超出范围”错误。我有两本工作簿。我正在尝试从工作簿B中的相应工作表中将每个工作簿A中的值VLOOKUP。工作簿中的工作表名称相同，只是第一个工作簿在工作簿B中有一些没有相应工作表的附加工作表。我要去哪里错。

Sub Update1()

Dim x As Integer
Dim y As Integer
x = ActiveWorkbook.Sheets.Count

For y = 1 To x

    Dim wsheet As String '1
    Dim wrange As Range     '2
    wsheet = ActiveWorkbook.Worksheets(y).Name '3
    Set wrange = Application.Workbooks("2012SWD.xlsx").Worksheets(wsheet).Range("A1:G100") '4
    For n = 1 To 100
        If SOME CONDITION Then
           Sheets(y).Range("T" & n).Value = WorsheetFunction.VLookup("A" & n, wrange, 3, False)
        End If
    Next n

Next y


End Sub

问题在于1,2,3,4行中的一行或多行

某些条件是Left(Sheets(y).Range("A" & n), 2) Like "CA"

Answer 1

你拼错了WorksheetFunction。

此外，工作簿“2012SWD.xlsx”需要已经打开（Workbooks集合仅引用打开的工作簿），并检查其扩展名不是.xlsm（或其他）。

..而且，蒂姆说：）

VLOOKUP与另一个工作表

1 个答案: