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
