UC知道EXCEL宏的问题请指教
来源：百度知道 编辑：UC知道 时间：2024/07/02 14:28:49
Sub Macro1()
'
' Macro1 Macro
' 宏由 pc339a 录制，时间: 2007-9-21
'
'
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.Insert Shift:=xlDown
End Sub
这是录出的程序
我现在是要它能自动插入一行,比如是:
1
1
1
我要它能这样
1
1
1
这段程序要怎么改啊,请各位指教啊.
因为数据有很多,不只有3条,是不是要写个循环啊,
望各位看看 ,,最后可以帮写写,,谢了啊....
'
' Macro1 Macro
' 宏由 pc339a 录制，时间: 2007-9-21
'
'
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.Insert Shift:=xlDown
End Sub
这是录出的程序
我现在是要它能自动插入一行,比如是:
1
1
1
我要它能这样
1
1
1
这段程序要怎么改啊,请各位指教啊.
因为数据有很多,不只有3条,是不是要写个循环啊,
望各位看看 ,,最后可以帮写写,,谢了啊....
是要有个循环
on error resume next
Dim i As Long
Dim n As Long
For i = 1 To 65536
If Len(Sheet1.Cells(i, 1).Value) = 0 Then
n = i * 2
Exit For
End If
Next
For i = 2 To n Step 2
Sheet1.Rows(i).Insert Shift:=xlDown
Next