How to Merge Two Worksheet into One - Data One below the Other Using Macro

[ramkichn]

Hi All:

Humbly requesting your support on "How to Merge Two Worksheet into One - Data One below the Other in Single Worksheet Using Macro"

I am herewith attached two excel sheet named file1.xlsl and file2.xlsl

file1.xlsl contains below records

File Name Count
File1 Apple 10
File1 Mango 20


file2.xlsl contains below records

File Name Count
File2 Orange 10
File2 Lemon 20


Expected Output After merging the Two Sheet File1 & File2 in the new Work Sheet as given below

File Name Count
File1 Apple 10
File1 Mango 20
File Name Count
File2 Orange 10
File2 Lemon 20


Requesting for Macro to get the merged worksheet output on below the other. Pls. help

[Marc L]

Hi !

Are the source files yet opened ?
Or are they in the same folder than the code workbook ?

That needs to be elaborate or you are very confident with your VBA skills to modify any code !

[ramkichn]

HI: Answer to your query
Are the source files yet opened ?

I tried using below macro, but ther data are copied in separate worksheet not below one below the another in the same worksheet. Pls. help me with the Macro VB Code to achieve the excepted output

Please Login or Register  to view this content.

[alansidman]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[ramkichn]

Hi: As mentioned, i put the code, in Code Tag, Pls. Help. Requesting for Excel worksheet merging solution one below the another

[Pepe Le Mokko]

Code examples are available at https://www.rondebruin.nl/win/section3.htm
Add in available at https://www.rondebruin.nl/win/addins/rdbmerge.htm

[Marc L]

ramkichn, according to your profile an Excel 2003 starter demonstration to paste to the result worksheet module :

Sub Demo0() 
            Dim R&, V 
    With Application.FileSearch 
           .NewSearch 
           .Filename = "*.xlsx" 
           .LookIn = ThisWorkbook.Path 
        If .Execute Then 
                Me.UsedRange.Clear 
                Application.ScreenUpdating = False 
                R = 1 
            For Each V In .FoundFiles 
                With GetObject(V).Worksheets(1).UsedRange 
                    .Copy Cells(R, 1) 
                     R = R + .Rows.Count 
                    .Parent.Parent.Close False 
                End With 
            Next 
                Application.ScreenUpdating = True 
        End If 
    End With 
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !