如何使用VBA在Excel中逐列插入空白栏呢？下面我来操作演示一下，希望对大家有用！
工具/原料
联想ThinkPadX13
Windows7或10
Excel2016
方法/步骤
1、打开一个演示表格，下面操作将会在每列后面插入空白栏；
2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【逐列插入空白栏】；
3、定义变量保存最大列数（maxcol=ActiveS丝群闻栝heet.UsedRange.Columns.Count）；
4、通过循环语句依次遍历栏（Fori=maxcol陴鲰芹茯+1To3Step-1Next)，插入的过程实际是移动的过程，将列向后移动一列，因为第一列不；
5、在循环体内插入动态移动语句（Columns(i).InsertxlShiftTo六咝媲拜Right,xlFormatFromRightOrBelow）；
6、执行宏，得到逐栏空白间隔的表格。
