VBA 查找是指工作簿中的第一张工作表，而不是 "Sheet1"

Question

如何更改以下查找以引用工作簿中的第一张工作表而不是“工作表 1”？

.Range("I15:I" & lastRow).FormulaR1C1 = _
                       "=IF(VLOOKUP(RC[-8],[" & combinedWorkbook.Name & "]Sheet1!C1:C2,1,TRUE)=RC[-8],VLOOKUP(RC[-8],[" & combinedWorkbook.Name & "]Sheet1!C1:C2,2,TRUE),NA())"

谢谢

Answer 1

您已经将工作簿名称连接到公式中。同样，您也可以连接第一个工作表的名称。第一个工作表是工作簿 Worksheets 中的第一个工作表收藏。

所以combinedWorkbook.Worksheets(1).Name将是工作簿中第一个工作表的名称 combinedWorkbook .

但名称可能包含空格，例如“我的工作表名称”。那么引用本身必须在单引号内，如 'My Worksheet Name'!A1 .

所以大家一起:

.Range("I15:I" & lastRow).FormulaR1C1 = _
                       "=IF(VLOOKUP(RC[-8],'[" & combinedWorkbook.Name & "]" & combinedWorkbook.Worksheets(1).Name & "'!C1:C2,1,TRUE)=RC[-8],VLOOKUP(RC[-8],'[" & combinedWorkbook.Name & "]" & combinedWorkbook.Worksheets(1).Name & "'!C1:C2,2,TRUE),NA())"