他山之石——使用VBA合并单元格（Merge cells in VBA）

继续学习！

'单元格合并

Sub h1()

Range("g1:h3").Merge '

End Sub

'合并区域的返回信息
Sub h2()

Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域

End Sub

'判断是否含合并单元格
Sub h3()
'MsgBox Range("b2").MergeCells
' MsgBox Range("A1:D7").MergeCells
Range("e2") = IsNull(Range("a1:d7").MergeCells)
Range("e3") = IsNull(Range("a9:d72").MergeCells)
End Sub

'综合示例

'合并H列相同单元格

Sub h4()
Dim x As Integer
Dim rg As Range
Set rg = Range("h1")
Application.DisplayAlerts = False
For x = 1 To 13
If Range("h" & x + 1) = Range("h" & x) Then
Set rg = Union(rg, Range("h" & x + 1))
Else

rg.Merge

Set rg = Range("h" & x + 1)
End If
Next x
Application.DisplayAlerts = True
End Sub

————————————————
版权声明：本文为CSDN博主「预见未来to50」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/hpdlzu80100/article/details/80779330