Question

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

举个简单的例子，单元格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遍呢？

Answer 1

你例子中的代码不是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

Answer 2

新建一个过程
比如SUB
A()
在里面
用CALL调用要指定的那个宏过程B
代码如下
SUB
A()
CALL
B
CALL
B
END
SUB
如果是多次，加一个FOR循环即可,比如运行10次B过程
SUB
A()
for
i=1
to
10
CALL
B
next
END
SUB

Answer 3

'重复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