求助EXCEL工作薄变成纯文本格式的快捷方法。

dhtpeyff

比如这个附件里的这个工作薄，里面有多个工作表。相互之前引用得有公式，如果每个工作薄里的表都手动变文本格式，表少的还好，多的话工作量就太大了。目的是去掉所有的公式，其内容格式不变。请大神们教一下要怎么才能快捷实现，谢谢！

lsdongjh

1. Sub Test()
   
2.     Dim SH As Worksheet
   
3.     Dim arr As Variant
   
4.    
   
5.     For Each SH In Sheets
   
6.         arr = SH.UsedRange
   
7.         SH.UsedRange = arr
   
8.     Next
   
9.    
   
10. End Sub

复制代码

dhtpeyff

lsdongjh 发表于 2018-9-14 17:45

貌似不行，只有前两个表成功了，后面都报错，带函数的单元格没有去掉，还保留原来函数。数据格式也全乱了啊，麻烦大神再帮忙整一下撒。又重新再看了一下。是不是这个功能只能在有合并单元格但没有筛选的情况下才能成功？

dhtpeyff

lsdongjh 发表于 2018-9-14 17:45

果然是有合并单元格的表，不能筛选。筛选就会乱。懂了，谢谢哈！╰(*°▽°*)╯