[分享]VBA数组学习笔记

王京

哈哈，现在才知道才知道这个是蓝桥！

autumnalRain

northwolves 发表于 2008-4-1 22:25
赋值方面的补充：Sub y()Dim arrarr = [mmult(row(1:100),column(a:f))][a1].Resize(100, 6) = arrEnd SubS ...

大师，这里的arr = [mmult(row(1:100),column(a:f))]里面的mmult和row以及column是工作表函数吗？VBA中好象row\column只作为属性使用的，但是如果是工作表函数怎么没有用Application.worksheetfunction?

wbjjzhu

谢谢楼主的分享，收藏了！

赵莲

赋值方面的补充：
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

赵莲

3.3，转置
取工作表区域的转置到数组：arr=Application.Transpose([a1:c5])  ‘此时arr是转置成3行5列的数组，arr(1 to 3,1 to 5)
[e1:i3]=arr   ‘此时3行5列。
数组间也可以转置：arr1=Application.Transpose(arr)
取数组arr的第n列赋值到某列区域：[e1:e5]=Application.Index(arr, 0, n)
也可写成 [e1:e5]=Application.Index(arr, , n)
赋值产生一个新数组：arr1=Application.Index(arr,0 , n)
取数组arr的第n行赋值到某行区域：[a6:c6]=Application.Index(arr,n ,0 )
也可写成 [a6:c6]=Application.Index(arr,n ) 省略0，也省略了“，“
赋值产生一个新数组：arr1=Application.Index(arr, n )
3.4，数组的比较（字典法）
题目：将A列中的数据与C列相比较,输出C列中没有的数据到D列：
Sub cc()
‘by:ccwan
    Dim arr, brr, i&, x&, d As Object
    arr = Range("a1:a" & [a65536].End(xlUp).Row)
    brr = Range("c1:c" & [c65536].End(xlUp).Row)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = ""
    Next
    For x = 1 To UBound(brr)
        If d.exists(brr(x, 1)) Then
            d.Remove brr(x, 1)
        End If
    Next
    [d1].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub
蓝桥玄霜的“自编宏及实例选”系列之一～之五