用VBA删除指定列

Question

如题所述

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表格上面满足条件的行已经被删除。