Worksheets.Cells跨多工作表取值失败：问题排查与解决

问题原因分析 #

原代码导致Z表空白的核心原因有三个：

• 内层循环提前退出：Exit For放在内层循环的每次迭代后，导致row2只循环一次就跳出，根本没遍历Y表的500行，大概率第一次匹配不到就直接结束内层循环，自然没有数据写入Z表
• 行号引用错误：给Z表赋值时，X表的单元格用了row2，但X表是按row1遍历的，这会导致取错X表的数据（甚至取到超出X表范围的行）
• 多余的工作表选择：Worksheets(Array("X", "Y", "Z")).Select完全没用，VBA操作单元格不需要激活/选择工作表，这个语句只会增加不必要的操作

修正后的代码 #

Private Sub CommandButton1_Click()
    Dim row1 As Integer
    Dim row2 As Integer
    Dim zRow As Integer ' 记录Z表的写入行，避免数据覆盖
    
    zRow = 1 ' 初始化Z表起始行
    
    ' 遍历X表1-100行
    For row1 = 1 To 100
        ' 遍历Y表1-500行
        For row2 = 1 To 500
            ' 匹配A列值
            If Worksheets("X").Cells(row1, 1).Value = Worksheets("Y").Cells(row2, 1).Value Then
                ' 写入Z表对应列
                Worksheets("Z").Cells(zRow, 1).Value = Worksheets("X").Cells(row1, 1).Value
                Worksheets("Z").Cells(zRow, 2).Value = Worksheets("X").Cells(row1, 2).Value
                Worksheets("Z").Cells(zRow, 3).Value = Worksheets("Y").Cells(row2, 1).Value
                Worksheets("Z").Cells(zRow, 4).Value = Worksheets("Y").Cells(row2, 2).Value
                
                zRow = zRow + 1 ' 匹配成功后，Z表行号自增
            End If
        Next row2
    Next row1
End Sub

关键修正点说明 #

• 移除了错误的Exit For，让内层循环能完整遍历Y表所有行，确保不会错过匹配项
• 修正X表单元格的行号引用：把row2改为row1，保证取到当前遍历的X表行数据
• 添加zRow变量：解决X表同一行匹配到Y表多行时，Z表数据被覆盖的问题，每匹配成功一次就写入新的一行
• 删除多余的工作表选择语句，直接通过工作表对象操作单元格，效率更高且避免激活工作表带来的意外问题

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