چیدن داده های تکراری

[iranweld]

با سلام

از کد ذیل استفاده کنید

Private Sub CommandButton2_Click()

Dim xx As String

xx = InputBox("First row Number and "":"" and End Row Number", "Delete rows data", "3:8")

If xx = "" Or InStr(xx, ":") = 0 Then GoTo 0
     
    Rows(xx).Delete Shift:=xlUp
    
    Range("A3").Select
    
0

End Sub