ディレクトリ内のファイルをループして、Excelのマスターシートにデータをコピーするにはどうすればよいですか？

XNUMXつのフォルダーに複数のExcelブックがあり、これらすべてのExcelファイルをループして、指定した範囲の同じ名前のワークシートからExcelのマスターワークシートにデータをコピーするとします。 この記事では、それを実現する方法を詳しく紹介します。

ディレクトリ内のファイルをループし、VBAコードを使用してデータをマスターシートにコピーします

ディレクトリ内のファイルをループし、VBAコードを使用してデータをマスターシートにコピーします

A1：D4の範囲で指定したデータを、特定のフォルダー内のブックのすべてのシート1からマスターシートにコピーする場合は、次のようにします。

1.ブックでマスターワークシートを作成し、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコードウィンドウにコピーします。

VBAコード：フォルダー内のファイルをループし、データをマスターシートにコピーします

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Note:

3。 プレス F5 コードを実行するためのキー。

4.オープニングで ブラウズ ウィンドウで、ループするファイルが含まれているフォルダを選択して、[ OK ボタン。 スクリーンショットを参照してください：

次に、現在のワークブックの最後に「新しいシート」という名前のマスターワークシートが作成されます。 また、選択したフォルダ内のすべてのSheet1の範囲A4：D1のデータがワークシート内に一覧表示されます。

関連記事：

• Excelで行の高さと列の幅を持つセルデータをコピーするにはどうすればよいですか？