Tìm ký tự * trong chuỗi thay thế thành rỗng

[locbanh]

Chào tất cả mọi người. Mình muốn tìm thay thế trong cột A nếu ô nào có ký tự "*" thì sẽ chuyễn thành " ".

Trong VBA mình có đoạn code sau :

Sub ThayThe()
' thay the dau * thanh rong
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Sau khi chạy thì dữ liệu mất hết dữ liệu . Code Nó hiểu là mình muốn thay thế tất cả bằng " " chứ ko phải là dâu "*".
Nhờ ACE giúp mình với. Thanks

 

[phulien1902]

Chào tất cả mọi người. Mình muốn tìm thay thế trong cột A nếu ô nào có ký tự "*" thì sẽ chuyễn thành " ".

Trong VBA mình có đoạn code sau :

Sub ThayThe()
' thay the dau * thanh rong
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Sau khi chạy thì dữ liệu mất hết dữ liệu . Code Nó hiểu là mình muốn thay thế tất cả bằng " " chứ ko phải là dâu "*".
Nhờ ACE giúp mình với. Thanks

Bạn chuyển File demo lên tôi xem như thế nào.

Bạn gửi File giả lập lên đây xem thế nào nhé.

 

[locbanh]

Đâu cần demo

Bạn chỉ gõ 1 vài ky tự vào ô A1 = abc*d*e*f*t*
rồi nhân Ctrl+H
hiện ra cửa sổ "Find and Replace"
gõ như sau
Find what : *
Replace with : ( ko go gi hết)

rồi nhấn "Replace All"
Bạn sẽ thấy điều kỳ diệu là ô A1 mết hết dữ liệu

 

[Hai Lúa Miền Tây]

Chào tất cả mọi người. Mình muốn tìm thay thế trong cột A nếu ô nào có ký tự "*" thì sẽ chuyễn thành " ".

Trong VBA mình có đoạn code sau :

Sub ThayThe()
' thay the dau * thanh rong
Columns("A:A").Select
Selection.Replace What:="*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Sau khi chạy thì dữ liệu mất hết dữ liệu . Code Nó hiểu là mình muốn thay thế tất cả bằng " " chứ ko phải là dâu "*".
Nhờ ACE giúp mình với. Thanks

Thêm dấu ~ trước sao *

Sub ThayThe()
' thay the dau * thanh rong
Columns("A:A").Select
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

[locbanh]

Thêm dấu ~ trước sao *

Sub ThayThe()
' thay the dau * thanh rong
Columns("A:A").Select
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Thanks Rất nhiều, vậy Google ko ra, người thi kêu \ người thi kêu / ... Char(34) tùm lum hết, hihihihi nói chung là được rồi, thanks lần nữa nha.

 

[befaint]

vậy Google ko ra, người thi kêu \ người thi kêu / ... Char(34) tùm lum hết, hihihihi nói chung là được rồi, thanks lần nữa nha.

Lý do là nhập từ khóa chưa đúng thôi.
Thử vầy xem: how to replace special characters in excel.
Có hướng dẫn luôn ở kết quả tìm kiếm.

 

[locbanh]

Thanks , ACE nhieu nhieu