Excel VBA代码无法正确获取最后一列，表格对比逻辑异常求助

核心问题排查 #

• 列数统计逻辑错误：使用End(xlDown)获取第18行的最后一列，这是纵向向下查找非空单元格，而非横向查找。正确的横向查找应使用xlToRight。
• 重复计算bug：lastColumnB和lastColumnJ的计算代码完全一致，导致两者数值相同，后续列偏移逻辑失效。
• 粘贴延迟影响：若复制数据量较大，系统可能未同步完成粘贴就执行列数统计，可通过代码确保粘贴操作完成后再继续。

错误代码关键问题点 #

1. 列数获取方向错误：

lastColumnB = existingSheet.Cells(18, existingSheet.Columns.Count).End(xlDown).Column
lastColumnJ = existingSheet.Cells(18, existingSheet.Columns.Count).End(xlDown).Column

此处xlDown用于纵向查找，需改为横向查找方向才能获取第18行的最后非空列。同时两段代码完全重复，无法区分原表格和复制表格的列范围。

2. 循环偏移逻辑失效：由于lastColumnJ和lastColumnB值相同，i + (lastColumnJ - lastColumnB)等价于i，导致始终对比同一列，而非目标的J列起始范围。

修正后的完整代码 #

' Paste data into existing workbook
Dim existingSheet As Worksheet
Set existingSheet = existingWorkbook.Sheets(1)

Dim pasteRange As Range
Set pasteRange = existingSheet.Range("J18")

' 执行复制粘贴，并确保操作完成
selectedTable.Range.Copy pasteRange
Application.CutCopyMode = False ' 清除剪贴板复制状态
DoEvents ' 让系统处理完粘贴操作后再继续

' 获取第18行中B列开始的原表格最后一列
Dim lastColumnB As Long
lastColumnB = existingSheet.Cells(18, "B").End(xlToRight).Column

' 获取第18行中J列开始的复制表格最后一列
Dim lastColumnJ As Long
lastColumnJ = existingSheet.Cells(18, "J").End(xlToRight).Column

' 计算可对比的最大列数，避免循环越界
Dim maxCompareCols As Long
maxCompareCols = WorksheetFunction.Min(lastColumnB - 1, lastColumnJ - 9) ' B是第2列，原表格列数=lastColumnB-1；J是第10列，复制表格列数=lastColumnJ-9

' 初始化统计变量
Dim matchingCellsCount As Integer, nonMatchingCellsCount As Integer
matchingCellsCount = 0
nonMatchingCellsCount = 0

' 遍历对比每一列对应单元格
Dim i As Integer
For i = 2 To 2 + maxCompareCols - 1
    Dim cellB As Range, cellJ As Range
    Set cellB = existingSheet.Cells(18, i)
    Set cellJ = existingSheet.Cells(18, i + 8) ' J列（第10列）比B列（第2列）偏移8列
    
    If cellB.Value = cellJ.Value Then
        matchingCellsCount = matchingCellsCount + 1
    Else
        nonMatchingCellsCount = nonMatchingCellsCount + 1
    End If
Next i

' 弹出统计结果
MsgBox "匹配单元格数量: " & matchingCellsCount & vbNewLine & _
       "不匹配单元格数量: " & nonMatchingCellsCount & vbNewLine & _
       "J列最后列号: " & lastColumnJ & vbNewLine & "B列最后列号: " & lastColumnB

关键修正说明 #

• 替换xlDown为xlToRight，正确横向定位第18行的非空列边界。
• 添加Application.CutCopyMode = False和DoEvents，确保粘贴操作完成后再统计列数，消除延迟影响。
• 新增列数一致性判断，用WorksheetFunction.Min限制循环范围，避免因两个表格列数不一致导致的越界报错。
• 明确列偏移量（J列比B列多8列），确保对比目标列正确。

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