حذف يك سطر با ماكرو

[abootorab]

سلام
من یک ستون دارم که مثلا اعداد 1 تا 10 توی اون ستون نوشته شده . میخوام با ماکرو ، مثلا ردیف 4 از این ستون رو حذف کنم بعد از حذف بین ردیف 3 و 5 فاصله میوفته. حالا میخوام از عدد 5 تا 10 تبدیل به 4 تا 9 بشه یعنی اعداد ستون به ترتیب از 1 تا 9 بشه

با درود

این کد رو هم میتونید تست کنید رو هر سلول از اون ردیف دوبار کلیک کنید اون سطر حذف میشه و شماره ردیفها بصورت اتوماتیک اصلاح میشن
البته بنده واسه رویداد دوبار کلیک استفاده کردم که شما میتونید به عنوان یک دکمه بذارین و از این کد به عنوان ماکرو اون دکمه استفاده کنید. البته اگر میخواین به جای رویداد دوبارکلیک به عنوان ماکرو یک دکمه استفاده کنید در تمام سطرهای کد، کلمه Activecell رو جایگزین کلمه Target کنید.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    startrow = Target.Row
    If Target.Offset(1, 0).Value = "" Then
        endrow = startrow
    Else
        endrow = Target.End(xlDown).Row
    End If
    Rows(Target.Row).Delete
    For i = startrow To endrow - 1
        Cells(i, ActiveCell.Column).Value = Cells(i, ActiveCell.Column).Value - 1
    Next i
    Cancel = True
End Sub