|
本帖最后由 hasyh2008 于 2022-5-30 22:42 编辑
Sub 合并内容相同的连续单元格()
Dim I As Integer
Dim Rc%
Dim Rng As Range
On Error Resume Next
Application.DisplayAlerts = False
Rc = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
With Sheet2.Range("B5:B" & Rc)
For I = .Cells.Rows.Count To 1 Step -1
If .Cells(I - 1, 1).Value = .Cells(I, 1).Value Then
Set Rng = Union(.Cells(I - 1, 1), .Cells(I, 1))
Rng.Offset(0, 1).Merge
Rng.Merge
Set Rng = Nothing
End If
Next
Application.DisplayAlerts = True
End With
End Sub |
|