如何使用VBA删除表格中所有空白列

1、如图表格中带有很多空白列，下面操作将使用VBA代码删除；

2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【删除所有空白列】；

3、在模块中插入代码获取最大使用列数（maxcol = ActiveSheet.UsedRange.Columns.Count）；

4、通过循环语句依次从尾部遍历列（For i = maxcol To 1 Step -1  Next)；

5、在循环中插入语句，逐行判断列是否为空白，如果是就删除该行（If WorksheetFunction.CountA(Columns(i)) = 0 Then Columns(i).Delete），然后执行宏命令即可。