文件夹下多个EXCEL薄,每个薄有多个表,求VBA一次性取消所有合并单元格

文件夹下多个EXCEL薄,每个薄有多个表,求VBA一次性取消所有合并单元格,第1张

给你一段核心代码,是查找单一工作表内所有合并单元格的。再取消合并单元格。

你自己百度学习学习,找找多工作簿多工作表怎么循环进行。

Sub UnMergeCells()
  Dim FindStr As String, Rng As Range, mRng As Range
  ApplicationFindFormatClear  
  ApplicationFindFormatMergeCells = True  
  With Cells
    Set Rng = Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True)  '按格式查找
    If Rng Is Nothing Then MsgBox "没有合并单元格": Exit Sub  
    Set mRng = Rng  
    FindStr = RngAddress  
    Do
      Set mRng = Union(mRng, Rng)  
      Set Rng = Find(What:="", After:=Rng, SearchFormat:=True)  
    Loop While FindStr <> RngAddress  
    mRngunmerge  
  End With
End Sub

取消合并单元格:

工具/原料:magicbook、Windows 10、WPS2019。

1、双击打开桌面上的WPS2019。

2、单击新建WPS表格空白文档。

3、单元格中输入文字资料。

4、选定需要合并的单元格,至少两个或以上的单元格。

5、单击开始菜单中合并图标。

6、取消合并单元格的 *** 作,选定已合并的单元格,再次单击合并图标,即可取消合并。

windows10
里的新功能,当你重命名一个文件夹知的时候,会提示你是否合并,如果你选择是,则会替换你原来的文道件夹,如果你选择否,则会产生专两个文件夹,也就是说你重命名后的文件夹是复制了原来的文件夹并用属新的名字,而原来的文件夹不变。

Win7系统文件夹合并如何不让两边文件消失的方法如下:
可以合并文件夹时,选择合并但是要保留两个文件的内容就可以了。
Win7文件夹不能替换只能合并是因为文件夹名相同的情况下,系统为了防止误删原文件夹里的内容,这其实是一种人性化的设计。
如果用户确认需要替换掉原文件夹里内容的话,可以先删除该文件夹,再将与之同名的文件夹鼠标拖拽到该目录下。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13119482.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-06-03
下一篇 2023-06-03

发表评论

登录后才能评论

评论列表(0条)

保存