将数组插入 listobjects().listcolums().databodyrange

Posted 2023-02-14

【中文标题】将数组插入 listobjects().listcolums().databodyrange

【英文标题】：Inserting array into listobjects().listcolums().databodyrange

【发布时间】：2019-02-08 19:07:58

【问题描述】：

在 Excel 表之间传输数据的一种快速方法是通过循环遍历源表将数据读入数组，然后在一个命令中将它们插入到目标表中。这适用于表 databodyrange； listobjects().databodyrange = aTransfer。但是当尝试对列表列做同样的事情时； listobjects().listcolumns().databodyrange = aTransfer，列中的第一个数字向下重复到列尾。

这在这个例子中得到了证明：Transfering data between tables

有没有办法解决这个问题？

【参考方案1】：

您需要使用 Application 对象的 Transpose 方法将一维水平数组转置为 垂直 数组。这是一个例子......

Worksheets("Sheet1").ListObjects("Table1").ListColumns(1).DataBodyRange.Value = application.transpose(aTransfer)

【讨论】：

这回答了我的问题。我没有意识到这一点。