[已解决]VBA如何把所有合并单元格取消合并

laoau138

VBA如何把所有合并单元格取消合并

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-28 09:33

1. Sub aaa()
   
2. Dim rng As Range
   
3. Application.FindFormat.MergeCells = True
   
4. Application.ScreenUpdating = False
   
5. Set rng = Cells.Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True)
   
6. Do
   
7.   With rng.MergeArea
   
8.     .MergeCells = False
   
9.     .Value = rng
   
10.   End With
    
11.   Set rng = Cells.Find(What:="", After:=rng, SearchFormat:=True)
    
12.   If rng Is Nothing Then Exit Do
    
13. Loop
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim rng As Range
   
3. Application.FindFormat.MergeCells = True
   
4. Application.ScreenUpdating = False
   
5. Set rng = Cells.Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True)
   
6. Do
   
7.   With rng.MergeArea
   
8.     .MergeCells = False
   
9.     .Value = rng
   
10.   End With
    
11.   Set rng = Cells.Find(What:="", After:=rng, SearchFormat:=True)
    
12.   If rng Is Nothing Then Exit Do
    
13. Loop
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-10-28 09:33

VBA用两种方法实现计算一列结果


http://www.excelpx.com/thread-435190-1-1.html