Question

在vba中，如何用系统自带的功能函数 快速将一个1行n列的数组 转置为n行1列的数组？

现在有一个1行100000列的数组变量，想把它存到range（“A1：A10000")，该怎么做？
用Application.Transpose函数报错，只要列数超了256就不能用了。
不要自己写循环，有什么简便快捷的方法吗？
Sub RowCnt()
Dim Arr Open "D:\test.txt" For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1
'MsgBox UBound(Arr) 'Range("A1").Resize(UBound(Arr) + 1, 1) = Application.Transpose(Application.Index(Arr, 1, )) Range("A1").Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr) Reset MsgBox LBound(Arr) & Chr(13) & UBound(Arr) End Sub

上面是源代码，如果 "D:\test.txt"文件只有4行，执行没有问题。换成10w行，就报错了：

Answer 1

假定数组为Arr，如果是一维数组，直接用Application.Transpose函数即可，如果Arr是二维数组。如下即可：
Range("A1:A10000") = Application.Transpose(Application.Index(Arr, 1))

追问

追答

Split 函数返回的是一维数组，你的代码应该没问题。我试验了一下，能够将文本文件的内容每段放在A列的一个单元格里，估计是你的“test.txt”文件内容有问题或者没有内容。你检查一下test.txt文件有多少字节，0字节就会出现类型不匹配的错误