Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to delete rows
Sub macro_der()
Dim i As Long, nLastRow As Long Set r = ActiveSheet.UsedRange nLastRow = r.Rows.Count + r.Row - 1 Set r = Rows(nLastRow + 1) For i = 1 To nLastRow If Application.CountA(Rows(i)) = 0 Then Set r = Union(r, Rows(i)) End If Next r.Delete End Sub -- Gary''s Student - gsnu200847 "AsquareDC" wrote: Can someone be kind enough to help me on how to create a macro that will delete blank rows from my worksheet that has data up to row 60,000. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
MACRO TO DELETE ROWS | Excel Programming | |||
My Macro Won't Delete Rows?? | New Users to Excel | |||
macro to delete rows? | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming |