58问答库 > VBA 我在EXCEL 插入模块1，写了6个程序测试，全选程序后运行，每次只有第一个运行，后面的不运行

VBA 我在EXCEL 插入模块1，写了6个程序测试，全选程序后运行，每次只有第一个运行，后面的不运行

2024-11-28 13:43:27

推荐回答（2个）

回答（1）：

按你的方法当然每次只运行一个程序了，想全部运行有两个方法：
1、把全部代码写入一个sub过程中，如下：
sub 公式
range("b1")=1
range("b2")=2
range("b3")=3
range("b4")=4
range("b5")=5
range("b6")=6
end sub
或
sub 公式
for i=1 to 6
range("b" & i)=i
next
end sub

2、用call调用所有过程，如下：
sub 执行全部
call 公1:call 公2:call 公3:call 公4:call 公5:call 公6
end sub

回答（2）：

循环就行了，一个程序实现6个程序的效果。

Sub test()
    Dim i As Long
    For i = 1 To 6
        Cells(i, 2) = i
    Next i
End Sub