如何使用VBA删除表格中所有空白列呢？下面我来操作演示一下，希望对大家有用！

工具/原料

  • 联想ThinkPad X13
  • Windows7或10
  • Excel2016

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

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

  4. 4

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

  5. 5

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

    END

注意事项

  • Tips：如有错误，欢迎指正；欲知更多相关信息，请关注我！
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。