deleting rows with decimal points (non-integers)

[diana_sy]

Hi All,

I'm a macro newbie trying to create a macro for one of our work tasks. I need a macro that will delete all rows which contains a decimal point in column C.

For example: the raw data in column c looks like this

1
1.1
1.2
1.3
1.4
2
2.1
2.2
2.3
3
3.1
3.2


The output I need should look like this:

1
2
3

I hope one of your brilliant VBA users can help me out...
Thanks in advance..

[shg]

Welcome to the forum.

Instead of a macro ...

If your data doesn't have a header row, insert one

In B2, =MOD(A2, 1)=0

AutoFilter col B for FALSE

Select all the rows and delete

Clear the AutoFilter

[diana_sy]

Hi, my file does contain a header. Sorry was not able to include that detail. I actually need a macro for this, since it is not the only function in trying to incorporate to the file. I'm really having a difficulty deleting rows containning a decimal point (been stuck on this portion for 2 weeks now). thanks for the advise though..

[shg]

How about recording a macro of the suggestion above, and then someone will help you clean it up?

[MarvinP]

Insert a new column D next to C and create a formula in it
=C2 - Int(C2)
Copy this down through all your rows.
Sort by column D and delete all rows with non-zero in D.
It seems to me a Macro is overkill.

[JBeaucaire]

A macro version of these ideas:

Please Login or Register  to view this content.