二维数组填入表中指定区域

http://club.excelhome.net/thread-1148458-1-1.html

工作表区域赋值到数组
arr = [a1:d10]

数组输出到工作表区域
[a1:d10] = arr

或者：

工作表区域赋值到数组
arr = [a1].CurrentRegion

数组输出到工作表区域
[a1].CurrentRegion = arr

或者：
工作表区域赋值到数组
arr = [a1].Resize(10,5)

数组输出到工作表区域
[a1].Resize(10,5) = arr

工作表区域赋值到数组
arr = [a1:d10]

数组输出到工作表区域
[a1:d10] = arr

或者：

工作表区域赋值到数组
arr = [a1].CurrentRegion

数组输出到工作表区域
[a1].CurrentRegion = arr

或者：
工作表区域赋值到数组
arr = [a1].Resize(10,5)

数组输出到工作表区域
[a1].Resize(10,5) = arr

Sub aa() ''整个数组赋值给另一区域
Dim arr
arr = [a1:d8]
[a11].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

Sub bb() ''只赋数组中某行（如第2行）
Dim arr
arr = [a1:d8]
[a21].Resize(1, UBound(arr, 2)) = Application.Index(arr, 2, 0)
End Sub

Sub cc() ''只赋数组中某列（如第3列）
Dim arr
arr = [a1:d8]
[g1].Resize(UBound(arr), 1) = Application.Index(arr, 0, 3)
End Sub