如何更改一列未格式化的数字，以便 Excel 可以使用 VBA 将它们实际读取为数字

Question

The problem I've run into is that after exporting a series of data from an online source and pasting it to Excel the numbers come all wrong, essentialy they are read as text instead of numbers. I've found that this happens for two reasons:

1. There's a space " " on the end of every number
2. Numbers that are over a thousand have a "." character in the middle of them, separating the rest (eg 13.540,50)

In the picture below I have exactly how the numbers come to me, what I need is a code that runs for every cell in column "M" and then changes that cell, fixing the above problems so that Excel can actually read it as numbers What shows up to me at Excel

So at firts I tried this:

Sub Fatura()

Dim c As Range

    For Each c In Range("M1:M1000")

        c.Value = Replace(c, ".", "")
        c.Value = Replace(c, " ", "")
        c.NumberFormat = "General"
        c.NumberFormat = "0.00"

    Next c

Wich worked fine but for some reason c.value = replace(c, " ", "") did not replace the last " " character in my string

Then I tried this:

Sub Fatura()

Dim c As Range

    For Each c In Range("M1:M1000")

        c.Value = Replace(c, ".", "")
        c.Value = Left(c, Len(c) - 1)
        c.NumberFormat = "General"
        c.NumberFormat = "0.00"

    Next c

But I get run time error '5'

Thanks for the help in advance

Answer 1

I was able to reach an answer with @BigBen 's help. Turns out the character at the end of my string wasn't really a space " " but a non-breaking space, wich is quite annoying. So after that discovery it was just a matter of rewriting my code as follows:

Sub Fatura()

Dim c As Range

    For Each c In Range("M1:M1000")

        c.Value = Replace(c, ".", "")
        c.Value = Replace(c, Chr(160), "")
        c.NumberFormat = "General"
        c.NumberFormat = "0.00"

    Next c

Thanks for the help @BigBen !!!!