当VBA中的值相同时，如何合并同一行中的相邻单元格？

Sub MergeAdjacentCells()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    
    For i = 2 To lastRow ' 从第2行开始循环，第1行为标题行
        Dim j As Long
        j = 2 ' 从第2列开始循环
        
        Do While j <= Cells(i, Columns.Count).End(xlToLeft).Column ' 循环直到最后一个非空单元格
            If Cells(i, j).Value = Cells(i, j + 1).Value Then ' 如果当前单元格的值与下一个单元格的值相同
                Cells(i, j).Value = Cells(i, j).Value & Cells(i, j + 1).Value ' 合并单元格的值
                Cells(i, j + 1).Delete Shift:=xlToLeft ' 删除下一个单元格，并将后续单元格左移
            Else
                j = j + 1 ' 如果当前单元格的值与下一个单元格的值不相同，则继续下一列
            End If
        Loop
    Next i
End Sub