Question

用VBA删除指定列

像删除第2,7,12,17,22.......后面数据多少不一定，打个比方如下

Answer 1

1、打开Excel表格，使用【Alt】+【F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

2、在VBA编辑器的菜单栏上面点击【插入】，【模块】。

3、在VBA编辑器的代码框里面输入以下程序：

sub test11

for j = Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1

if cells(1,j)="列名"  then

columns(j).delete

end if

next

end sub

4、点击VBA编辑器工具栏上面的“运行”图标运行程序，或者按下【F5】键运行程序。

5、然后程序运行完成后，将会弹出删除多少行的提示，Excel表格上面满足条件的行已经被删除。

Answer 2

Sub test()
Dim i As Integer, MyRange As Range
Set MyRange = Columns(2)
For i = 2 To 22 Step 5 '最后一列暂时定为第22列，你可以自己调整
Set MyRange = Union(MyRange, Columns(i))
Next i
MyRange.Select
MyRange.Delete
End Sub

Answer 3

应从右向左删，因为列数是个动态值，第二列永远都会在的，你删除了第二列，第三列自动晋级。所以要从右向左。行数同样。从下而上

Answer 4

Sub test()
Dim i As Integer, MyRange As Range
Set MyRange = Columns(2)
For i = 2 To 22 Step 5
'最后一列暂时定为第22列，可以自己调整

Set MyRange = Union(MyRange, Columns(i))
Next i
MyRange.Select
MyRange.Delete
End Sub