[已解决]遍历所有工作表取消合并单元格并还原内容

wenwen000424

将数据箱中所有工作薄中的工作表(表格的行列数不固定)取消所有合并单元格(范围不固定)并还原内容,效果请参见:A取消合并单元格示例文件.xls,敬请帮助,谢谢! 求助.rar (17.19 KB, 下载次数: 5)

2013-10-24 13:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2013-10-24 14:49

1. Sub UnMergeCells()
   
2. Dim Temp, rng As Range, sh
   
3. For Each sh In ThisWorkbook.Sheets
   
4. For Each rng In sh.UsedRange
   
5. If rng.MergeCells Then
   
6. Temp = rng.MergeArea.Address(0, 0)
   
7. rng.MergeCells = False
   
8. sh.Range(Temp) = rng
   
9. End If
   
10. Next
    
11. Next
    
12. ThisWorkbook.Save
    
13. End Sub

复制代码

更新附件，完成批量更改
解除合并.zip (51.58 KB, 下载次数: 22)

2013-10-24 15:22 上传

点击文件名下载附件

跳转到最佳答案楼层

suye1010

1. Sub UnMergeCells()
   
2. Dim Temp, rng As Range, sh
   
3. For Each sh In ThisWorkbook.Sheets
   
4. For Each rng In sh.UsedRange
   
5. If rng.MergeCells Then
   
6. Temp = rng.MergeArea.Address(0, 0)
   
7. rng.MergeCells = False
   
8. sh.Range(Temp) = rng
   
9. End If
   
10. Next
    
11. Next
    
12. ThisWorkbook.Save
    
13. End Sub

复制代码

更新附件，完成批量更改
解除合并.zip (51.58 KB, 下载次数: 22)

2013-10-24 15:22 上传

点击文件名下载附件

ppp710715

2楼正解。学习了！

wenwen000424

suye1010 发表于 2013-10-24 14:49
更新附件，完成批量更改

又学到一招，谢谢！

上清宫主

找合并单元格，可先 Application.FindFormat.MergeCells = True后再用find，而不必每个单元去看他是否属于合并了的，太不经济