使用VBA合并sheet2中A列中所有相同内容的单元格

您可以使用以下VBA代码来合并Sheet2中A列中所有相同内容的单元格：

Sub MergeCells()
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的工作表
    With ThisWorkbook.Worksheets("Sheet2") '将"Sheet2"替换为您要操作的工作表名称
        ' 获取A列的最后一行
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        
        ' 遍历A列中的单元格
        For Each cell In .Range("A1:A" & lastRow)
            ' 检查当前单元格与下一个单元格是否相同
            If cell.Value = cell.Offset(1, 0).Value Then
                ' 如果相同，则合并当前单元格和下一个单元格
                If rng Is Nothing Then
                    Set rng = cell
                Else
                    Set rng = Union(rng, cell)
                End If
            Else
                ' 如果不相同，则合并已找到的相同内容的单元格，并清空rng变量
                If Not rng Is Nothing Then
                    rng.Merge
                    Set rng = Nothing
                End If
            End If
        Next cell
    End With
    
    ' 合并最后一组相同内容的单元格（如果有）
    If Not rng Is Nothing Then
        rng.Merge
    End If
    
    ' 清除格式设置，以便显示合并后的内容
    With ThisWorkbook.Worksheets("Sheet2")
        .Range("A1:A" & lastRow).HorizontalAlignment = xlCenter
        .Range("A1:A" & lastRow).VerticalAlignment = xlCenter
        .Range("A1:A" & lastRow).WrapText = True
        .Range("A1:A" & lastRow).EntireColumn.AutoFit
    End With
End Sub

请将代码中的"Sheet2"替换为您要操作的工作表名称。运行此宏后，代码将遍历Sheet2中A列中的单元格，找到相同内容的单元格并进行合并。最后，代码会清除格式设置，使合并后的内容居中、自动换行并调整列宽以适应内容。

请注意，此代码仅合并相邻的相同内容单元格。如果要合并A列中非相邻的相同内容单元格，您可能需要进行额外的处理。