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 ━━━━━━━━━━━━━━━━━━━━━━━━━ |
|