Question

我尝试创建一个宏，将vlookup公式放在同一个单元格中，但仅用于选择工作表范围（基本上每个工作表除了前两个）以下是我的代码：

Option Explicit
Sub RenameTest()
For Each aSheet.Array In ActiveWorkbook.Worksheets
aSheet.Array = Sheets(Array("Facility Varian-HM_OH_477417 -", "LTM Income Stat-HM_LA_217368 -") _
    ).Select
aSheet.Activate
If aSheet.Name <> "Sheet87" Then
    Dim lookupvalue As String
    Dim formulavalue As String
    lookupvalue = Cells(1, 2).Value
    formulavalue = "=VLOOKUP(" & lookupvalue & ",'Sheet87'!A2:I200;3;FALSE)"
    Cells(1, 4).FormulaLocal = formulavalue
End If

Next aSheet

End Sub

运行代码时出现以下错误：编译错误：未定义变量。任何有关这方面的见解将不胜感激。

Answer 1

我不知道这是否有帮助

On Error Resume Next    
formulavalue = Application.WorksheetFunction.VLookup(" & lookupvalue & ",'Sheet87'!A2:I200;3;FALSE)
Cells(1, 4).Value = formulavalue

宏将vlookup公式放在同一单元格中，仅在选择的工作表数组中

1 个答案: