Wow .. if this is possible, this would really help me get my work smoothed out!

Here's a sample of what I wanted to see when I'm done and then a sample of the raw data:

Done:

DRPA 1703.91 43493.18 17801.29 62998.38
DRPU 79.19 0 0 79.19
DRPW 57.6 1950.55 30 2038.15



Befo

DRPA 1703.91 43493.18 17801.29 0 0 0 1703.91 43493.18 17801.29
TOTAL = 62998.38 TOTAL = 0 TOTAL = 62998.38
.................................................. .................................................. ..................................
DRPU 79.19 0 0 0 0 0 79.19 0 0
TOTAL = 79.19 TOTAL = 0 TOTAL = 79.19
.................................................. .................................................. ..................................
DRPW 57.6 1950.55 30 0 0 0 57.6 1950.55 30
TOTAL = 2038.15 TOTAL = 0 TOTAL = 2038.15
.................................................. .................................................. ..................................

Is this possible in written macro?

Thanks!

It makes it easier to copy from your message if you post in plain text.

First, I'm guessing that each field/column has its own data.

If that's true, how about this manual effort:

Insert a new column to the right of your data.
=if(left(a1,3)="drp",b8,"deleteme")


But I can't tell if it's really B8 to keep or C9 or whatever.

But you'll be able to tell by just looking. Adjust the formula to match your
data.

Drag it down.

I'm hoping that you end up with good data on the good row and "deleteme" on all
the other.

Then Edit|copy that column
then Edit|paste special|values

Then apply data|filter|autofilter to that column
show only the Deleteme's.
delete the visible rows.

remove the filter and see if it worked.

Try it against a copy of your data--or close without saving!






--

Dave Peterson

Thanks, Dave .. but I'm seeing now that I really muffed my email totally
badly in that I meant to delete every 3rd row, then delete COLUMNS 2 through
7, then move the rows, etc. I was able to capture a lot of ideas from
previous posts and from codes I have in my collection. What you provided
also gave me some ideas

"Dave Peterson" wrote in message
...
It makes it easier to copy from your message if you post in plain text.

First, I'm guessing that each field/column has its own data.

If that's true, how about this manual effort:

Insert a new column to the right of your data.
=if(left(a1,3)="drp",b8,"deleteme")


But I can't tell if it's really B8 to keep or C9 or whatever.

But you'll be able to tell by just looking. Adjust the formula to match
your
data.

Drag it down.

I'm hoping that you end up with good data on the good row and "deleteme"
on all
the other.

Then Edit|copy that column
then Edit|paste special|values

Then apply data|filter|autofilter to that column
show only the Deleteme's.
delete the visible rows.

remove the filter and see if it worked.

Try it against a copy of your data--or close without saving!






--

Dave Peterson