这套方式也算拼拼凑凑出来
可能会有些微不正确
但如对于新手或许是个比较快速的一个范例
因为写阵列不难，但要把阵列贴上cell 实在很难>.<
以下为阵列贴上cell之办法
1.
(1维阵列,所有列贴上某起始格,自动调整大小,cell为向下汇入)
Sheets("sheet1").[A1].Resize(UBound(阵列名)) =Application.Transpose(阵列名)
一维阵列可以搭配transpose，横向贴上还需要资料
2.
(2维阵列,所有列贴上某起始格,自动调整大小,cell为向右汇入)
Sheets("工作表1").[A1].Resize(1,UBound(阵列名,2) +1) = 阵列名
[上述横向汇入尚未测试完整,请高手补充]
3.
(2维阵列,栏为不固定) #阵列设为0~最后一栏,将相同范围贴至储存格
Sheets("sh1").Cells(1, 1).Resize(UBound(阵列名,1) +1,UBound(阵列名,2) +1) = 阵列名
4.
(2维阵列,栏为固定) #阵列设为0~18栏,贴至储存格1~19栏
Sheets("sheet1").range("a1").Resize(UBound(阵列名), 19) = 阵列名
[请注意以上阵列 UBound(阵列名)是否需要+1 ]
尤其resiz后面用的数字,"并不是"阵列的栏列,而是储存格的栏列,
因为阵列是从0开始算
储存格都用1开始算,请注意
这四条方法
我找到外国网站才补齐= =
为了这四行,我花了快20小时 XD
还有靠office板的s大大才得以学会
也欢迎大大一起揪错 感恩