每日使用文件名可变的两个工作簿，求修正VBA动态VLOOKUP代码

嘿，我帮你把代码彻底重构了，不仅解决了动态文件名的核心问题，还改掉了VBA里最容易踩坑的Select/Activate操作——这可是让代码高效又稳定的关键！下面是完整的可运行代码，我会逐段给你解释：

Sub ProcessAgingData()
    Dim sourceWB As Workbook
    Dim targetWS As Worksheet
    Dim resultsWS As Worksheet
    Dim lastRow As Long
    Dim naRange As Range
    
    ' 1. 让你手动选择每天变化的工作簿2（数据源）
    Dim filePath As Variant
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel/CSV文件 (*.xlsx;*.csv), *.xlsx;*.csv", _
        Title:="请选择工作簿2（数据源文件）")
    If filePath = False Then Exit Sub ' 如果取消选择就退出
    
    Set sourceWB = Workbooks.Open(filePath)
    
    ' 2. 定义工作簿1的两个工作表（根据你的实际表名修改！）
    Set targetWS = ThisWorkbook.Worksheets("数据主表") ' 放原始数据的工作表
    Set resultsWS = ThisWorkbook.Worksheets("N/A数据汇总") ' 要存放N/A的工作表
    
    ' 3. 自动找到数据最后一行，批量写入VLOOKUP公式
    lastRow = targetWS.Cells(targetWS.Rows.Count, "D").End(xlUp).Row ' 这里的"D"是你要查找的列（对应你原来的RC[-16]）
    targetWS.Range("T2:T" & lastRow).FormulaR1C1 = _
        "=VLOOKUP(RC[-16], '" & sourceWB.Name & "'!C1, 1, FALSE)"
    
    ' 自动调整S列宽度（和你原来的需求一致）
    targetWS.Columns("S:S").AutoFit
    targetWS.Range("T1").Value = "VLOOKUP匹配结果" ' 给T列加个表头，方便筛选
    
    ' 4. 筛选出T列的#N/A值
    targetWS.Range("T1:T" & lastRow).AutoFilter Field:=1, Criteria1:="#N/A"
    
    ' 5. 复制筛选后的N/A行到结果表
    On Error Resume Next ' 防止没有N/A值时出错
    Set naRange = targetWS.Range("S2:T" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not naRange Is Nothing Then
        resultsWS.Cells.Clear ' 清空旧数据
        naRange.Copy resultsWS.Range("A1")
        resultsWS.Columns("A:B").AutoFit ' 调整结果表列宽
    End If
    
    ' 6. 收尾：关闭筛选、激活结果表、保存工作簿1
    targetWS.AutoFilterMode = False
    resultsWS.Activate
    ThisWorkbook.Save
    
    ' 可选：关闭工作簿2（如果不需要留着它打开）
    sourceWB.Close SaveChanges:=False
    
    MsgBox "搞定啦！N/A数据已经存到「" & resultsWS.Name & "」工作表，文件也保存好了😉"
End Sub

关键改进点说明 #

• 动态适配文件名：用GetOpenFilename让你手动选择每天变化的工作簿2，再也不用硬改代码里的文件名了！
• 抛弃低效的Select操作：直接用对象变量操作工作表和单元格，代码运行更快，也不会因为选中其他单元格而报错。
• 批量处理公式：一次性给整列写入VLOOKUP公式，比你原来逐个单元格点选高效N倍。
• 精准筛选N/A：用AutoFilter+SpecialCells快速定位所有#N/A的行，复制到指定工作表。
• 容错处理：加了错误捕获，防止没有N/A值时代码崩溃，还加了提示框告诉你处理结果。

你需要调整的地方 #

1. 修改工作表名：把数据主表和N/A数据汇总改成你工作簿1里实际的工作表名称。
2. 确认查找列：代码里的"D"是你要做VLOOKUP的查找值所在列（对应你原来公式里的RC[-16]，也就是T列往左数16列），如果你的查找值不在D列，要改成对应的列字母。
3. 数据源工作表：如果工作簿2的数据源不在第一个工作表，把公式里的'!" & sourceWB.Name & "'!C1改成'!" & sourceWB.Name & "'!工作表名!C1（比如'agingtest0413.csv'!Sheet2!C1）。

内容的提问来源于stack exchange，提问作者Whitney Hughes