Cho e hỏi về Replace

[raisoldier]

Anh chị cho em hỏi
Trong excel, Edit -> Replace : mỗi lân chỉ có thể dò tìm và thay thế 1 dữ liệu, có cách nào tìm được nhiều hơn không, nghĩa là tạo ra một bảng dữ liệu cần thay thế, và 1 bảng dữ liệu thay thế
Cảm ơn anh chị nhiều

 

[kyo]

Sub mychange()
For Each mycell In Range("A1:H100")
mycell.Replace What:="12", Replacement:="duy"
mycell.Replace What:="7", Replacement:="kduy"
mycell.Replace What:="0", Replacement:="nkduy"
Next
End Sub

Đây là một cách làm mẫu, bạn có thể phát triển lên cho nó cơ động hơn

 

[nghiaphuc]

Sub mychange()
For Each mycell In Range("A1:H100")
mycell.Replace What:="12", Replacement:="duy"
mycell.Replace What:="7", Replacement:="kduy"
mycell.Replace What:="0", Replacement:="nkduy"
Next
End Sub

Đây là một cách làm mẫu, bạn có thể phát triển lên cho nó cơ động hơn

Tại sao không viết vầy cho nhanh kyo?

Sub MyChange()
    With Range("A1:H100")
        .Replace What:="12", Replacement:="duy"
        .Replace What:="7", Replacement:="kduy"
        .Replace What:="0", Replacement:="nkduy"
    End With
End Sub

Code này sẽ nhanh hơn code trên tới 800 lần vì vòng For ở code trên sẽ chạy 800 lần lặp.

 

[TrungChinhs]

Anh chị cho em hỏi
Trong excel, Edit -> Replace : mỗi lân chỉ có thể dò tìm và thay thế 1 dữ liệu, có cách nào tìm được nhiều hơn không, nghĩa là tạo ra một bảng dữ liệu cần thay thế, và 1 bảng dữ liệu thay thế
Cảm ơn anh chị nhiều

Câu hỏi của bạn tương tự bài này http://www.giaiphapexcel.com/forum/...hế-chỗ-chữ-trong-excel&p=306686#post306686