VBA: Chuyển đổi hàng loạt "Số định dạng Text" về dạng Số chuẩn (Number)

Thay vì phải click vào từng ô rồi nhấn "Convert to Number" một cách thủ công, Sub này sẽ quét qua toàn bộ vùng dữ liệu bạn đã set trước (sub1) hoặc vùng dữ liệu đã chọn (sub2), tự động nhận diện và "ép" các con số đó về đúng định dạng số chuẩn để bạn có thể tính toán ngay lập tức.

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 ' 

            cell.Value = Evaluate(cell.Value)

        End If

    Next cell

End Sub

Sub ConvertSelectionToNumber()

    Dim cell As Range

    For Each cell In Selection

        If Not IsEmpty(cell.Value) And IsNumeric(cell.Value) Then

            cell.Value = Evaluate(cell.Value)

        End If

    Next cell

    MsgBox "Đã chuyển đổi vùng chọn thành số thành công!", vbInformation

End Sub