多次運行宏

Question

假設我有一個宏，它將單元格A1中的數字複製並粘貼到單元格B1，從單元格A2複製到B2等。我記錄了這個宏。如果我在A中有一列數字，我將如何多次運行宏而不必爲每個宏手動運行它？

這裏是例子：

A B 
    1 1 #copies number from column A to column B 
    2 2 

我不希望有按下A中的每個細胞熱鍵運行宏。我想同時爲A列中的所有值運行宏。

Answer 1

試試看。這將倒計時，直到三是subracted爲0。你可以用多少行充滿計數代替它 - 1.

Sub Test() 
Call RunMainMacro(3) 'run macro 3 times 
End Sub 

Sub RunMainMacro(ByRef Times) 
Do 
    Application.Run " 'project1.xlsm'!MainMacro" 
    Times = Times - 1 
    DoEvents 
Loop Until Times = 0 
End Sub 

從

Answer 2

你不能只是做：

Columns("A").Copy Range("B1") 

這都將A列複製到B列