Excel，从不同文件导入数据答案

【问题标题】：Excel, importing data from different fileExcel，从不同文件导入数据
【发布时间】：2017-03-18 00:42:55
【问题描述】：

我想从一个单独的 Excel 文件中旋转值，如下所示：

到垂直列表：

我的意思是，在每第九个值之后，我希望程序开始一个新列（如图所示）。

当不同的“工作表”位于同一个文档（Sheet1、Sheet2 等）上时，我设法手动执行此操作（ofc B）。

在没有太多进一步编程的情况下，这甚至可能是我正在尝试的吗？我应该使用 Excel 宏吗？感谢我得到的所有帮助..！

【问题讨论】：

您想要如图所示的单列还是每列九行的四列？
我想要从这一列中获得尽可能多的九个单元格的行，其中所有值都在另一个之下。我还想找到一种在两个单独的 Excel 文件之间自动执行此操作的方法。我想以某种方式用另一个自动填充和 Excel 表（正如我所描述的，在这种情况下。）

标签： excel import automation autofill

【解决方案1】：

将数据矩阵存储在一个数组中，并切掉转置的“行”值。

Dim x As Long, vVALs As Variant

With Worksheets("Sheet1")
    vVALs = .Range("A2:I5").Value2

    For x = LBound(vVALs, 1) To UBound(vVALs, 1)
        .Cells(7, 1).Offset((x - 1) * UBound(vVALs, 2)).Resize(UBound(vVALs, 2), 1) = _
            Application.Transpose(Application.Index(vVALs, x, 0))
    Next x
End With

【讨论】：