Excelシートを統合してマージする方法

Question

私は70のExcelファイルを持っており、すべてのExcelワークブックに10枚あります。

すべてのブックには、{ Excel 1: JAN , Feb , March } & { Excel 2 : Jan , Feb , March } & { Excel 3 : Jan , Feb , March }のような名前のSAMEがあります。 Excelは1つのフォルダに保存されます。

シートをExcelで統合する方法NAMES。 3月から3月にかけて、JANからJAN、FEBからFEBまでのようなデータをコピーして貼り付けたいと思います。 VBAマクロまたはその他の方法を使用して、すべてのExcelシートを名前で一括してマージまたはコピーして貼り付けます。

Answer 1

あなたは以下のコードを試すことができます。

Sub simpleXlsMerger() 
Dim bookList As Workbook 
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As 
Object 
Application.ScreenUpdating = False 
Workbooks.Open Filename:="D:\Automation Tool\Report - Template.xlsx" 
Windows("Report - Template.xlsx").Activate 
With ActiveWorkbook 
    Worksheets("Lev Report").Activate 
End With 
Rows("2:" & Rows.Count).ClearContents 
Range("A2").Select 
Set mergeObj = CreateObject("Scripting.FileSystemObject") 

'change folder path of excel files here 
Set dirObj = mergeObj.Getfolder("D:\Automation Tool\Leave Report\Leave File") 
Set filesObj = dirObj.Files 
For Each everyObj In filesObj 
Set bookList = Workbooks.Open(everyObj) 

'change "A2" with cell reference of start point for every files here 
'for example "B3:IV" to merge all files start from columns B and rows 3 
'If you're files using more than IV column, change it to the latest column 
'Also change "A" column on "A65536" to the same column as start point 
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy 
Windows("Leave Report - Template.xlsx").Activate 
ActiveWorkbook.Worksheets(2).Activate 

'Do not change the following column. It's not the same column as above 
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial 
Application.CutCopyMode = False 
bookList.Close 
Next 
Call ChangeCaches 
End Sub