VBA - formatting numbers

[Spurious]

I got a bit weird question:

I am downloading exchange rates from a website, Euro:Yen is different than Euro:USD, the first is xxx.xx, the former x.xxxx. In both cases I want to kill the last two digits.

Since it's a macro and I sometimes download Yen FX rates and sometimes USD FX rates, I cant use round.

Anyone got any solution?

 

[OfficeUser]

This will delete the last two digits in the active cell. You could write additional vba to loop until all cells in the column have been checked.

ActiveCell = Left(ActiveCell, Len(ActiveCell) - 2)<!-- google_ad_section_end -->

You could also use a formula to do this:

=LEFT(A1,LEN(A1)-2)

 

[Spurious]

This will delete the last two digits in the active cell. You could write additional vba to loop until all cells in the column have been checked.

ActiveCell = Left(ActiveCell, Len(ActiveCell) - 2)

Thanks, this doesnt really solve my problem, though.

I will provide 4 examples of exchange rates:

1014.6
113.37
86.856
1.4563

Now, I want to check one value and then determine what the format is.
For the last 3, finding where the dot is, will be sufficient and I would be able to round using x digits after the dot, but the first one should be rounded from 1014.6 to 1010.

So, I guess in the end I want to have the following:

1014.6 --> 1010
113.37 --> 113
86.856 --> 86.9
1.4563 --> 1.46

Does that make sense?

 

[OfficeUser]

I'm sorry, I thought you simply wanted to kill the last two digits. Let me take a look at it again.

 

[Spurious]

Anyone else an idea?