Replace Function

Chức năng
Thay thế chuỗi bởi chuỗi khác trong chuỗi chỉ định.

Cú pháp
Replace(string1, find, replacement, [start, [count, [compare]]])

• String1: chuỗi mẹ dùng chứa các ký tự chuẩn bị được tìm kiếm để thay thế.
• Find: chuỗi sẽ được tìm kiếm trong String1
• Replacement: chuỗi sẽ thay thế chuỗi Find trong String1
• Start: không bắt buộc. Vị trí bắt đầu tìm kiếm. Mặc định là vị trí 1.
• Count: không bắt buộc. Số lần xuất hiện để thay thế. Mặc định là thay thế tất cả các lần xuất hiện.
• Compare: không bắt buộc. Xác định kiểu so sánh.
  • vbBinaryCompare: so sánh nhị phân. Phân biệt chữ HOA và chữ thường.
  • vbTextCompare: so sánh văn bản. Không phân biệt chữ HOA và chữ thường.

Ví Dụ:
Tìm kiếm chuỗi " " và thay thế tất cả thành "_" từ vị trí số 2 theo kiểu so sánh nhị phân.
Tìm kiếm chuỗi " " và thay thế chỉ 1 lần thành "_" từ vị trí đầu theo kiểu so sánh nhị phân.

Sub Replace_Function() Debug.Print Replace("Pham Van Kieu", " ", "_", 2, , vbBinaryCompare) Debug.Print Replace("Pham Van Kieu", " ", "_", 1, 1, vbBinaryCompare) End Sub

Kết quả:
Nhấn Ctrl + G để mở cửa sổ Immediate để xem kết quả.