他山之石——使用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