请问如何在一个工作表中的多个指定位置后插入一列

chensongcc · 发表于 2016-9-7 09:31

在附件的表中，想在2016年4月所在列之后，插入一列，应该如何来做。感谢各位大神！！！
具体数据请见附件（压缩包）

heike2004 · 发表于 2016-9-7 10:39

仅插入一列
Sub test()
Dim i As Integer, c As Integer
For i = 4 To 21 Step 4
c = Range(Cells(3, i), Cells(3, 21)).Find([e3]).Column + 1
Columns(c).Insert
Next i
End Sub

chensongcc · 发表于 2017-1-6 10:53

heike2004 发表于 2016-9-7 10:39
仅插入一列
Sub test()
Dim i As Integer, c As Integer

万分感谢！！！很好用

ake5397 · 发表于 2019-12-4 10:50

如果在多个指定列后面插入列怎么写代码呢

		自动登录	找回密码
密码			免费注册