|
如果在聲明數(shù)組的時候，不能確定會往這個數(shù)組里存儲多少個元素，就是說不能預知數(shù)組大小。我們可以在定義數(shù)組是括號內寫空，就是：Dim 數(shù)組名 （）； Public Sub pss_Dynamic_Array()
'定義一個未知長度的數(shù)組arr
Dim arr() As String
Dim n As Long
'統(tǒng)計a列有多少個非空單元格
n = Application.WorksheetFunction.CountA(Range('A:A'))
ReDim arr(1 To n) As String
MsgBox (UBound(arr) - LBound(arr) 1)
'統(tǒng)計a2到a15不為空的單元格
n = Application.WorksheetFunction.CountA(Range('A2:A15'))
ReDim arr(1 To n) As String
MsgBox (UBound(arr) - LBound(arr) 1)
End Sub
這里的n就是動態(tài)長度。這里你運行一下就可以看到動態(tài)數(shù)組的神奇功能了。 如果運行不出來，請如圖添加數(shù)據(jù)： |
|
|
