合并内容相同的连续单元格

合并单元格

相应代码:

Sub MergeSameCells()

Dim lRow As Integer

Application.DisplayAlerts = False With ActiveSheet

lRow = .Range("A65536").End(xlUp).R For i = lRow To 2 Step -1

If .Cells(i, 1).Value = .Cells( .Range(.Cells(i - 1, 1), .C End If Next End With

Application.DisplayAlerts = True End Sub

n.DisplayAlerts = False

.Range("A65536").End(xlUp).Row = lRow To 2 Step -1

.Cells(i, 1).Value = .Cells(i - 1, 1).Value Then .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge

n.DisplayAlerts = True

合并单元格

相应代码:

Sub MergeSameCells()

Dim lRow As Integer

Application.DisplayAlerts = False With ActiveSheet

lRow = .Range("A65536").End(xlUp).R For i = lRow To 2 Step -1

If .Cells(i, 1).Value = .Cells( .Range(.Cells(i - 1, 1), .C End If Next End With

Application.DisplayAlerts = True End Sub

n.DisplayAlerts = False

.Range("A65536").End(xlUp).Row = lRow To 2 Step -1

.Cells(i, 1).Value = .Cells(i - 1, 1).Value Then .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge

n.DisplayAlerts = True