[حل شده] ادغام شیت ها

[حامد کباری]

با سلام خدمت همه دوستان عزیز
من تعداد 25 تا شیت دارم که همشون اطلاعات یکسانی دارن(حروف و عدد) چطوری میتونم همشون رو ادغام کنم ؟
فایل رو تو پیوست گذاشتم؟
ممنون میشم دستور vb رو واسم اینجا بنویسید
ممنون از لطفتون

[Amir Ghasemiyan]

سلام دوست عزيز
ميتونيد از اين كد كمك بگيريد

Sub EI_append()
For i = 1 To ActiveWorkbook.Worksheets.Count
    If Worksheets(i).Name <> "ALLDOC" Then
        Lrow = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
        Worksheets(i).Range("A2:I" & Lrow).Copy
        insertRow = Worksheets("ALLDOC").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("ALLDOC").Range("A" & insertRow).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    End If
Next
End Sub

درضمن سوال شما به بخش ويژوال بيسيك منتقل شد

[حامد کباری]

ممنونم از راهنماییتون
خدا خیرتون بده