shandianchengzi
【代码】VBA｜数组写到列或行里
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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。
相关推荐
VBA 数组列不同值统计
VBA 数组列不同值统计 VBA 数组列不同值统计
将excel表格按A列拆分为多个文件VBA代码
使用方法： 1、将需要拆分的EXCEL文件放在一个单独的文件夹，打开这个EXCEL文件，并关闭其他打开的EXCEL文件； 2、excel表格保留一行标题行，并把第一列数据填写为拆分项（文件拆分时将按第一列的内容进行归类合并为一个文件），整个表格不要合并单元格； 3、在打开的EXCEL工作表名称上点右键选择查看代码； 4、选择菜单栏：插入-模块，将以下代码复制到右边的代码框中，点击菜单：运行-运行子过程/用户窗体,直到弹出处理完毕对话框； 5、在文件夹中将生成拆分好的文件，可关闭这个EXCEL文件，选择不保存。
Excel精确设置列宽、行高
Excel中调整行高列宽为磅值，如何精确调整？
VBA_EXCEL删除行的方法
v B A
VBA从excel读出数据写到word表格指定位置
VBA从excel读出数据写到word表格指定位置
