Excel，从不同文件导入数据

Question

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

到垂直列表：

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

当不同的“工作表”在同一文档（Sheet1，Sheet2等）上时，我设法手动（ofc B））。

这是否可能，我正在尝试，没有太多的进一步编程？我应该使用Excel宏吗？我很感激所有的帮助..！

Answer 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