为列表中的候选人运行宏

Posted 2023-02-24

【中文标题】为列表中的候选人运行宏

【英文标题】：Run macro for candidates in a list

【发布时间】：2020-03-07 15:50:00

【问题描述】：

我有一个名为 MACRO1 的宏，用于计算并将结果粘贴到另一个工作表。

每次我必须在名为 MAINSHEET 的工作表的单元格 B1 中输入候选人的姓名（PETER、JOHN、MARY、KATIE 等），以便在运行 MACRO1 之前更新某个范围内的值。

候选人名单被放到 MAINSHEET 的 A1:A500 上（即我必须运行 MACRO1 50000 次）。

我正在寻找一个代码来自动执行“将 A1 的值输入到 B1，运行 MACRO1，将 A2 的值输入到 B1，运行 MACRO1，将 A3 的值输入到 B1，运行 MACRO1...”的步骤。

感谢您的帮助。

【问题讨论】：

使用循环。当您没有显示您的代码时，很难更具体。

【参考方案1】：

或者如果你不想修改你的宏，让另一个为你循环运行它：

Sub loops()
Dim i As Long, ws As Worksheet
Set ws = Worksheets("MAINSHEET")
For i = 1 To 500
    ws.Range("B1") = ws.Range("A" & i)
    Call MACRO1
Next i
End Sub