Question

Id喜欢跳过循环，因为我使用的文件大约有1万行。我想使用两个不同的工作簿使用vlookup。我将只提供部分代码，但我会通过vlookup看到错误。错误是错误438“对象不支持此属性或方法。首先，用户不得不选择一个文件，因为该文件每个月都有所不同。我们得到的文件名为oldbpm。然后，它将仅用于服务列数。文件BPM-Tool是我运行宏的工具，询问是否需要其他信息。另一件事是，如果可以，则可以使用自动填充。

Dim Sheetstarybpm As Worksheet
Dim myrange As Range
Dim countrowsoldbpm1 As Long
Dim countrowsoldbpm As Long

With Application.FileDialog(msoFileDialogFilePicker)
        'Makes sure the user can select only one file
        .AllowMultiSelect = False
        .Title = "Select BPM Report for previous month"
        .ButtonName = "OK"
        'Filter to just the following types of files to narrow down selection options
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        'Show the dialog box
        .Show

        oldbpm = .SelectedItems.Item(1)
End With


    Workbooks.Open oldbpm

    Set Sheetstarybpm = ActiveSheet

    countrowsoldbpm1 = Range("a10", Range("a10").End(xlDown)).Rows.Count

    Set myrange = Range("A10:CW" & countrowsoldbpm1)

Workbooks("BPM-Tool.xlsm").Activate
Worksheets("OU").Activate

    countrowsoldbpm = Range("a1", Range("a1").End(xlDown)).Rows.Count

    Range("D1").Formula "=VLOOKUP(B2,'[" & oldbpm & "]" & Sheetstarybpm & "'!" & myrange & ",100,FALSE))"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D" & countrowsoldbpm)

End Sub

VlookUP带有变量的整个列

0 个答案: