[已解决]VBA-保留某几列数据，其余列全部删除的办法

qiaodong64

比如说我想保留P、S、V、AA、BE、BF列，其余列全部删除，应该怎么办呢？

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-28 09:39

1. Sub Greenhand()
   
2.     Dim i%, rng As Range
   
3.     Set rng = Columns(256)
   
4.     For i = 1 To 255
   
5.         If i = 16 Or i = 19 Or i = 27 Or i = 57 Or i = 58 Then
   
6.             Set rng1 = Nothing
   
7.         Else
   
8.             Set rng1 = Columns(i)
   
9.             Set rng = Union(rng, rng1)
   
10.         End If
    
11.     Next
    
12.     rng.EntireColumn.Delete
    
13. End Sub

复制代码

保留指定列，其余删除

跳转到最佳答案楼层

砂海

录制 你的操作过程即可
另 : 删除 最好是 从右到左 , 从 下向上

望帝春心

1. Sub Greenhand()
   
2.     Dim i%, rng As Range
   
3.     Set rng = Columns(256)
   
4.     For i = 1 To 255
   
5.         If i = 16 Or i = 19 Or i = 27 Or i = 57 Or i = 58 Then
   
6.             Set rng1 = Nothing
   
7.         Else
   
8.             Set rng1 = Columns(i)
   
9.             Set rng = Union(rng, rng1)
   
10.         End If
    
11.     Next
    
12.     rng.EntireColumn.Delete
    
13. End Sub

复制代码

保留指定列，其余删除

qiaodong64

砂海 发表于 2016-11-28 09:35
录制 你的操作过程即可
另 : 删除 最好是 从右到左 , 从 下向上

嗯嗯，知道啦。谢谢提醒