Tìm kiếm và thay thế ký tự theo 1 quy tắc chung (2 người xem)

[Nguyễn Hồng Quang]

Em có File excel kết xuất giao dịch 1 ngày từ trên Web của Ngân hàng có cột Nội dung chứa các từ không dấu được lặp lại có tính quy luật trong các chuỗi.
Thông thường em vẫn sử dụng chức năng Find and Replace của Excel để xử lý, nhưng thấy thủ công vì phải làm thay thế từng từ (như ở trong file gửi kèm này là 3 lần tìm kiếm và thay thế mới xong)
Em mong muốn có cách nào thay thế đồng loạt 1 lần để được nội dung như cột K (trong file gửi kèm)
Rất mong các anh chị, em và các bạn giúp đỡ
Em xin cảm ơn

 

[befaint]

Thử tạm...

Sub Macro1()
    Dim khong_dau, co_dau, Rng As Range
    khong_dau = Array("Tra tien hang", "hoa don", "ngay")
    co_dau = Array("Tr" & ChrW(7843) & " ti" & ChrW(7873) & "n hàng", "hóa " & ChrW(273) & ChrW(417) & "n", "ngày")
    Set Rng = Columns("J")      ''vung du lieu can xu ly
    For i = LBound(khong_dau) To UBound(khong_dau)
        Rng.Replace What:=khong_dau(i), Replacement:=co_dau(i), LookAt:=xlPart, SearchOrder:=xlByRows
    Next i
End Sub

 

[Nguyễn Hồng Quang]

Thử tạm...

Sub Macro1()
    Dim khong_dau, co_dau, Rng As Range
    khong_dau = Array("Tra tien hang", "hoa don", "ngay")
    co_dau = Array("Tr" & ChrW(7843) & " ti" & ChrW(7873) & "n hàng", "hóa " & ChrW(273) & ChrW(417) & "n", "ngày")
    Set Rng = Columns("J")      ''vung du lieu can xu ly
    For i = LBound(khong_dau) To UBound(khong_dau)
        Rng.Replace What:=khong_dau(i), Replacement:=co_dau(i), LookAt:=xlPart, SearchOrder:=xlByRows
    Next i
End Sub

Cảm ơn anh befaint code chạy đúng ý em rồi anh ơi; chúc anh ngày nghỉ cuối tuần vui vẻ