Nếu bạn đang sử dụng Excel để lấy thông tin từ một nguồn bên ngoài, có thể bạn sẽ nhận được một số thông tin khá lạ trong ô của mình. Ví dụ: giả sử bạn có các ô chứa các số chẳng hạn như 1.234,5-. Chúng được định dạng dưới dạng ô văn bản trong Excel và do đó không thể được sử dụng trong tính toán.

Macro sau sẽ kiểm tra các ô trong một phạm vi đã chọn. Nếu các ô chứa văn bản và văn bản đó kết thúc bằng dấu trừ, macro sẽ di chuyển dấu trừ lên đầu văn bản và nhét lại vào ô. Kết quả là ô được chuyển đổi từ giá trị văn bản thành giá trị số thích hợp.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2300) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: