VBA数组学习笔记(三)

核心提示：3.5，数组的排序字符串数组不能用Large(Arr,i) 或者 Small(Arr,i) 来排序；但数值数组可以；一个很好的字典+数组排序的实例：Sub yy1()‘by:oobird Dim i%, c As Range, x, d As ObjectSet d = CreateObject("Scrip

3.5，数组的排序

字符串数组不能用Large(Arr,i) 或者 Small(Arr,i) 来排序；

但数值数组可以；

一个很好的字典+数组排序的实例：

Sub yy1()

‘by:oobird

Dim i%, c As Range, x, d As Object

Set d = CreateObject("Scripting.Dictionary")

For Each c In Sheet2.UsedRange

　  If c.Value <> "" Then

　  If Not d.exists(c.Value) Then

　　　  d.Add c.Value, 1

　  Else

　　　  d(c.Value) = d(c.Value) + 1

　  End If

　  End If

Next

　  k = d.keys: t = d.items　  'k是各个不重复值，t是各个不重复值的个数

　  ReDim x(1 To 2, 1 To d.Count)

For i = 1 To d.Count

　  x(2, i) = application.Large(k, i)　 ‘从大到小排序

　  x(1, i) = d(x(2, i))

Next i

With Sheet1

　  .[b2].Resize(2, i - 1) = x

　  ReDim x(1 To 2, 1 To d.Count)

　  For i = 1 To d.Count

　  x(1, i) = Application.Max(t)　 ‘从大到小排序

　  w = Application.Match(x(1, i), t, 0) – 1　  ‘查找此值在不重复值系列中的排位，因为w是从0开始的，所以－1

　　　  x(2, i) = k(w)　  ‘求得对应的不重复值

　  t(w) = ""　　 ‘使前面的最大值为空，继续循环

　  Next i

　  .[b5].Resize(2, i - 1) = x　  ‘两行一起赋值给B5开始的单元格

End With

End Sub

字符串数组的排序，可以使用辅助列，把数组各元素依次赋给单元格，然后对这些单元格运用Excel自有的数据排序功能进行排序，再把单元格排过序的值重新赋给数组。

3.6，数组赋给单元格区域

r=Ubound(Arr) r为一维数组的上限;

Range("a2").Resize(1, r) = Arr '填充到工作表的一行之中（Arr为一维数组）

或者写成 Range("a2").Resize(1, Ubound(Arr)) = Arr

二维数组Arr(100,5)

Range(“a1”).Resize(100,5)=Arr

[a1:e100]=Arr

或者写成 Range("a1").Resize(Ubound(Arr,1), Ubound(Arr,2)) = Arr

赋值方面的补充：

Sub y()
Dim arr
arr = [mmult(row(1:100),column(a:f))]
[a1].Resize(100, 6) = arr
End Sub

Sub yy()
Dim arr
arr = [column(a:z)^3]
MsgBox Join(arr, ",")
arr = [transpose(row(1:222))]
MsgBox Join(arr, ",")
End Sub

Sub yyy()
Dim arr
arr = Split("a b c d e f g")
MsgBox Join(arr, ",")
End Sub