请教各位高手如何将下面录制的宏改成循环形式的VBA，遇连续两行没数时停止。谢谢

显示全部楼层 · 2011-5-30 14:09:55

Sub zhehang()
' zhehang Macro
' 宏由 999宝藏网录制，时间: 2011-5-25
'

Rows("3:3").Select

Selection.Insert Shift:=xlDown

Range("N1:AA2").Select

Selection.Cut

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Range("A3").Select

ActiveSheet.Paste
是奇数循环

千问 · 2011-5-30 14:09:55

你想完成什么功能？...