How to delete the even rows?

I am a newbie.

I am not familiar with the VBA

Any one can tell me how to do that?

=CC=EC=B7=BD wrote:

> I am a newbie.
>
> I am not familiar with the VBA
>
> Any one can tell me how to do that?

Hi,

Not sure how you access this newsgroup, but if you have access to
Google (www.google.com) you can search this (and other) usenet groups
very easily... You can for example put "delete even rows" in the search
box for this group (try
http://groups.google.com/group/micro...el.programming to
get to this group first) and you will get a couple of hits right away.

Try this approach first, then if you can't find the answer to your
question write another post here and I'm sure you will get plentiful
help!

Regards,

/impslayer, aka Birger Johansson

Hi 天方,

> I am not familiar with the VBA

For a non-programmatic solution, in the first cell of a helper column insert
the formula:

=ISODD(ROW())

Drag this formula down as far as required.
Autofilter the helper column using FALSE as the filter criterion
Delete the filtered even rows.

If you want a re-usable programmatic solution, turn on the macro recorder
and then run the above manual procedure. This will provide base code which
can be adapted for general application.

If you require assistance with such adaptation, post back.

---

Regards,
Norman



"天方" <[email protected]> wrote in message
news:eb%[email protected]...
>I am a newbie.
>
> I am not familiar with the VBA
>
> Any one can tell me how to do that?
>
>

in an empty column, (assume F), in F1 put the formula
=mod(row(),2)

then drag fill down the column for as far as you have data.

Now select the column and do Data=>Filter=>Autofilter

in the dropdown that appears in F1, select 0

Now only the even rows will be visible. Click on F2, then hold down the
shift key and click on the last visible row that you want deleted

then do Edit=>Delete and select entirerow. Then do Data=>Filter=>Autofilter
(to turn off the filter) and the even rows should be gone

--
regards,
Tom Ogilvy


"天方" <[email protected]> wrote in message
news:eb%[email protected]...
> I am a newbie.
>
> I am not familiar with the VBA
>
> Any one can tell me how to do that?
>
>

Hi 天方,

A possible downside to my suggestion, but not to Tom's solution, is that it
requires that the Analysis ToolPak be installed.

It is preferable, and much simpler, therefore, to use the natively available
Mod function!


---
Regards,
Norman



"Norman Jones" <[email protected]> wrote in message
news:[email protected]...
> Hi 天方,
>
>> I am not familiar with the VBA
>
> For a non-programmatic solution, in the first cell of a helper column
> insert the formula:
>
> =ISODD(ROW())
>
> Drag this formula down as far as required.
> Autofilter the helper column using FALSE as the filter criterion
> Delete the filtered even rows.
>
> If you want a re-usable programmatic solution, turn on the macro recorder
> and then run the above manual procedure. This will provide base code which
> can be adapted for general application.
>
> If you require assistance with such adaptation, post back.
>
> ---
>
> Regards,
> Norman
>
>
>
> "天方" <[email protected]> wrote in message
> news:eb%[email protected]...
>>I am a newbie.
>>
>> I am not familiar with the VBA
>>
>> Any one can tell me how to do that?
>>
>>
>
>

Thank you all

I am very appreciated that you provided so many ways.

The problem has solved

Thanks a lot