Excel VBA动态vlookup（2本工作簿）

我每天使用两个文件名不断变化的工作簿，并且必须在第1册上执行vlookup，从第2册中提取数据，过滤第1册中的N/A，将N/A复制并粘贴到第1册中的另一个工作表中，并另存为活动工作表

下面是我目前的代码…请帮助修复

Sub todeleteaging1()
    Range("T1").Select
    ActiveCell.FormulaR1C1 = "vlookup"
    Range("T2").Select
    Columns("S:S").EntireColumn.AutoFit
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-16], agingtest0413.csv!C1, 1, FALSE)"
    Range("T2").Select
    Selection.Copy
    Range("S2").Select
    Selection.End(xlDown).Select
    Range("T14039").Select
    ActiveSheet.Paste
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Range("T14039").Select
    Selection.End(xlUp).Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$T$14039").AutoFilter Field:=20, Criteria1:="=#N/A" _
        , Operator:=xlOr, Criteria2:="=#N/A"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("A1").Select
    ActiveSheet.Paste
    Range("C6").Select
    Application.CutCopyMode = False
    ChDir "C:\Users\RRF - 113\Downloads"
    ActiveWorkbook.SaveAs fileName:= _
        "C:\Users\RRF - 113\Downloads\todelete20180413.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
    Sheets("Invoice Aging Upsert_04_12_2018").Select
    Range("L11898").Select
    ActiveSheet.Range("$A$1:$T$14039").AutoFilter Field:=20
    Sheets("todelete20180413").Select
End Sub

---

你的Vlookup永远不会使用像

$a$2:$a

这样的查找引用。另外，如果从查找列返回值，那么Vlookup有什么意义？使用Power query，整个练习可能会更容易。打开这两个文件并合并其中一个文件的T列和另一个文件的A列

这是不可能解决的。您试图使用未声明和未分配的变量，但绝对没有指示它们应该来自何处。用录制的宏替换代码…需要使其动态编辑我的问题并用录制的宏替换代码…需要使其动态