php数组写入xls技巧_把数据从数组写入工作表看这一篇就够了。

1：二维数组放入事情表。

Sub 二维数组放入事情表() Dim arr arr = Sheets(1).Range(\公众a1:a2\公众) Range(\公众b1\"大众).Resize(UBound(arr, 1), UBound(arr, 2)) = arrEnd Sub

2：二维数组的行列转换。

Sub 二维数组的行列转换() Dim arr arr = Sheets(1).Range(\"大众E1:F5\"大众) Range(\"大众G1\"大众).Resize(UBound(arr, 2), UBound(arr, 1)) = Application.WorksheetFunction.Transpose(arr) 'Transpose是转置函数 '函数Ubound是取得数组arr1最大的索引号, 'UBound(arr1, 1)数组arr1最大的行索引号 'UBound(arr1, 2))最大的列索引号End Sub

3：一维数组放入一行。

Sub 一维数组放入一行() Dim arr arr = Array(\"大众k\"大众, \公众m\公众, \"大众o\公众, \"大众q\"大众) 'array天生的数组是一维数组； 'UBound(arr) + 1是由于array组成的数组，下标是0； Range(\"大众a5\"大众).Resize(1, UBound(arr) + 1) = arrEnd Sub

4：一维数组放入一列。

Sub 一维数组放入一列() Dim arr arr = Array(\公众k\公众, \公众m\公众, \"大众o\"大众, \公众q\"大众) '下面注释的代码写入是缺点的 'Range(\"大众a5\"大众).Resize(UBound(arr) + 1,1) = arr Range(\"大众a5\"大众).Resize(UBound(arr) + 1, 1) = Application.WorksheetFunction.Transpose(arr)End Sub

延伸阅读：

Excel VBA 数组根本（一）

Excel VBA数组学习（二）

Excel VBA数组学习（四）