VBA用户窗体命令按钮代码跳过Vlookup填充及后续函数段运行问题

代码没有按预期执行是运行时错误触发后的静默退出，不是逻辑被主动跳过，核心诱因有4个：

• 公式中引用的命名范围contrng未提前定义，VBA执行到注入公式的行时直接抛出“应用程序定义或对象定义错误”，由于你关闭了屏幕更新且未做错误捕获，程序直接跳出过程执行末尾的收尾代码。
• 所有Range、Rows对象未指定所属工作表，默认指向当前激活工作表，你关闭外部工作簿后激活表并非US_SQL，会触发范围不匹配、找不到对应单元格的错误。
• 变量rowx未显式声明，属于隐式变体变量，容易出现类型不匹配的意外问题。
• 粘贴操作未指定起始单元格，默认粘贴到目标表当前选中单元格位置，存在数据粘贴错位风险。
• 行数统计用Integer类型存在溢出风险，Excel单表最大行数远超过Integer的32767上限。

• 过程开头增加错误捕获逻辑，出错时第一时间恢复屏幕更新，避免Excel界面卡死，同时弹出明确报错信息。
• 明确定义Vlookup匹配的源范围contrng，替换未定义的命名范围引用，所有范围引用都绑定明确的工作表父对象。
• 所有单元格、行操作都显式指定所属工作表，禁止依赖ActiveSheet的默认指向。
• 所有变量提前显式声明，建议模块开头添加Option Explicit强制变量校验，避免变量拼写错误。
• 删除重复行改为从数据末尾向上遍历删除，避免从上往下删导致的行号偏移、漏删问题。
• 关闭外部工作簿时明确指定SaveChanges:=False，避免弹出保存提示卡断流程。
• 新增工作表前先检测同名表是否存在，存在则先删除，避免二次运行时报“表名已存在”错误。

' 模块最顶部加这行，强制所有变量必须提前声明
Option Explicit

Private Sub runform_Click()
    Application.ScreenUpdating = False
    ' 开启错误捕获
    On Error GoTo ErrHandler
    
    Dim rowcount As Long, dltcount As Long, rowx As Long
    Dim trackwb As Workbook, uswb As Workbook, cawb As Workbook
    Dim sht1 As Worksheet, sht2 As Worksheet, sht3 As Worksheet, sht4 As Worksheet
    ' 定义Vlookup匹配用的范围
    Dim contrng As Range

    Set trackwb = ActiveWorkbook
    ' 提前清理可能存在的同名旧表
    On Error Resume Next
    Application.DisplayAlerts = False
    trackwb.Sheets("US_SQL").Delete
    trackwb.Sheets("CA_SQL").Delete
    Application.DisplayAlerts = True
    On Error GoTo ErrHandler
    
    trackwb.Sheets.Add.Name = "US_SQL"
    trackwb.Sheets.Add.Name = "CA_SQL"
    
    Set sht1 = trackwb.Worksheets("Tracking report")
    Set sht2 = trackwb.Worksheets("Completed")
    Set sht3 = trackwb.Worksheets("US_SQL")
    Set sht4 = trackwb.Worksheets("CA_SQL")
    
    ' 按实际业务需求修改contrng的匹配范围，示例默认取Tracking report的A列作为查重源
    Set contrng = sht1.Range("A2:A" & sht1.Cells(sht1.Rows.Count, "A").End(xlUp).Row)

    ' 复制US工作簿数据
    Set uswb = Workbooks.Open(Filename:=usfilebox)
    uswb.ActiveSheet.Cells.Copy
    sht3.Range("A1").PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    uswb.Close SaveChanges:=False
    
    ' 复制CA工作簿数据
    Set cawb = Workbooks.Open(Filename:=cafilebox)
    cawb.ActiveSheet.Cells.Copy
    sht4.Range("A1").PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    cawb.Close SaveChanges:=False

    ' 统计US_SQL表有效数据行数
    rowcount = sht3.Cells(sht3.Rows.Count, "A").End(xlUp).Row
    dltcount = rowcount

    ' 注入Vlookup公式标记重复行
    sht3.Range("BT2").FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-70], " & contrng.Address(ReferenceStyle:=xlR1C1, External:=True) & ", 1, FALSE)),""Keep"",""DELETE"")"
    sht3.Range("BT2").AutoFill Destination:=sht3.Range("BT2:BT" & rowcount), Type:=xlFillDefault
    
    ' 从下往上删除标记为DELETE的行，避免行号偏移漏删
    For rowx = dltcount To 2 Step -1
        If sht3.Range("BT" & rowx).Value = "DELETE" Then
            sht3.Rows(rowx).EntireRow.Delete
        End If
    Next rowx
    
    ' 删除临时辅助列
    sht3.Range("BT:BT").Delete

    ' 正常流程收尾
    Unload Me
    Application.ScreenUpdating = True
    Exit Sub

' 错误处理分支
ErrHandler:
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "运行出错，错误信息：" & Err.Description, vbCritical
    Unload Me
End Sub

注意：代码中contrng的赋值逻辑需要按实际查重匹配的业务范围修改，示例默认取Tracking report表的A列作为匹配源。

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