第3例我們學(xué)會(huì)了如何把單元格中的數(shù)據(jù)搬入內(nèi)存，變身為VBA數(shù)組。那么，VBA數(shù)組怎么輸回到單元格中呢？就象菜做好了，怎么更快的上桌呢？

1、二維數(shù)組的導(dǎo)入：

VBA中常見的數(shù)組形式有一維數(shù)組和二維數(shù)組，相比一維數(shù)組，二維數(shù)組輸入則較為簡(jiǎn)單，直接放在一個(gè)單元格區(qū)域中就可以，即：

       Range(單元格區(qū)域)=arr

        '這里arr是一個(gè)二維數(shù)組，值得注意的是如果單元格區(qū)域小于二維數(shù)組，則顯示二維數(shù)組的前面一部分?jǐn)?shù)據(jù)，而如果單元格區(qū)域大于二維數(shù)組的數(shù)據(jù)儲(chǔ)存量，則會(huì)顯示錯(cuò)誤值。

二維數(shù)組導(dǎo)入單元格示例：

如下圖所示，要求在D列計(jì)算金額

代碼：

Sub test()
 Dim arr     '聲明一個(gè)變量用來盛放單元格數(shù)據(jù)
 Dim x As Integer
 arr = Range('a2:d5')     '把單元格數(shù)據(jù)搬入到arr里，它有4列4行
 For x = 1 To 4     '通過循環(huán)在arr數(shù)組中循環(huán)
   arr(x, 4) = arr(x, 3) * arr(x, 2)     '數(shù)組的第4列(金額)=第3列*第2例
 Next x
Range('a2:d5') = arr     '把數(shù)組放回到單元格中
End Sub

2、一維數(shù)組的導(dǎo)入：

   一維數(shù)組只有一排數(shù)據(jù)，而導(dǎo)入到單元格中卻有兩種選擇：導(dǎo)入到一行里 或 導(dǎo)入到一列中。

  1）導(dǎo)入成為一行數(shù)據(jù)。

        VBA 一維數(shù)組的排列方式 等同于 單元格中行方向排列，所以可以直接導(dǎo)入工作表的一行單元格里。而如果要放在一列中，則需要調(diào)用工作表函數(shù)transpose轉(zhuǎn)置后再導(dǎo)入。例：

Sub test1()
 Dim arr(1 To 5) '聲明一維數(shù)組
 For x = 1 To 5
   arr(x) = x * 2  '通過循環(huán)給每個(gè)位置賦值
 Next x
Range('A1:E1') = arr '把數(shù)組導(dǎo)入到excel中的a1:e1單元格中
Range('A1:A5') = Application.Transpose(arr) '如果是放在一列中,就需要對(duì)數(shù)組進(jìn)行轉(zhuǎn)置后再存放
End Sub

//-----------------------------------------------------------------------------

VBA數(shù)組與EXCEL單元格