[حل شده] جایگزین شدن در جدول

[میثم مقدم نیا]

سلام
یه سوال ذهن منو درگیر خودش کرده خواستم از شما سوال کنم ببینم راه حلی داره یا نه؟

فرض کنید متن چند ردیف را حذف کردیم میشه خود کار اطلاعات ردیف های پاین بیان بالا و جایگزین شود



امید وارم منظورمو رسونده باشم

[majid_mx4]

با سلام

میتوانید از دستورات زیر استفاده نمایید.
توجه داشته باشید فقط ردیف های خالی حذف میشوند یعنی اگر یک سلول هم پر باشد آن ردیف باقی خواهدماند.

Sub DeleteBlankRowsMir()

Dim i As Long
Dim rng  As Range

Lastrow = Cells(Rows.Count, "A").End(3).Row

For i = 2 To Lastrow
    If WorksheetFunction.CountA(Cells.Rows(i)) = 0 Then
    Cells.Rows(i).EntireRow.Delete
End If
Next


End Sub

پایدار باشید میر