Say I have numbers going down a column...
4
3
2
1
1
3
4
1
And I want to delete the info in the cell for every other row so it ends up like:
4
2
1
4
Say I have numbers going down a column...
4
3
2
1
1
3
4
1
And I want to delete the info in the cell for every other row so it ends up like:
4
2
1
4
Sub DeleteAlternateRow()
Dim n, lastRow As Integer
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For n = 2 To lastRow Step 2
ActiveSheet.Cells(n, 1) = ""
Next n
End Sub
Regards
Sean
Please add to my reputation if you think i helped (click on the star below the post)
Mark threads as "Solved" if you have your answer (Thread Tools->Mark thread as Solved)
Use code tags when posting your VBA code: [code] Your code here [code]
Please supply a workbook containing example Data: It makes its easier to answer your problem & saves time!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks