Arrays Excel VBA将整个行从数组数组粘贴到表中

Arrays Excel VBA将整个行从数组数组粘贴到表中,arrays,excel,vba,Arrays,Excel,Vba,我有一个数组。它的维度可以这样求和: varZaznamyNove(0)(1到2,1到20)如图所示 我想获取整行数据,并将该行中的数据放入Excel表中。例如: Range(objlistrowbytovedmynovy.Range(1,1),objlistrowbytovedmynovy.Range(1,20))=varZaznamyNove(0)(intporovnavanyzaznamovy) 当我尝试运行该行时,我得到一个错误: 运行时错误9:下标超出范围 如何将锯齿状数组中的整行放入

我有一个数组。它的维度可以这样求和:
varZaznamyNove(0)(1到2,1到20)如图所示

我想获取整行数据,并将该行中的数据放入Excel表中。例如:
Range(objlistrowbytovedmynovy.Range(1,1),objlistrowbytovedmynovy.Range(1,20))=varZaznamyNove(0)(intporovnavanyzaznamovy)

当我尝试运行该行时,我得到一个错误:

运行时错误9:下标超出范围

如何将锯齿状数组中的整行放入excel表格中,而不循环遍历其所有列?

所用变量的尺寸如下:
objListRowBytoveDomyNovy为lisrow

intporovnavanyznamovy作为整数

varZaznamyNove(0)作为变体

注意:
当我将第二个索引添加到行的右侧时,没有出现错误,例如:
Range(objlistrowbytovedmynovy.Range(1,1),objlistrowbytovedmynovy.Range(1,20))=varZaznamyNove(0)(intporovnavanyzanamnovy,1)

但这只会将第一列压缩到所有表列中。这是不可取的

数据示例如图所示。只是为了说明我使用的是什么(虚拟数据)

您可以执行以下操作:

Range(objListRowBytoveDomyNovy.Range(1, 1), objListRowBytoveDomyNovy.Range(1, 20)).Value = Application.Index(varZaznamyNove(0), intPorovnavanyZaznamNovy, 0)

非常感谢你!我喜欢简单明了的解决方案。