Excel里如何多次重复执行同一个宏

来源：百度知道 编辑：UC知道 时间：2024/06/13 11:11:30
举个简单的例子，单元格A1=B1+1，单元格B1=C1+2。但现在要求每执行一次宏都将B1的数值复制到C1（只复制数值，不会导致循环）。单次执行的宏如下：

Range("C1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

增加什么语句才能使上述这段重复N遍呢？

你例子中的代码不是B1复制到C1啊.弄反了.

Sub aaa()
for x=1 to 10 '将代码执行10次.
Range("b1").Select
Selection.Copy
Range("c1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
next
End Sub

'重复3遍
n = 3
For i = 1 To n
Range("C1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next