Question

我是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

Answer 1

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

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

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

Answer 2

我也不清楚它们将如何运行 - 当添加新细胞时，该过程是否会在后台持续发生？或者我每次需要时都会手动运行它？

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

运行Excel VBA脚本

2 个答案: