| Sub test() Dim arr() As String '定義動態(tài)數(shù)組 Dim n As Long Dim i As Integer n = Application.WorksheetFunction.CountA(Range("A:A")) '確定A列非空數(shù)據(jù)數(shù)量 ReDim arr(1 To n) As String '根據(jù)A列數(shù)據(jù)重新定義數(shù)組 For i = 1 To n Step 1 arr(i) = Cells(i, 1) '給數(shù)組賦值 Next i End Sub 本例中需要改進的是 1. 排除空值 2. 去重 |
|
|
