把填充为白色的单元格的公式粘贴为文本

xinlan55

各位大神，这个代码可以用，但运行效率不高，有没有更好的方法能够实现同样效果的？

1. Sub copy()
   
2.       Dim ws As Worksheet
   
3.       Dim cell As Range
   
4.       Application.ScreenUpdating = False
   
5.       Set ws = ActiveSheet '设置当前活动工作表为变量ws
   
6.       For Each cell In ws.UsedRange '对于工作表中所有使用过的单元格
   
7.             If cell.Interior.ColorIndex = 2 Then '如果单元格背景色为白色
   
8.                 cell.Select ' 选中该单元格
   
9.                 cell.Copy '复制当前单元格的内容
   
10.                 cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ''将值粘贴为纯文本
    
11.                 Application.CutCopyMode = False ' 清除剪贴板中的内容
    
12.             End If
    
13.       Next cell '继续对工作表中下一个单元格进行操作
    
14.       Application.ScreenUpdating = True
    
15. End Sub ' 结束子过程
    

复制代码

ykcbf1100

没有附件，只能这样贴一下了。