如何判断Excel单元格区域值相等及合并后隔行着色处理

我来一步步拆解你遇到的几个问题：

一、为什么原代码会报“运行时错误13（类型不匹配）”？怎么正确判断两行单元格值完全相等？ #

你原代码里直接用Range(...).Value = Range(...).Value来对比两行区域是行不通的——因为Range.Value返回的是二维数组（哪怕是单行，也是2D结构），VBA不支持直接用=运算符比较两个数组是否完全一致，这就是类型不匹配的根源。

你后来改用的Join(Application.Transpose(Application.Transpose(...)), Chr(0))是个很巧妙的 workaround：

• 第一次Transpose把单行的2D数组转成单列2D数组
• 第二次Transpose把单列2D数组转成一维数组
• 最后用Join把一维数组的所有元素用Chr(0)（一个不会和普通单元格内容冲突的空字符）拼接成字符串，这样就能直接用=比较两个字符串，间接判断两行的所有单元格值是否完全相同。

如果你想要更易读、更易维护的代码，也可以写个自定义函数来做判断：

Function AreRowsEqual(rng1 As Range, rng2 As Range) As Boolean
    ' 先校验两个区域的尺寸是否一致（必须都是单行，且列数相同）
    If rng1.Rows.Count <> 1 Or rng2.Rows.Count <> 1 Or rng1.Columns.Count <> rng2.Columns.Count Then
        AreRowsEqual = False
        Exit Function
    End If
    
    Dim arr1 As Variant, arr2 As Variant
    arr1 = rng1.Value
    arr2 = rng2.Value
    
    Dim col As Long
    For col = 1 To UBound(arr1, 2)
        ' 额外处理空值场景，避免再次触发类型不匹配
        If arr1(1, col) <> arr2(1, col) Then
            AreRowsEqual = False
            Exit Function
        End If
    Next col
    
    AreRowsEqual = True
End Function

用的时候直接替换判断逻辑就行：

If AreRowsEqual(Range(Cells(i, 7), Cells(i, 24)), Range(Cells(i - 1, 7), Cells(i - 1, 24))) Then
    ' 执行列合并的代码
End If

二、关于“为何要为首尾行单独编写函数？”的疑问 #

其实完全不需要为首尾行单独写函数哦！不管是你用的Join+Transpose写法，还是上面的自定义函数，都能处理任意两行的对比——除非你的首尾行有特殊的格式或值逻辑，但从你的循环代码（从最后一行倒推到第7行）来看，已经覆盖了范围内的所有行对比，不存在必须单独处理首尾行的情况，可能是你之前误解了某些说法？

三、合并单元格后，怎么实现隔行着色？ #

原来的隔行着色是基于行号奇偶性，但合并单元格后，行号的逻辑会被打乱（比如合并了第7、8行，操作Cells(8,3)其实会影响整个合并区域）。正确的做法是按合并区域的起始行号来判断奇偶，然后给整个合并区域统一着色：

场景1：整行的合并区域是统一的（比如整行合并） #

Dim row As Long
row = Cells(Rows.Count, 6).End(xlUp).row
Do Until IsEmpty(Cells(row, 3))
    Dim mergeRng As Range
    Set mergeRng = Cells(row, 3).MergeArea ' 获取当前单元格所属的合并区域
    
    ' 用合并区域的第一行号判断奇偶
    If mergeRng.Row Mod 2 <> 0 Then
        mergeRng.Interior.Color = RGB(217, 225, 242)
    Else
        mergeRng.Interior.Color = xlNone
    End If
    
    ' 直接跳到下一个未处理的合并区域的起始行
    row = mergeRng.Row + mergeRng.Rows.Count
Loop

场景2：每列单独合并（你的代码逻辑是合并A1:A2、B1:B2这种） #

因为你的合并逻辑是整行值相同就按列单独合并，所以每行的所有列合并行数是一致的，我们可以按起始行来批量处理：

Dim startRow As Long, lastRow As Long
lastRow = Cells(Rows.Count, 6).End(xlUp).row

startRow = 7 ' 和你之前的循环起始行保持一致
Do While startRow <= lastRow
    ' 按起始行的奇偶性着色
    If startRow Mod 2 <> 0 Then
        Range(Cells(startRow, 3), Cells(startRow, 24)).Interior.Color = RGB(217, 225, 242)
    Else
        Range(Cells(startRow, 3), Cells(startRow, 24)).Interior.Color = xlNone
    End If
    
    ' 跳到下一个合并区域的起始行（用第7列的合并区域行数判断）
    startRow = startRow + Cells(startRow, 7).MergeArea.Rows.Count
Loop

这段代码会自动跳过已经合并的行，避免重复处理，确保每个合并区域只被着色一次。

内容的提问来源于stack exchange，提问作者Filip Frątczak