UC知道EXCEL宏的循环问题
来源：百度知道 编辑：UC知道 时间：2024/06/26 01:37:28
这是我在EXCEL中录制的一个宏
Sub Macro4()
'
' Macro4 Macro
' 宏由 User 录制，时间: 2008-5-24
'
'
Range("C133:C135").Select
Selection.Copy
Range("F132").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
现在要求做循环，比如下一个应该是这样：
Range("C137:C139").Select
Selection.Copy
Range("F136").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
所有的数值增加4，直到C640为止，请各位高手赐教
Sub Macro4()
'
' Macro4 Macro
' 宏由 User 录制，时间: 2008-5-24
'
'
Range("C133:C135").Select
Selection.Copy
Range("F132").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
现在要求做循环，比如下一个应该是这样：
Range("C137:C139").Select
Selection.Copy
Range("F136").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
所有的数值增加4，直到C640为止，请各位高手赐教
Sub Macro4()
Dim i As Integer
For i = 132 To 140 Step 4
Range(Cells(i + 1, 3), Cells(i + 3, 3)).Select
Selection.Copy
Cells(i, 6).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next
End Sub
代码经过调试，对于你给出的例子正确。
即是说下一个是应该是：
Range("C141:C143").Select
Selection.Copy
Range("F140").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub