论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Excel教程
Tag:excel2000,excel2003,excel2007,函数,日期,时间,格式,技巧,表格,插入,,筛选,导入,导出,单元格,图表,打印,数据分析,排序,统计,公式,视频教程

VBA数组学习3

文章类别:Excel | 发表日期:2009-10-3 12:54:48

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

上一篇:{教程}excel导入数据到db2中的方法 人气:2655
下一篇:{教程}VBA数组学习2 人气:3223
视频教程列表
文章教程搜索
 
Excel推荐教程
Excel热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058