VLOOKUP vba中的引用variables工作表
我正在写一个基于现有工作表上的值创build可变工作表的macros。 我pipe理好这个部分，但是现在我需要在引用新创build的工作表的另一个工作表上添加一个VLOOKUP公式。 新的工作表的名称没有设置模式，所以我无法引用它们。 以下是我用来创build新工作表的代码：
Dim ws As Worksheet Dim rngCriteria As Range Dim sName As String Dim I As Long Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Part Type REC") If .AutoFilterMode = True Then .AutoFilterMode = False .Range("D1:D" & LastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("J1"), Unique:=True Set rngCriteria = .Range("J1").CurrentRegion For I = 2 To .Cells(Rows.Count, "J").End(xlUp).Row sName = .Cells(I, "J") Set ws = ThisWorkbook.Worksheets.Add ws.Name = sName .Range("D1:D" & LastRow).AutoFilter Field:=1, Criteria1:="=" & .Cells(I, "J").Value .Range("A1:H" & LastRow).SpecialCells(xlCellTypeVisible).Copy Destination:=ws.Range("A1") Next I .AutoFilterMode = False End With Sheets("Part Type REC").Select Columns("J:J").Select Selection.ClearContents Range("A1").Select 这里是我需要引用新的工作表的VLOOKUP：
Sheets("TP Parts").Select Range("O2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'ws.name'!C[-14],1,FALSE)" Range("O2").Select
我在哪里错了？
提前致谢！
试试这个（ 未经testing – 在这里input ）
Range("O2").FormulaR1C1 = "=VLOOKUP(RC[-1]," & ws.name & "!C[-14],1,FALSE)"