Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a faster way
NewLRow below = 7170
As a result this Macro runs for over 25 minutes; Is there a faster way of getting this done? Sub Macro3() Application.ScreenUpdating = False Dim NewLRow As Long Dim r As Long NewLRow = Cells(Rows.Count, 9).End(xlUp).Row For r = NewLRow To 2 Step -1 If Cells(r, 9) = "" Then Rows(r).Delete End If Next Range("A1").Select Selection.EntireRow.Delete Selection.EntireColumn.Delete Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I print faster? | Excel Discussion (Misc queries) | |||
can this be done faster? | Excel Discussion (Misc queries) | |||
Can faster CPU+larger/faster RAM significantly speed up recalulati | Excel Discussion (Misc queries) | |||
Which one is faster? | Excel Programming | |||
Shorter and faster? | Excel Programming |