[حل شده] پاک کردن سطرهای خالی

[bahman_220]

کدی جهت پاک کردن سطرهای خالی یک محدوده

[amir_ts]

با سلام
البته برای این منظور کد های زیادی هست.

[LEFT]
Sub DR()
Dim lr, i As Integer
Application.ScreenUpdating = False
 lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

    For i = lr To 1 Step -1

        If WorksheetFunction.CountA(ActiveSheet.Rows(i)) = 0 Then

           ActiveSheet.Rows(i).EntireRow.Delete

        End If

    Next i
Application.ScreenUpdating = True

End Sub
[/LEFT]

[bahman_220]

ممنون از لطف شما