Xin chào mọi người. T có gặp vấn đề vơí file excel đó là không thể thực hiện bất cứ 1 phép tính gì trên file này, muốn thực hiện chỉ còn cách đánh lại tất cả các số liệu. Rất mong mọi người giúp đỡ khắc phục lỗi này. Tớ cảm ơn ạ.
Cách làm thủ công để chuyển thành các con số dùng tính toán được bằng cách sau:Xin chào mọi người. T có gặp vấn đề vơí file excel đó là không thể thực hiện bất cứ 1 phép tính gì trên file này, muốn thực hiện chỉ còn cách đánh lại tất cả các số liệu. Rất mong mọi người giúp đỡ khắc phục lỗi này. Tớ cảm ơn ạ.
Số liệu của bạn có khoảng trống đằng sau số. Bạn dùng Code:Xin chào mọi người. T có gặp vấn đề vơí file excel đó là không thể thực hiện bất cứ 1 phép tính gì trên file này, muốn thực hiện chỉ còn cách đánh lại tất cả các số liệu. Rất mong mọi người giúp đỡ khắc phục lỗi này. Tớ cảm ơn ạ.
Sub Test()
Dim Cll As Range
Application.ScreenUpdating = False
For Each Cll In Selection
Cll.Value = Trim$(Application.Clean(Replace(Cll.Value, Chr(160), " ")))
Next Cll
Application.ScreenUpdating = True
End Sub
Bạn có thể dùng hàm CLEAN để "dọn dẹp" lại dữ liệu, sau khi dọn thì sẽ tính toán như thường nhé. Ví dụ E1-F1 -> CLEAN(E1)-CLEAN(F1)Xin chào mọi người. T có gặp vấn đề vơí file excel đó là không thể thực hiện bất cứ 1 phép tính gì trên file này, muốn thực hiện chỉ còn cách đánh lại tất cả các số liệu. Rất mong mọi người giúp đỡ khắc phục lỗi này. Tớ cảm ơn ạ.
Muốn VBA thì chọn vùng cần chuyển rồi chạy code sau:Xin chào mọi người. T có gặp vấn đề vơí file excel đó là không thể thực hiện bất cứ 1 phép tính gì trên file này, muốn thực hiện chỉ còn cách đánh lại tất cả các số liệu. Rất mong mọi người giúp đỡ khắc phục lỗi này. Tớ cảm ơn ạ.
Sub Chuyenso()
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell
Application.ScreenUpdating = True
End Sub
Mình làm được rồi ạ.Bạn có thể dùng hàm CLEAN để "dọn dẹp" lại dữ liệu, sau khi dọn thì sẽ tính toán như thường nhé. Ví dụ E1-F1 -> CLEAN(E1)-CLEAN(F1)
Mình dốt IT nên ko biết dùng code ạ huhu.Muốn VBA thì chọn vùng cần chuyển rồi chạy code sau:
Mã:Sub Chuyenso() Dim xCell As Range Application.ScreenUpdating = False For Each xCell In Selection xCell.Value = CDec(xCell.Value) Next xCell Application.ScreenUpdating = True End Sub
Bạn có thể dùng hàm CLEAN để "dọn dẹp" lại dữ liệu, sau khi dọn thì sẽ tính toán như thường nhé. Ví dụ E1-F1 -> CLEAN(E1)-CLEAN(F1)
Mình làm theo cách này và OK rồi ạ.Cách làm thủ công để chuyển thành các con số dùng tính toán được bằng cách sau:
1/ Bước 1: Copy cột cần chuyển sang sheet mới (nếu không nó sẽ ghi đè lên cột kế bên) rồi vào Data > Text to Columns.
- Cửa sổ hiện ra chọn Delimited rồi nhấn Next.
- Cửa sổ hiện ra chọn Tab rồi nhấn Finish.
2/ Bước 2: Copy cột vừa chuyển Paste về vị trí cũ.
Bạn thực hiện tuần tự cho các cột khác cần chuyển.