调和的松树林

Sub Macro1()
‘
‘ Macro1 Macro
‘ 宏由 gdzhang 录制，时间: 2007-8-29
‘

‘隔行插入宏1
Dim ttt As Integer
For R = 2 To 12 Step 2
Rows(R).Insert Shift:=xlDown
Range(”B” & (R - 1)).Select
Selection.Copy
Range(”A” & R).Select
ActiveSheet.Paste
Next
End Sub
Sub Macro2()
‘
‘ Macro2 Macro
‘ 宏由 gdzhang 录制，时间: 2007-8-29
‘

‘隔行删除
Dim ttt As Integer
For R = 2 To 7 Step 1
Rows(R).Delete Shift:=xlUp
Next
End Sub

Sub Macro3()
‘
‘ Macro3 Macro
‘ 宏由 gdzhang 录制，时间: 2007-8-29
‘

‘隔行插入宏2
For R = 2 To 12 Step 2
Rows(R).Insert Shift:=xlDown
Next
For R = 1 To 11 Step 2
Cells(R, 2).Select
Selection.Copy
Cells(R + 1, 1).Select
ActiveSheet.Paste
Next
End Sub