

Sub hb()
Dim n
n = 3
For i = 3 To 18
If Range("b" & i) <> Range("b" & i + 1) Then
Range("b" & n & ":b" & i).Merge
n = i + 1
End If
Next
End Sub
这段代码是一个ExcelVBA子程序,通过For循环检查并合并B列中不连续的相同值,当找到不相等的单元格时,将它们合并并更新迭代计数器。


Sub hb()
Dim n
n = 3
For i = 3 To 18
If Range("b" & i) <> Range("b" & i + 1) Then
Range("b" & n & ":b" & i).Merge
n = i + 1
End If
Next
End Sub
828