VBA单元格合并与拆分

bb75308973

1. 合并单元格
   
2. Public Sub 技巧4_174()
   
3.     Dim myRange As Range
   
4.     Set myRange = Range("A1:A5")               '指定任意单元格区域
   
5.     myRange.Merge        '合并该单元格区域
   
6. '    myRange.MergeCells = True      '也可以使用这个方法合并单元格
   
7.     Set myRange = Nothing
   
8. End Sub
   

复制代码

1. 解除单元格的合并
   
2. Public Sub 技巧4_175()
   
3.     Dim myRange As Range
   
4.     Set myRange = Range("A1")       '指定任意单元格
   
5.     If myRange.MergeArea.Address = myRange.Address Then
   
6.         MsgBox "该单元格不是合并单元格的一部分。"
   
7.     Else
   
8.         myRange.MergeArea.MergeCells = False    '解除单元格的合并
   
9. '       myRange.MergeArea.UnMerge    '也可以使用这个方法
   
10.     End If
    
11.     Set myRange = Nothing
    
12. End Sub
    

复制代码

玲玲1987

学习一下               

gxd2013

谢谢分享