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

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

3、在模块中插入代码获取最大使用列数（maxcol = ActiveSheet.Use蟠校盯昂dRange.Columns.Count）；

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