利用数组把分表里的数据导入汇总表后不是从指定单元格开始

nl054685

各位老师，我的要求是把分表里的各工作表数据利用数组的方法导入到汇总表对应工作表里，分表里项目顺序与汇总表里的不尽相同，汇总表每个工作表要从b3开始，我套用了别人的思路，现在的问题是导入后表1是从b3开始，但表2，表3都不是从b3开始，是接着上一个工作表的导入后的最后一行开始请各位老师帮忙修改一下，让导入后表2，表3都是从b3开始，谢谢！

杨建营

把行号=0

nl054685

杨建营 发表于 2024-1-27 17:35
把行号=0

真是高手，解决大问题，非常感谢

gwjkkkkk

Option Explicit
Sub test()
    Dim i&, Items As FileDialogSelectedItems, strPath$, wkb As Workbook, wks As Worksheet
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Excel Files", "*.xls"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
   
    Application.ScreenUpdating = False
    Set wkb = GetObject(Items(1))
    For Each wks In Worksheets
        For i = 1 To wkb.Worksheets.Count
            With wkb.Worksheets(i)
                If .Name = wks.Name Then
                    wks.[A1].CurrentRegion.Offset(1).Clear
                    .[A1].CurrentRegion.Copy wks.[A2]
                    Exit For
                End If
            End With
        Next i
    Next
    wkb.Close False
   
    Set wkb = Nothing
    Set Items = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

nl054685

gwjkkkkk 发表于 2024-1-27 18:11
Option Explicit
Sub test()
    Dim i&, Items As FileDialogSelectedItems, strPath$, wkb As Workbook ...

非常感谢老师指点

nl054685

gwjkkkkk 发表于 2024-1-27 18:12
请参考附件。。。

非常感谢老师指点