【代码】VBA｜数组写到列或行里

VBA数组入门第4例：数组导入到单元格中 - Excel VBA开发 - Excel精英培训网 - Powered by Discuz! (excelpx.com)

VBA: 将数组输出到工作表 - 腾讯云开发者社区-腾讯云 (tencent.com)

行：

Dim in_out_arr(1030000) As String

Range(lie_doortype & "2:" & lie_doortype2 & "2") = in_out_arr

列：

Dim in_out_arr(1030000) As String

Range(lie_doortype & "2:" & lie_doortype & i) = Application.Transpose(in_out_arr)

数据超过65536条时，Transpose函数会转置失败。因此，当数据超过65536条时，不要使用Transpose函数。

应该这样：

Dim in_out_arr(1030000,0) As String

Range(lie_doortype & "2:" & lie_doortype & i) = in_out_arr

如果要多维数组，可以用到Application.Index(in_out_arr, , 0)和Cells.Resize。