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

工作表區(qū)域賦值到數(shù)組
arr = [a1:d10]

數(shù)組輸出到工作表區(qū)域
[a1:d10] = arr

或者：

工作表區(qū)域賦值到數(shù)組
arr = [a1].CurrentRegion

數(shù)組輸出到工作表區(qū)域
[a1].CurrentRegion = arr

或者：
工作表區(qū)域賦值到數(shù)組
arr = [a1].Resize(10,5)

數(shù)組輸出到工作表區(qū)域
[a1].Resize(10,5) = arr

工作表區(qū)域賦值到數(shù)組
arr = [a1:d10]

數(shù)組輸出到工作表區(qū)域
[a1:d10] = arr

或者：

工作表區(qū)域賦值到數(shù)組
arr = [a1].CurrentRegion

數(shù)組輸出到工作表區(qū)域
[a1].CurrentRegion = arr

或者：
工作表區(qū)域賦值到數(shù)組
arr = [a1].Resize(10,5)

數(shù)組輸出到工作表區(qū)域
[a1].Resize(10,5) = arr

Sub aa() ''整個(gè)數(shù)組賦值給另一區(qū)域
Dim arr
arr = [a1:d8]
[a11].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

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

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