这看起来很简单！！

Sub Macro()
Dim lngRow As Long
For lngRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
    If StrComp(Range("B" & lngRow), Range("B" & lngRow - 1), vbTextCompare) = 0 Then
        If Range("B" & lngRow) <> "" Then
        Range("A" & lngRow & ":" & "A" & lngRow - 1).Merge
        End If
    End If
Next
End Sub

之前。

之后。