急急急！如何隔一行插入一个空行？

liguohui001 · 发表于 2013-5-6 13:16

Dim a As Integer
Dim b As Integer
a = WorksheetFunction.CountA(Range("a:a"))
b = 2
For x = 1 To a
Rows(b & ":" & b).Select
Selection.Insert Shift:=xlDown
b = b + 2
Next
End Sub

爱篮球 · 发表于 2013-5-6 15:14

很多人又宏用不来

星新学者 · 发表于 2013-6-18 10:34

我用的61楼的方法，挺简单的！

0214bsky · 发表于 2013-8-15 15:28

201228 发表于 2013-4-8 20:19
。。。。哇，这个帖子你都看了啊。

对啊选择比较好的方法

鲤鱼点点头 · 发表于 2013-8-23 11:11

8楼威武！~~~~

樱落若 · 发表于 2013-9-27 11:20

8l楼很赞啊

sincor · 发表于 2013-9-27 15:43

用按键精灵嘛就是录制回放宏的思路是一样的

又忆江南 · 发表于 2013-10-12 21:38

8楼真是太聪明了,佩服佩服,牛人

1直通车 · 发表于 2013-10-12 21:57

是啊，自己录个VBA吧

weyer11 · 发表于 2013-10-20 14:06

增加辅助列，真是个好办法！

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

[已解决] 急急急！如何隔一行插入一个空行？