Question

我正在寻找一个可用于在excel宏中重复语句的函数。案件是这样的：

我在我的宏中有这样的声明：

 alline = alline & "Department Section" & Chr(10)
 alline = alline & "sectorNumber=" & """" & "1" & """" & Chr(10)
 alline = alline & Chr(10)

 alline = alline & "<Sector" & Chr(10)
 alline = alline & "sectorNumber=" & """" & "2" & """" & Chr(10)
 alline = alline & Chr(10)

 alline = alline & "<Sector" & Chr(10)
 alline = alline & "sectorNumber=" & """" & "3" & """" & Chr(10)
 alline = alline & Chr(10)

如果我使用此命令，我的excel宏程序将太大而无法编译。
我是否可以简化命令，以便减少由宏编译的内存？

感谢您的关注。

Answer 1

如果您想多次执行某些操作，则需要使用loop语句：

对于语句（最常见的循环语句）：

样品：

For i = 1 To 8
    'Your code here
Next i

主：

For <counter variable> = <start number> to <end number> [step <step number>]
    'Codes
Next [<counter variable>]
'Default step number is 1

所以你可以这样使用：

For i =1 to 8
     alline = alline & "<Sector" & Chr(10)
     alline = alline & "sectorNumber=" & """" & CStr(i) & """" & Chr(10)
     alline = alline & Chr(10) 
Next i

在excel宏中重复语句

1 个答案: