Sub test() Dim arr() As String '定义动态数组 Dim n As Long Dim i As Integer n = Application.WorksheetFunction.CountA(Range("A:A")) '确定A列非空数据数量 ReDim arr(1 To n) As String '根据A列数据重新定义数组 For i = 1 To n Step 1 arr(i) = Cells(i, 1) '给数组赋值 Next i End Sub 本例中需要改进的是 1. 排除空值 2. 去重 |
|