|
- Sub 提取不重复值2() '数组遍历法
- Application.ScreenUpdating = False
- Dim ARR1, ARR2, K, I, J
- ARR1 = Range("b3:b" & Range("b65536").End(xlUp).Row)
- ReDim ARR2(1 To 1, 1 To 1)
- ARR2(1, 1) = ARR1(1, 1)
- K = 0
- For I = 2 To UBound(ARR1, 1)
- If Len(ARR1(I, 1)) Then
- For J = 1 To UBound(ARR2, 2)
- If ARR1(I, 1) = ARR2(1, J) Then
- GoTo 100
- End If
- Next J
- K = K + 1
- ReDim Preserve ARR2(1 To 1, 1 To K)
- ARR2(1, K) = ARR1(I, 1)
- 100:
- End If
- Next I
- Range("G3:G65536").ClearContents
- Range("G3").Resize(UBound(ARR2, 2), 1) = Application.Transpose(ARR2)
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
查看全部评分
|