Xin Code xoá toàn bộ số 0, dấu cách trắng trong 1 vùng (nhưng không xoá kết quả) (1 người xem)

[Dauthivan]

Trong một bảng tính của em vừa có cả dữ liệu thô, vừa có cả công thức. Em muốn xin code xoá đi những ký tự là số 0; dấu cách trắng trên màn hình, ""; " " tức là những ký tự này nhìn tưởng là trắng nhưng thực ra không phải.
Điều kiện: Chỉ xoá dữ liệu thô thôi (không xoá những ký tự này nếu nó là công thức_tức nólà kết quả của đầu vào khác)

 

[vu_tuan_manh_linh]

Giá như có file thì tốt nhỉ???

 

[vu_tuan_manh_linh]

Thử đoạn code này xem sao:
--------
Sub xoa()
Dim Cll As Range
Dim GT As Variant
Application.ScreenUpdating = False
For Each Cll In Selection
If Left(Cll.Formula, 1) <> "=" Then
GT = Cll.Formula
GT = Replace(GT, "0", "")
GT = Replace(GT, " ", "")
Cll.Formula = GT
End If
Next
Application.ScreenUpdating = True
End Sub
----------

 

[ndu96081631]

Thử đoạn code này xem sao:
--------
Sub xoa()
Dim Cll As Range
Dim GT As Variant
Application.ScreenUpdating = False
For Each Cll In Selection
If Left(Cll.Formula, 1) <> "=" Then
GT = Cll.Formula
GT = Replace(GT, "0", "")
GT = Replace(GT, " ", "")
Cll.Formula = GT
End If
Next
Application.ScreenUpdating = True
End Sub
----------

Người ta nói rằng:

Em muốn xin code xoá đi những ký tự là số 0; dấu cách trắng trên màn hình, ""; " " tức là những ký tự này nhìn tưởng là trắng nhưng thực ra không phải.

Nhưng code của bạn có chổ nào nói đến cái "nhìn tưởng là khoảng trắng" này đâu chứ
Tóm lại: Phải xem file mới biết cái "nhìn tưởng là khoảng trắng" này là cái gì
(đoán: có thể đó là CHAR(160)...)

 

[Dauthivan]

Người ta nói rằng:

Nhưng code của bạn có chổ nào nói đến cái "nhìn tưởng là khoảng trắng" này đâu chứ
Tóm lại: Phải xem file mới biết cái "nhìn tưởng là khoảng trắng" này là cái gì
(đoán: có thể đó là CHAR(160)...)

Tức là em muốn xóa toàn bộ ký tự mà khi để chế độ dấu số 0 đi thì các ô ấy trắng như chưa từng "sử dụng". Nhưng dùng Goto/Special/Blanks thì không lựa chọn được nó.

Em vẫn hay dùng cách lọc từ chế độ Auto Filter để giải quyết vấn đề nhưng khá lâu, vì lúc nhiều cột lọc rất lâu.

 

[ndu96081631]

Tức là em muốn xóa toàn bộ ký tự mà khi để chế độ dấu số 0 đi thì các ô ấy trắng như chưa từng "sử dụng". Nhưng dùng Goto/Special/Blanks thì không lựa chọn được nó.

Em vẫn hay dùng cách lọc từ chế độ Auto Filter để giải quyết vấn đề nhưng khá lâu, vì lúc nhiều cột lọc rất lâu.

Có thể dùng Ctrl + H được không? (nhớ check mục Match entire cell contents)

 

[Dauthivan]

Có thể dùng Ctrl + H được không? (nhớ check mục Match entire cell contents)

Thày hướng dẫn chi tiết giúp em một chút với, giả sử em file em muốn xóa đính kèm thì em phải làm thế nào ah?

 

[viehoai]

Thày hướng dẫn chi tiết giúp em một chút với, giả sử em file em muốn xóa đính kèm thì em phải làm thế nào ah?

Bạn nhấn Ctrl + H thay thế số 0 bằng ký twj trống và nhấn ReplaceAll

 

[Dauthivan]

Bạn nhấn Ctrl + H thay thế số 0 bằng ký twj trống và nhấn ReplaceAll
View attachment 70940

Thế còn các ô có dấu cách (1 dấu cách, 2 dấu cách...) thì em phải làm thế nào ah. Tức là làm cũng được nhưng phải thao tác cho từng ký tự 1? Ví dụ cụ thể ở ví dụ của em ô A5, B5

 

[viehoai]

Thế còn các ô có dấu cách (1 dấu cách, 2 dấu cách...) thì em phải làm thế nào ah. Tức là làm cũng được nhưng phải thao tác cho từng ký tự 1? Ví dụ cụ thể ở ví dụ của em ô A5, B5

Vì mỗi cells có các dấu cách khác nhau nên dùng VBA thôi
Quét vùng chọn sau đó nhấn nút Trim