开发学院软件教学办公软件Excel VBA数组学习笔记(三) 阅读

VBA数组学习笔记(三)

 2009-10-03 14:36:41 来源:WEB开发网   
核心提示: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

Tags:VBA 数组 学习

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接