[已解决]请进

hezhiyee

优化代码：

  '去公式变数值
    Range("B21:U21").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues
    '删除列
    Sheets("已比对").Columns("B:C").EntireColumn.Delete
    Sheets("未比对").Columns("B:C").EntireColumn.Delete
    Sheets("未采集").Columns("B:C").EntireColumn.Delete

最佳答案

月排行榜 / 总排行榜

冥王

2014-5-22 21:19

去除公式：

1. Range("B21:U21") = Range("B21:U21").Value

复制代码

删除列：

1. Dim arr
   
2. arr = Array("已比对", "未比对", "未采集")
   
3. For i = LBound(arr) To UBound(arr)
   
4.     Sheets(arr(i)).Columns("B:D").EntireColumn.Delete Shift:=xlToLeft
   
5. Next

复制代码

跳转到最佳答案楼层

冥王

去除公式：

1. Range("B21:U21") = Range("B21:U21").Value

复制代码

删除列：

1. Dim arr
   
2. arr = Array("已比对", "未比对", "未采集")
   
3. For i = LBound(arr) To UBound(arr)
   
4.     Sheets(arr(i)).Columns("B:D").EntireColumn.Delete Shift:=xlToLeft
   
5. Next

复制代码

su45

第一部份优化应该，第二部份就不一定了，如果你有很多页，那么用你的原代码反而会更快些！

hezhiyee

su45 发表于 2014-5-22 22:05
第一部份优化应该，第二部份就不一定了，如果你有很多页，那么用你的原代码反而会更快些！

谢谢，我再试试。