VBA宏遍历行并比较每行最后两个单元格值的实现问题

嘿，我来帮你搞定这个问题！你现在的代码里多了个没必要的内层列循环——其实你根本不需要遍历每行的所有列，只要拿到每行的最后一列索引后，直接定位到最后一个和倒数第二个单元格就可以了。

问题分析 #

你已经正确获取了每行的最后一列allInLastCol，但后续的For x = 1 To allInLastCol完全是多余的，我们的目标只是拿到这一行的最后两个单元格的值，不需要逐个遍历列。另外还要注意边界情况：如果某行只有1个有效单元格，allInLastCol - 1会小于1，访问单元格会报错，所以得加个判断避免这种情况。

修改后的代码 #

Sub compareValues()
    Dim allInLastRow As Long
    Dim allInLastCol As Long
    Dim i As Integer
    Dim allInWs As Worksheet
    Dim lastCellValue As Variant
    Dim secondLastCellValue As Variant
    
    Set allInWs = ThisWorkbook.Worksheets("All In")
    ' 获取C列最后一行数据的行号
    allInLastRow = allInWs.Range("C" & Rows.Count).End(xlUp).Row
    
    ' 遍历第2行到最后一行
    For i = 2 To allInLastRow
        ' 获取当前行的最后一列索引
        allInLastCol = allInWs.Cells(i, Columns.Count).End(xlToLeft).Column
        
        ' 先判断当前行是否至少有2个有效单元格
        If allInLastCol >= 2 Then
            ' 获取最后一个单元格的值
            lastCellValue = allInWs.Cells(i, allInLastCol).Value
            ' 获取倒数第二个单元格的值
            secondLastCellValue = allInWs.Cells(i, allInLastCol - 1).Value
            
            ' 这里写你的比较逻辑，示例如下：
            If lastCellValue = secondLastCellValue Then
                ' 执行你需要的修改操作，比如修改A列单元格
                allInWs.Cells(i, "A").Value = "值相等"
            Else
                allInWs.Cells(i, "A").Value = "值不相等"
            End If
        Else
            ' 如果当前行有效单元格不足2个，可做提示或跳过
            allInWs.Cells(i, "A").Value = "单元格数量不足"
        End If
    Next i
End Sub

关键说明 #

• 直接通过Cells(i, allInLastCol)和Cells(i, allInLastCol - 1)定位目标单元格，省去了不必要的列循环，效率更高。
• 添加If allInLastCol >= 2的判断，避免因行内有效单元格不足导致的运行时错误。
• 你可以根据实际需求替换示例中的比较后操作（比如修改A列值的部分）。

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