طريقه دمج اكثر من ورقه عمل

[mohmed78]

السلام عليكم ورحمه الله

 

السؤال ما هى طريقه دمج اكثر من ورقه عمل وليكن 20 ورقه عمل (شيت) فى ورقه عمل واحد

وجزاكم الله خيرا

[أبو حنــــين]

43 دقائق مضت, mohmed78 said:

السلام عليكم ورحمه الله

 

السؤال ما هى طريقه دمج اكثر من ورقه عمل وليكن 20 ورقه عمل (شيت) فى ورقه عمل واحد

وجزاكم الله خيرا

بهذا الكود

Sub CopyAll()

Dim sh As Worksheet, LR As Long, Last As Long
Application.ScreenUpdating = False
    For Each sh In Sheets
    If Not sh.Name = ActiveSheet.Name Then
        Last = sh.Cells(Rows.Count, 1).End(xlUp).Row
        LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
            sh.Range("A2:M" & Last).Copy
            ActiveSheet.Range("A" & LR).PasteSpecial xlPasteValues
        End If
    Next
Application.ScreenUpdating = True

End Sub