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)
非常感谢你!我喜欢简单明了的解决方案。