vba - 需要帮助将宏从多个工作簿中的绘图信息更改为行而不是列

Question

非常感谢任何人的帮助，将以下代码从不同的电子表格中的绘图信息更改为行而不是列。

目前，它会将信息提取到表 1 的 B1:E3 中，然后将表 2 的信息提取到 F1:I3 中，等等。

我需要它来将信息绘制到行中，因此对于工作表 1 B1:F3 然后工作表 2 B4:F6

Sub Get_Columns()
Dim sPath As String
Dim sFil As String
Dim owb As Workbook
Dim twb As Workbook

With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
End With

Set twb = ThisWorkbook
sPath = ThisWorkbook.Path & "\"
sFil = Dir(sPath & "*.xl*")

Do While sFil <> "" And sFil <> twb.Name
    Set owb = Workbooks.Open(sPath & sFil)
    owb.Sheets("Foot").Range("C15:F17").Copy twb.Sheets("Ball").Cells(, Columns.Count).End(xlToLeft).Offset(, 1)
    owb.Close False
    sFil = Dir
Loop

    With Application
    .Calculation = xlAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

标签： vbaexcel