[已解决]单个工作簿所有工作表选择性粘贴

乐乐2006201506

单个工作簿所有工作表选择性粘贴去除公式，并且保证清除公式后不能出现其他随机数据。谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-11 09:41

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     arr = Sheets(i).UsedRange
   
4.     Sheets(i).UsedRange = arr
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 1 To Sheets.Count
   
3.     arr = Sheets(i).UsedRange
   
4.     Sheets(i).UsedRange = arr
   
5. Next
   
6. End Sub

复制代码

乐乐2006201506

这个代码完全可以实现清除公式的效果，但是身份证号码单元格中身份证后四位都变为“0”了。怎么办？

乐乐2006201506

谢谢您的关注，我用这种方法解决了这个问题，谢再次感谢！
Sub Macro1()
    For i = 1 To Sheets.Count
        With Sheets(i)
            If i = 1 Then .Range("AD3:AD65536").NumberFormat = "@"
            arr = .UsedRange
            .UsedRange = arr
        End With
    Next
End Sub