excel怎么合并单元格汇总教程

发布网友

我来回答

共1个回答

热心网友

是需要把一个区域中相同内容的单元格合并起来吗？用以下代码即可

Sub 合并相同内容的单元格()
Application.DisplayAlerts = False '屏蔽合并警告
Application.ScreenUpdating = False '禁止屏幕刷新
Application.EnableEvents = False '禁止触发事件
Application.Calculation = xlCalculationManual '禁止自动重算
Dim cols As Integer, i As Long, j As Long, k As Long, r As Long, rs As Long
cols = Selection.Columns.Count
If cols > 1 Then
    MsgBox "仅限单列合并，请重新选择合并区域"
    Exit Sub
End If
i = ActiveCell.Row
k = i
j = ActiveCell.Column
r = i
rs = Selection.Rows.Count
Do Until i = r + rs
    If Cells(i + 1, j).Value <> Cells(i, j).Value Then '若相等则k不变，直到找到不同值时，使k行到i行的单元格合并，k赋值为i+1并重新开始寻找下一个不同的单元格
        With Range(Cells(k, j), Cells(i, j))
        .Merge
        .HorizontalAlignment = xlCenter '横向居中
        .VerticalAlignment = xlCenter '纵向居中
        End With
        k = i + 1
    End If
    i = i + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub