在Excel中，如何使用VBA动态合并具有相同值的单元格？

Sub MergeCells()
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 设置要合并的范围
    Set rng = Range("A1:A" & lastRow)
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查当前单元格与下一个单元格的值是否相同
        If cell.Value = cell.Offset(1, 0).Value Then
            ' 如果相同，则合并当前单元格和下一个单元格
            Range(cell, cell.Offset(1, 0)).Merge
        End If
    Next cell
End Sub