excel 一列里 有三行合并成一行的单元格 有两行合并成一行的单元格. 我想单独筛选出三行合并的单元格？

Sub 数据处理()
   Dim i, k As Integer
   Dim arr, brr
            arr = Range("a3").CurrentRegion
   ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
         brr = arr
         For i = 1 To UBound(arr) Step 2

         If arr(i, 2) = arr(i + 1, 2) Then

            brr(i, 2) = arr(i, 2)

        Else
            brr(i, 2) = arr(i, 2) & "," & arr(i + 1, 2)
        End If
        Next

        Range("a1").CurrentRegion.Clear
    Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
        Range("b:b").Select
        Selection.HorizontalAlignment = xlCenter
        For k = 2 To Range("a" & Cells.Rows.Count).End(xlUp).Row Step 2
            Rows(k).Clear
        Next
End Sub

Sub 数据处理() Dim i, k As Integer Dim arr, brr arr = Range("a3").CurrentRegion ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2)) brr = arr For i = 1 To UBound(arr) Step 2 If arr(i, 2) = arr(i + 1, 2) Then brr(i, 2) = arr(i, 2) Else brr(i, 2) = arr(i, 2) & "," & arr(i + 1, 2) End If Next Range("a1").CurrentRegion.Clear Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr Range("b:b").Select Selection.HorizontalAlignment = xlCenter For k = 2 To Range("a" & Cells.Rows.Count).End(xlUp).Row Step 2 Rows(k).Clear NextEnd Sub

另外一种方法是直接用查找和替换功能配合计数。搜索连续三个空格或其他分隔符，并查看前后内容是否重复。通过这种方式可以找出大部分情况下的三行合并单元格

或者使用数据透视表也能达到目的。新建一个透视表，将你的列拖到行区域，计算每个单元格的文本长度或者特殊字符数量。这样长于其他单元格的就可能是你想要找的三行合并项

你可以试试在Excel筛选功能里，选择条件格式，然后设置一个规则，比如单元格内容包含特定字符（如逗号）或数字个数为3，这样三行合并的单元格就会被高亮显示出来