用VBA如何在excel中每隔三列添加一列，一共需要添加300多列呢？谁能帮帮我，急用呢，谢谢！

Question

或者直接在excel中直接添加也行，有什么快速的方法吗？

Answer 1

选中第一行，插入，在上方插入行

在B1单元格输入公式=IF(MOD(COLUMN(),3)=1,TRUE,"")

向右填充公式到表格最后列

选中第一行，按Ctrl+G 定位条件，依次选择：公式-->去除下方所有勾选，只勾选一个“逻辑值”-->确定

这时应该选中了第一行中所有的true

然后在选中单元格上按鼠标右键，选择“插入”

弹出窗口选择整列，点确定

删除刚才插入的第一行辅助


完成

Answer 2

Sub add()
Dim i%
For i = 1 To 100
ActiveSheet.Columns(4 * i).Insert
Next i
End Sub

Answer 3

你是增加空白列吗

Answer 4

可以写个VBA 做，收费处理 [email protected]

Answer 5

快发文件来！