Macro to delete rows

  • Thread starter Thread starter Ken G
  • Start date Start date
K

Ken G

I have a list of daily data that is one day per row, I need a macro to trim
it back from daily data to weekly data retaining only Friday's data for each
week, so I need to delete 4 rows, skip a row and delete the next 4 rows etc.
The list is currently about 400 rows. (Excel 2003)
 
OssieMac:

It looks like we are on the "same page". We must have posted seconds apart.
 
Instead of deleting why not just filter on Friday...
However, if you insist, work from the bottom up

Sub deleteallbutfriday()
mc = "a" 'change to suit
For i = Cells(Rows.Count, mc).End(xlUp).Row To 5 Step -5
Rows(i - 4).Resize(4).Delete
Next i
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sort on 3 columns when number of rows vary daily 1
switch to another worksheet, then return to original sheet 2
Macro does not delete all the required rows 3
Moving data from column to row in groups of 250 per row for fourrows, then skip a row and continue t 1
Macro to Convert Value to Number, Sort, then Delete 16
Delete all filtered rows from a macro? 1
DREAM FEATURE: A macro that moves a row but asks me where to move it 18
Macro delete columns satring row 23 3

Back
Top