Created
August 29, 2020 10:30
-
-
Save logic2design/9e39cefb87a12af6ff4e43fb959b0f30 to your computer and use it in GitHub Desktop.
Merge Excel worksheets - Down Run from the worksheet you wan the merged data to be pasted to
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Sub Merge_Down() | |
| Dim ws As Worksheet | |
| ActiveSheet.UsedRange.Offset(0).Clear | |
| For Each ws In ActiveWorkbook.Worksheets | |
| If ws.Name <> ActiveSheet.Name Then | |
| ws.UsedRange.Copy | |
| Range("A65536").End(xlUp).Offset(1, 0).Select | |
| Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ | |
| False, Transpose:=False | |
| Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ | |
| False, Transpose:=False | |
| End If | |
| Next | |
| End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment