How can I delete rows accordinng to formula
Thanks, Patrick
"Patrick Molloy" wrote:
Range("5:6,9:10,17:18,23:24").Delete Shift:=xlUp
build the text string
if n is the row
text = text & "," & (n -1) & ":" & n
"GreenInIowa" wrote in message
...
Thank you very much, Patrick.
My original plan was to select all the rows by the help of a loop and
then,
I was hoping to delete them all at once. Also, I did not realize that
Rows( )
object would not accept something like two variables, as such Rows
(n,n+1).
Reversing would makes sense!
Jack
"Patrick Molloy" wrote:
First, delete rows from the higher numbered rows first, or your loop
won't
work.
For i = 100 to 1 step -1
rows(3*i).delete Shift:=xlUp
rows(3*i-1).delete Shift:=xlUp
Next
"GreenInIowa" wrote in message
...
Hi,
I am trying to delete bunch of empty rows, which are regularly spaced
in
my
worksheet, using "FOR-NEXT" loop. But, it is giving me error. What I my
I
doing wrong here. Thanks.
Sub Macro1 ()
For i = 1 To 100
n = 3 * i - 1
ActiveSheet.Rows("n, n + 1").Select
Next
Selection.Delete Shift:=xlUp
End Sub
|