Sub a()
Application.DisplayAlerts = False
Dim i As Integer: i = 3
Do While Not IsEmpty(ActiveSheet.Cells(i, 1))
If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i - 1, 1) Then
Call b(i - 1, i)
End If
i = i + 1
Loop
Application.DisplayAlerts = True
End Sub
Sub b(ByVal r1 As Integer, ByVal r2 As Integer)
For i = 65 To 77
Sheet1.Range(Chr(i) & r1 & ":" & Chr(i) & r2).Merge
Next
End Sub
VBA 合并单元格
最新推荐文章于 2023-08-28 14:53:27 发布