روش بارز حذف سطرهای خالی از مجموعه داده ها ، مرتب سازی ساده داده ها است. این سطرهای خالی را به انتهای داده منتقل می کند و آنها را "حذف" می کند.
کلان زیر سطرهای خالی را بدون هیچ گونه مرتب سازی حذف می کند :
Sub DeleteBlankRows()
Dim x As Long
With ActiveSheet
For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(.Rows(x)) = 0 Then
ActiveSheet.Rows(x).Delete
End If
Next
End With
End Sub
ورود به سایت