Thread: Remove Foreign Language

Hi

I've got a spreadsheet that has over 5,000 rows and each cell has english and then the same text but in Arabic.

I've tried searching everywhere that will remove all the non english (but keep numbers and punctuation).

If anyone can help that would be much appreciated. I've attached a dummy example below.

Thanks,
Matt

Does this work for you?

Sub x()

Dim rng As Range

With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^\d^\w^\s-\.\,]"
    For Each rng In Range("A1").CurrentRegion
        rng = .Replace(rng, "")
    Next rng
End With

End Sub

Absolute Beauty!

That worked perfectly!

Thanks so much.... i've spent the last 3 hours trying to work it out!

Oh good, I wasn't entirely confident about that.