要顺序执行。
Sub 宏1()
Dim arr() As Variant
arr = Array(6, 8, 11, 15)
lastrow = Cells(Rows.Count, 1).End(3).Row
For i = 0 To 3
For j = 1 To lastrow
Cells(j, i+2) = Cells(j, 1) * arr(i)
Next
MsgBox ("乘以" & ar(i))
Next
End Sub
可以顺序执行，不可以同时执行。
这个结果存放在什么地方，A列还是其它列？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024