多文件汇总数据如何分列

xxgang0505

根据论坛的案例，做了一个多文件汇总的文件，但是汇总的结果是在一列上一直往下排，请教一下，如何能按照文件分列显示？
第一个图是实际结果图，第二个图是想做成的效果。

我爱世人

当到达多少行了自动横向填充

xxgang0505

我爱世人 发表于 2018-9-12 17:20
当到达多少行了自动横向填充

每个单独的Excel表格里面的行数不一样，到固定行数自动横向填充，不行吧？

我爱世人

xxgang0505 发表于 2018-9-12 17:25
每个单独的Excel表格里面的行数不一样，到固定行数自动横向填充，不行吧？

那每复制一个表时，自动横向填充

xxgang0505

我爱世人 发表于 2018-9-12 17:29
那每复制一个表时，自动横向填充

代码怎么修改呢？请帮忙提供一下。

我爱世人

xxgang0505 发表于 2018-9-12 17:38
代码怎么修改呢？请帮忙提供一下。

哥哥，我也是初学中，我只是提供个思路应该可以在OFFSET(1,i),i在每复制一个的时候自动叠加变值

xxgang0505

实在是修改不成功，有没有大神给帮下忙的，万分感谢。

LMY123

xxgang0505 发表于 2018-9-13 08:41
实在是修改不成功，有没有大神给帮下忙的，万分感谢。

Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, m&
    Application.ScreenUpdating = False
    Set sh = ActiveSheet
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    sh.UsedRange.Offset(1).Clear
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
                .Sheets("逆变器日报表").Range("a2:a20,m2:m20").Copy sh.Cells(2, N + 1)
                .Close False
            End With
            N = N + 2
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

xxgang0505

LMY123 发表于 2018-9-13 09:24
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, m&
    Application.ScreenUpdating = Fals ...

达到效果，十分感谢，我详细研究下代码。