佛山小老鼠带您走进VBA数组(菜鸟请进)

大撕凶

请收下我的膝盖！

wode154808100

看不懂！！！！！！！！！！！！！！！！！！

mclxxy

感谢分享！值得细细品味！

nyakjsc

学习了，天天在看

年轻人·老梦

佛老师，您好，请教您一下vba多用户登录以及不同权限看工作表如何入门，看了1天的帖子和案例，不得入门，请您指教一二

CNS1993

Sub test()
    '定义相关的变量
    Dim arr(1 To 10000, 1 To 4), arr1, dic As Object, i As Long, k As Long, hang As Long, Maxrow As Long, t As Single
    t = Timer '开始记时
    Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '找到A列最后一个有数据单元格的行号
    Set dic = CreateObject("scripting.dictionary") '创建字典
    arr1 = Range("A2:e" & Maxrow) '把单元格区域装入数组
    For i = 1 To UBound(arr1, 1) '遍历数组arr1的一维
        Mystring = arr1(i, 1) & arr1(i, 3)   '把两个合起来为一个，因为字典的关键词只能装进一列
        If dic.Exists(Mystring) Then '如果字典里存在arr1这个关键词，那么
            hang = dic(Mystring) '找到这个关键词在字典里的位置，对应的Item,而字典里这种Item位置刚好和数组arr的一维对应
            '把字典里的相应的关键键对应的条目对值赋给hang
            arr(hang, 3) = arr(hang, 3) + arr1(i, 4) '累加数组arr前面所对应的数量
            arr(hang, 4) = arr(hang, 4) + arr1(i, 5) '累加数组arr前面所对应的金额
        Else
            k = k + 1 '累加k
            dic(Mystring) = k '把关键字Mystring添加到字典里，且条目对为k
            arr(k, 1) = arr1(i, 1) '把数组arr1里的第i行第1列的数据装进一个新的arr数组里的第k行第1列
            arr(k, 2) = arr1(i, 3) ''把数组arr1里的第i行第2列的数据装进一个新的arr数组里的第k行第2列
            arr(k, 3) = arr1(i, 4) ''把数组arr1里的第i行第3列的数据装进一个新的arr数组里的第k行第3列
            arr(k, 4) = arr1(i, 5) ''把数组arr1里的第i行第4列的数据装进一个新的arr数组里的第k行第4列
        End If
    Next i
    [f1:i1] = Array("型号", "产品名称", "数量", "金额") '
    Range("f2").Resize(k, 4) = arr
    MsgBox "用时" & Format(Timer - t, "0.00秒") '
End Sub

bensontc

讲得很经典，不知道自己能理解多少

zzia1112

佛山小老鼠 发表于 2013-11-13 00:14
为什么要学习数组
1.为了提速,提高代码运行速度先我看看二段代码Option Explicit
Sub 读取对象求和1() ' ...

学习了，谢谢！

zhupai22

高手啊，努力学习，早日达到此等水平

Land520

請教要轉換成UTF8，該如何轉換？否則是亂碼？