Cho em hỏi về lệnh Replace

[ilvba]

Anh chị cho em hỏi lệnh replace.
file:

hoi

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Cụ thể:
em có ký tự như sau:

**** fixed to zero ****

Mong muốn chuyển thành:

____ fixed to zero ____

Nhưng VBA nó lại hiểu "*" là ký tự bất kỳ cho nên nó replace sạch trơn hết toàn bộ ký tự thành "_"

 

[snow25]

Anh chị cho em hỏi lệnh replace.
file:

hoi

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Cụ thể:
em có ký tự như sau:

**** fixed to zero ****

Mong muốn chuyển thành:

____ fixed to zero ____

Nhưng VBA nó lại hiểu "*" là ký tự bất kỳ cho nên nó replace sạch trơn hết toàn bộ ký tự thành "_"

Bạn thử.

Replace("**** fixed to zero ****", "*", "_")

 

[giaiphap]

Anh chị cho em hỏi lệnh replace.
file:

hoi

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Cụ thể:
em có ký tự như sau:

**** fixed to zero ****

Mong muốn chuyển thành:

____ fixed to zero ____

Nhưng VBA nó lại hiểu "*" là ký tự bất kỳ cho nên nó replace sạch trơn hết toàn bộ ký tự thành "_"

Thử hàm này.

=SUBSTITUTE("**** fixed to zero ****";"*";"_")

 

[ilvba]

Bạn thử.

Replace("**** fixed to zero ****", "*", "_")

Ừ, mình cũng thấy là nếu xử lý đơn độc một string thì có vẻ được. Nhưng nếu Columns("A:A") replace kiểu như ctr+P thì không được nhỉ.
Có cách nào xử lý dứt điểm cái này không cả nhà.

Bài đã được tự động gộp: 5/7/19

Thử hàm này.

=SUBSTITUTE("**** fixed to zero ****";"*";"_")

Em cảm ơn nhưng, em thử thấy không được ạ.

 

[snow25]

Ừ, mình cũng thấy là nếu xử lý đơn độc một string thì có vẻ được. Nhưng nếu Columns("A:A") replace kiểu như ctr+P thì không được nhỉ.
Có cách nào xử lý dứt điểm cái này không cả nhà.

Bài đã được tự động gộp: 5/7/19

Em cảm ơn nhưng, em thử thấy không được ạ.

Cho nó vào mảng duyệt 1 lần là xong.

 

[ilvba]

Cho nó vào mảng duyệt 1 lần là xong.

Columns("A:A").Select
    Selection.Replace What:="~*", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[batman1]

Columns("A:A").Select
    Selection.Replace What:="~*", Replacement:="_", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Không phải dùng code đâu.

Thao tác: chọn cột A -> thẻ Home -> Find & Select -> Replace -> nhập ~* vào Find what -> nhập _ vào Replace with -> nhấn Replace All

Nếu tìm và thay thế ký tự ? thì nhập ~?. Nếu tìm và thay thế ký tự ~ thì nhập ~~.

Tức nếu tìm và thay thế ký tự đại diện ~, ? hoặc * thì thêm vào trước chúng ký tự ~

 

[ilvba]

Không phải dùng code đâu.

Thao tác: chọn cột A -> thẻ Home -> Find & Select -> Replace -> nhập ~* vào Find what -> nhập _ vào Replace with -> nhấn Replace All

Nếu tìm và thay thế ký tự ? thì nhập ~?. Nếu tìm và thay thế ký tự ~ thì nhập ~~.

Tức nếu tìm và thay thế ký tự đại diện ~, ? hoặc * thì thêm vào trước chúng ký tự ~

Vâng, đây đúng là cách giải quyết triệt để đúng không anh.
Em không biết là phải thêm ký tự ~ vào trước, vì thế cứ loay hoay mãi ạ.