VBA convert text to number

 

Sub ConvertNumberStoredAsTextToNumber()

    Dim rng As Range

    Dim cell As Range

thay range ("A1:K10") bằng range cần 

      Set rng = Range("A1:K10")

    For Each cell In rng

        If Not IsEmpty(cell.Value) And IsNumeric(cell.Value) Then ' Ki?m tra ô không r?ng và có giá tr? s?

            cell.Value = Evaluate(cell.Value)

        End If

    Next cell

End Sub