VBA冗余定义工作表导致数组存储错误工作表值问题排查

该故障和重复定义ws_in/ws_out的冗余代码无直接关联，核心是VBA多工作簿操作时的隐式父对象引用问题：

• 调用Workbooks.Open打开wb_out时，系统会自动将wb_out激活为当前活动工作簿，其第一张工作表成为默认活动工作表。
• 定义Range区域时，如果Cells/Rows等子对象未显式绑定父对象（即前面漏写.），会默认指向当前活动工作表的对象。
• VBA的Range对象父对象优先级以传入参数的单元格对象为准：哪怕Range前加了.绑定到ws_in，只要传入的Cells属于ws_out，最终返回的区域就是ws_out上的单元格，且不会抛出任何错误。
• 最终导致clls_in实际引用了ws_out的A列区域，赋值给arr_in后数组存储的就是输出工作表的值，打印arr_in(1,1)自然会返回arr_out(1,1)的结果。

补充：你贴出的代码中Cells前已经加了.，说明这是你排查时补上的，之前运行的故障版本中存在该遗漏；另外你自定义的lr函数逻辑是正确的，所有引用都绑定了传入的工作表对象，不存在问题。

1. 删除冗余代码：打开工作簿时已经完成ws_in/ws_out的正确赋值，后面重复的两行Set语句完全多余，直接删除避免干扰。
2. 全链路显式绑定父对象：所有单元格、区域操作不要依赖默认活动对象，必须显式绑定到对应工作表，禁止无前缀的Cells/Range/Rows调用。
3. 关闭屏幕自动切换：操作多工作簿时关闭屏幕更新，避免打开文件时自动切换活动窗口带来的隐式影响。
4. 增加异常判断：处理用户点击GetOpenFilename取消按钮的场景，避免无效报错。

修复后完整代码 #

Sub conceptos_import()
    Dim wb          As Workbook
    Dim wb_in       As Workbook
    Dim wb_out      As Workbook
    Dim ws_in       As Worksheet
    Dim ws_out      As Worksheet
    Dim clls_in     As Range
    Dim clls_out    As Range
    
    Dim str         As String
    Dim str_in      As String
    Dim str_out     As String
    Dim path        As String
    
    Dim i           As Long
    Dim i_in        As Long
    Dim i_out       As Long
    Dim arr_in      As Variant
    Dim arr_out     As Variant

    ' 关闭屏幕更新，禁止打开文件时自动切换活动窗口
    Application.ScreenUpdating = False

    Set wb = Application.Workbooks("rn_macros.xlsm")
    path = wb.path & "\"

    str = Application.GetOpenFilename()
    ' 处理用户点击取消的场景
    If str = "False" Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    Set wb_in = Application.Workbooks.Open(str)
    Set ws_in = wb_in.Worksheets(1)

    Set wb_out = Application.Workbooks.Open(path & "files\conceptos.xlsx")
    Set ws_out = wb_out.Worksheets(1)
    
    ' 读取输入文件A列到数组，所有单元格显式绑定ws_in
    With ws_in
        Set clls_in = .Range(.Cells(1, 1), .Cells(lr(ws_in, 1), 1))
    End With
    arr_in = clls_in.Value2
    
    ' 读取输出文件A列到数组，所有单元格显式绑定ws_out
    With ws_out
        Set clls_out = .Range(.Cells(1, 1), .Cells(lr(ws_out, 1), 1))
    End With
    arr_out = clls_out.Value2
    
    ' 调试打印，可用于验证数组取值是否正确
    Debug.Print "arr_in(1,1): " & arr_in(1, 1), "arr_out(1,1): " & arr_out(1, 1)
    
    ' 反向遍历删除输出表中不存在于输入表的行
    For i_out = UBound(arr_out) To LBound(arr_out) + 1 Step -1
        i = 0
        str_out = arr_out(i_out, 1)
        For i_in = UBound(arr_in) To LBound(arr_in) + 1 Step -1
            str_in = arr_in(i_in, 1)
            If str_out = str_in Then
                i = 1
                Exit For
            End If
        Next i_in
        If i = 0 Then
            ws_out.Cells(i_out, 1).EntireRow.Delete
        End If
    Next i_out

    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

验证方法 #

如果需要确认区域引用是否正确，可以在arr_in = clls_in.Value2语句后加如下调试代码，立即窗口会打印区域所属的工作簿和工作表名：

Debug.Print "clls_in所属工作簿：" & clls_in.Parent.Parent.Name, "所属工作表：" & clls_in.Parent.Name

如果输出结果为你选中的输入文件信息，说明引用正确。

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