vb 宏 ssss

Sub 儅僋儘僥僗僩1()

'

' 循环快捷插入行（复制的内容） Macro

'

' Keyboard Shortcut: Ctrl+Shift+D

'

Dim i, j As Long

i = 95

For j = 1 To 92

i = i + 4

Rows("83:85").Select

Selection.Copy

Rows(i & ":" & i).Select

Selection.Insert Shift:=xlDown

Next

End Sub

Sub 儅僋儘僥僗僩2()

'

' 循环删除 Macro

'

'

Dim i, j As Long

i = 0

For j = 1 To 102

i = i + 6

Rows(i & ":" & i).Select

Selection.Delete Shift:=xlUp

Next

End Sub

Sub 儅僋儘僥僗僩3()

'

' 循环copy赋值3 Macro

'

'

Dim i, j, k As Long

k = 381

i = 381

For j = 1 To 28

i = i + 1

k = k + 4

Range("AZ" & i).Select

Selection.Copy

Range("G" & k).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Next

End Sub