help on deleting several rows at once

[Guest]

I wish to delete multiple, non continuous rows at once. When such rows are
selected, it says "This operation can not be performed on multiple objects".
The rows in question run into hundreds, say I would like to delete all even
rows, or every third row from ROW 1 onwards

can you please help

 

[Guest]

Hi
do you have merged cells in your selected range. Also you may post the code
you have tried

 

[Guest]

Actually I want to delete, in present case, all even numbered rows, and there
are no merged cells, and I have not tried any code so far.

I selected alternate rows, and deleted by right clicking and "delete",

but since the rows number into hundreds or so, I wanted to know how can this
be done using a macro, or otherwise also.

harsh

 

[Sharad]

Below code will delete Odd rows, in the used range:-

Sub delRowOdd()
Dim i As Long, rDelRow As Range, totRows As Long

With Worksheets("Sheet1")
totRows = .UsedRange.Cells.Rows.Count
Set rDelRow = .Rows(1)
For i = 1 To totRows Step 2
Set rDelRow = Union(rDelRow, .Rows(i))
Next i
End With
rDelRow.EntireRow.Delete

End Sub

 

[Dave Peterson]

Manually:

Insert a new column (column A).

Put X in A1
Put Y in A2

Select A1:A2 and rightclick and drag down.
let go and choose copy.

Apply Data|filter|autofilter and show only the rows you want to delete.
select those visible rows and rightclick|delete|entirerow

Remove the autofilter and delete your helper column.