با سلام
یک فایل نمونه قرار دادم
البته کدش رو دوستان نوشتن و من بعضی جاهاش رو ویرایش کردم و چند خط کد اضافه کرد
کد PHP:
Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If Sheet1.Range("A2").Value <> "" Then
Dim LR As Long
LR = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheet1.Range("A2:D" & LR).ClearContents
End If
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.CodeName <> "Sheet1" Then
With ws
.Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1)
End With
End If
Next ws
Sheet1.Activate
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Columns("A:D").Select
ActiveSheet.Range("$A$1:$D$20000").RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
Header:=xlNo
Range("A1").Select
End Sub
فایل ضمیمه کردید
علاقه مندی ها (Bookmarks)