Excel VBA - Hàm tự tạo trong VBA để bỏ chữ khỏi số trong Excel

Cách làm này sẽ hoạt động được trên mọi phiên bản Excel. Logic là: chúng ta sẽ loại bỏ toàn bộ các ký tự không phải là các ký tự số từ 0 tới 9.

1. Mở Microsoft Excel và nhấn "Alt + F11" để mở Visual Basic Editor.
2. Chọn Insert > Module để tạo một module mới.
3. Sao chép và dán đoạn mã sau vào cửa sổ module:

Function RemoveText(str As String) As String

    With CreateObject("VBScript.RegExp")

        .Global = True

        .Pattern = "[^0-9]"

        RemoveText = .Replace(str, "")

    End With

End Function

    

4. Đóng cửa sổ Visual Basic Editor và quay lại Excel.
5. Sử dụng hàm RemoveText trong ô mà bạn muốn loại bỏ chữ khỏi số. Ví dụ: =RemoveText(A2), với A2 là ô chứa dữ liệu cần xử lý.

Lưu ý: Cả cách dùng hàm Excel và cách dùng hàm tự tạo trong VBA đều cho kết quả là chuỗi “234”. Để chuyển thành số, bạn có thể thực hiện một trong những cách sau đây:

• =RemoveText(A2) + 0
• =RemoveText(A2) * 1
• =VALUE(RemoveText(A2))