建议使ç¨ä¸ä¸ªä¸é¨è¿ç¨(Sub)æ¥æ¸
空å
¨å±åéï¼å¨è¿è¡éè¦è°ç¨è¿äºå
¨å±åéçè¿ç¨ä¸è°ç¨è¿ä¸ªSubï¼
Public i As Long
Public arr() As Long
Public rng As Range
Sub æ¸
空å
¨å±åé()
i = 0
Erase arr
Set rng = Nothing
End Sub
Sub ä½ çSub()
Call æ¸
空å
¨å±åé
' ä½ ç代ç
End Sub
æå¨æ¯ä¸ªSubæ§è¡å®æ¯åè°ç¨Subæ¸
空å
¨å±åé:
Sub ä½ çSub()
' ä½ ç代ç
Call æ¸
空å
¨å±åé
End Sub
温馨提示:答案为网友推荐,仅供参考