运行 Excel VBA 脚本答案

【问题标题】：Running an Excel VBA script运行 Excel VBA 脚本
【发布时间】：2014-06-17 18:25:10
【问题描述】：

我对 Excel 和 VBA 完全陌生，并且收到了一些需要运行的旧代码，但我不清楚在哪里运行它。它可能只是一个我找不到的菜单项......但我也不清楚这些将如何运行 - 添加新单元格时该过程是否在后台连续发生？还是我每次需要时都手动运行它？

Sub CopyData()   
Dim lRow As Long   
Dim RepeatFactor As Variant   

lRow = 1   
Do While (Cells(lRow, "A") <> "")   

    RepeatFactor = Cells(lRow, "B")   
    If ((RepeatFactor > 1) And IsNumeric(RepeatFactor)) Then   

       Range(Cells(lRow, "A"), Cells(lRow, "B")).Copy   
       Range(Cells(lRow + 1, "A"), Cells(lRow + RepeatFactor - 1, "B")).Select   
       Selection.Insert Shift:=xlDown   

       lRow = lRow + RepeatFactor - 1   
    End If   

    lRow = lRow + 1   
Loop 

End Sub

【问题讨论】：

标签： vba excel loops

【解决方案1】：

不用担心，我们都从某个地方开始。

如果您右键单击您的工作表（在左下角），则会出现一个菜单。然后点击“查看代码”：弹出VBA编辑器。右键单击左侧项目树中的项目名称，然后“插入模块”。将该代码复制并粘贴到模块中。

要运行代码，请尝试在 Excel 文档中插入一个形状，右键单击它，然后单击“分配宏”并选择“复制数据”

【讨论】：

这也是一个很好的起点：msdn.microsoft.com/en-us/library/ee814737(v=office.14).aspx

【解决方案2】：

我也不清楚这些将如何运行——当添加新单元格时，该过程是否在后台连续发生？还是我每次需要时都手动运行它？

这些取决于您实际想要完成的任务。如果您需要它在每次发生某些事情时运行，您可以设置 VBA 来执行此操作 - 通过在某些事件发生时（如选择更改）指示它运行代码。

【讨论】：