Deleting every other row

[SeattleJim]

This has either been asked before or is too simple to where I can't figure it out. I have a column of numbers that are duplicated... so I basically want to delete every other row. Any way of doing it without using dba? Or is that my only way? Thanks.

 

[VoG]

You can do this using ASAP http://www.asap-utilities.com/

On the ASAP menu Columns/Rows > Conditional row and column select, hide or delete. You can delete odd or even rows.

 

[ADAMC]

Try this its from a post i was asked about yesterday:

Sub PullEveryNthRow() 

' Pull every Nth row from the selected range and place those values in 
' a new worksheet. 

   Dim Increment As Long 
   Dim Source As Range 
   Dim TargetSheet As Worksheet 
   Dim SourceRow As Long 
   Dim TargetRow As Long 
    
   ' Use the current selection for the source 
   Set Source = Selection 
    
   ' Query user for the increment 
   Do 
      Increment = InputBox("Enter increment:") 
      If Increment < 1 Then 
         Exit Sub 
      End If 
   Loop Until Increment > 0 

   ' Add a new sheet and move the data 
   Sheets.Add 
   Set TargetSheet = ActiveSheet 
   TargetRow = 1 
   For SourceRow = 1 To Source.Rows.Count Step Increment 
      TargetSheet.Rows(TargetRow). _ 
         Resize(1, Source.Columns.Count).Value _ 
         = Source.Rows(SourceRow).Value 
      TargetRow = TargetRow + 1 
   Next SourceRow 

End Sub

Highlight your column of data....Enter 2 in the pop up box which appears, the macro will cut every 2nd row and paste to a new sheet then use this data.

Hope this helps