Mục lục
Nếu bạn đang tìm cách thay thế văn bản trong một chuỗi bằng cách sử dụng Excel VBA , thì bạn sẽ thấy bài viết này hữu ích. Thay thế một phần văn bản nhất định có thể tiết kiệm rất nhiều thời gian trong việc gõ lại các chuỗi văn bản. Nào, cùng vào bài viết chính để biết chi tiết về tác vụ thay thế này.
Tải Workbook về
Thay thế văn bản trong String.xlsm
5 cách để thay thế văn bản trong chuỗi bằng Excel VBA
Ở đây, chúng tôi có tập dữ liệu sau chứa một số bản ghi của nhân viên với id email của họ. Nhiệm vụ của chúng ta là thay thế tên miền cũ bằng tên miền mới. Trong các phương pháp sau, chúng tôi sẽ làm việc với tập dữ liệu này cùng với một số chuỗi văn bản ngẫu nhiên để thay thế văn bản mong muốn bằng mã VBA .
Chúng tôi đã sử dụng Phiên bản Microsoft Excel 365 tại đây, bạn có thể sử dụng bất kỳ phiên bản nào khác tùy theo sự thuận tiện của mình.
Phương pháp-01: Thay thế Văn bản Bắt đầu từ Vị trí thứ n của Chuỗi Ngẫu nhiên
Tại đây, chúng tôi sẽ thay thế văn bản trong một chuỗi văn bản ngẫu nhiên cho các vị trí bắt đầu khác nhau.
Bước-01 :
➤ Chuyển đến tab Nhà phát triển >> Mã Nhóm >> Visual Basic Tùy chọn.
Sau đó, Trình soạn thảo Visual Basic sẽ mở ra.
➤ Chuyển đến Chèn Tab >> Tùy chọn Mô-đun.
Sau đó, Mô-đun sẽ được tạo.
Bước-02 :
➤ Viết như saucode
6551
Ở đây, chúng tôi đã khai báo full_txt_str và updated_str là String và sau đó gán full_txt_str cho một văn bản ngẫu nhiên chuỗi- “Trăm xe Năm mươi xe Mười xe” . Sau đó, hàm VBA REPLACE được sử dụng để thay thế phần Cars của chuỗi ngẫu nhiên này bằng Bicycles và 1 được sử dụng ở đây để bắt đầu thay thế từ vị trí 1 của chuỗi này. Cuối cùng, chúng ta đã gán chuỗi văn bản mới này cho updated_str và với hộp thông báo ( MsgBox ), chúng ta sẽ thấy kết quả.
➤ Nhấn F5 .
Sau đó hộp thông báo sẽ xuất hiện với chuỗi văn bản mới có văn bản được thay thế Xe đạp .
➤ Để thực hiện quy trình thay thế từ phiên bản thứ hai của Ô tô , hãy sử dụng mã sau.
4526
Ở đây, chúng tôi đã sử dụng vị trí bắt đầu là 14 vì chúng tôi muốn có một phần của chuỗi sau Hundred Cars và thay thế Xe tại đây.
➤ Sau khi chạy mã, chúng ta sẽ có hộp thông báo sau với chuỗi văn bản bắt đầu từ văn bản Fifty và với Bicycles ở vị trí Cars .
➤ Vì chỉ có phần cuối cùng của chuỗi này, chúng tôi đang áp dụng đoạn mã sau.
5677
Ở đây, chúng tôi đã sử dụng vị trí bắt đầu là 25 vì chúng tôi muốn có một phần của chuỗi sau Fifty Cars và thay thế Cars bằng Bicycles tại đây.
Cuối cùng, chúng ta sẽ có một hộp thông báo với phần mong muốn của chuỗi có phần thay thế bằng Xe đạp .
Đọc thêm: Excel VBA: Thay thế ký tự trong chuỗi theo vị trí (4 cách hiệu quả)
Phương pháp-02: Thay thế văn bản cho lần xuất hiện thứ n của chuỗi ngẫu nhiên bằng Excel VBA
Trong phần này, chúng ta sẽ thay thế văn bản trong một chuỗi ngẫu nhiên cho số lần xuất hiện khác nhau với sự trợ giúp của mã VBA .
Các bước :
➤ Làm theo Bước 01 của Phương pháp 1 .
➤ Nhập mã sau.
7587
Ở đây, chúng tôi đã khai báo full_txt_str và updated_str là Chuỗi rồi gán full_txt_str cho một chuỗi văn bản ngẫu nhiên- “Trăm xe Năm mươi xe Mười xe” . Sau đó, hàm REPLACE được sử dụng để thay thế phần Cars của chuỗi ngẫu nhiên này bằng Bicycles , 1 được sử dụng ở đây để bắt đầu thay thế từ vị trí 1 của chuỗi này và 1 cuối cùng là để đếm số lần xuất hiện. Bằng cách sử dụng 1 làm số đếm, chúng tôi đang xác định chỉ thay thế Ô tô đầu tiên. Cuối cùng, chúng tôi đã gán chuỗi văn bản mới này cho updated_str và với mộthộp thông báo ( MsgBox ) chúng ta sẽ thấy kết quả.
➤ Nhấn F5 .
Sau đó, một hộp thông báo sẽ xuất hiện với dòng chữ mới Xe đạp ở vị trí đầu tiên của Ô tô chỉ.
➤ Để thay thế hai trường hợp đầu tiên của Ô tô bằng Xe đạp sử dụng mã sau.
1261
Ở đây, 2 được sử dụng làm số đếm để thay thế hai trường hợp đầu tiên của Ô tô với Xe đạp .
Sau khi chạy mã, bạn sẽ có sự thay thế của hai văn bản đầu tiên Ô tô với Xe đạp .
➤ Áp dụng đoạn mã sau để thay thế tất cả các phiên bản của văn bản Ô tô .
7362
Ở đây, đối số cuối cùng của hàm REPLACE là 3 là số đếm cho biết việc thay thế tất cả Ô tô bằng Xe đạp trong chuỗi văn bản.
➤ Nhấn F5 .
Sau đó, chúng tôi sẽ có hộp thông báo sau với văn bản được thay thế Xe đạp trong chuỗi.
Bài đọc tương tự
- Cách thay thế văn bản bằng ký tự xuống dòng trong Excel (4 cách tiếp cận dễ dàng)
- VBA Excel: Cách tìm và Thay thế Văn bản trong Tài liệu Word
- Cách Thay thế Văn bản sau Ký tự Cụ thể trong Excel (3 Phương pháp)
- Thay thế Văn bản của mộtÔ Dựa trên Điều kiện trong Excel (5 Phương pháp Đơn giản)
Phương pháp-03: Thay thế Văn bản trong Chuỗi Ngẫu nhiên bằng Hộp nhập
Ở đây, chúng ta sẽ thay thế một văn bản nhất định của một chuỗi ngẫu nhiên có văn bản sẽ được người dùng xác định với sự trợ giúp của hàm VBA InputBox .
Các bước :
➤ Thực hiện theo Bước-01 của Phương pháp-1 .
➤ Nhập mã sau.
7243
Ở đây, chúng tôi đã khai báo full_txt_str , new_txt và updated_str dưới dạng Chuỗi rồi gán full_txt_str cho một chuỗi văn bản ngẫu nhiên- “Trăm xe Năm mươi xe Mười xe” . Để đầu vào do người dùng xác định làm văn bản được thay thế bằng Ô tô trong chuỗi ngẫu nhiên, chúng tôi đã sử dụng hàm InputBox và sau đó gán giá trị này đến new_txt . Sau đó, hàm REPLACE được sử dụng để thay thế phần Cars của chuỗi ngẫu nhiên này bằng new_txt . Cuối cùng, chúng ta đã gán chuỗi văn bản mới này cho updated_str và với hộp thông báo ( MsgBox ), chúng ta sẽ thấy kết quả.
➤ Nhấn F5 .
Sau đó, Hộp Nhập liệu sẽ xuất hiện nơi bạn có thể nhập bất kỳ phần văn bản nào bạn muốn có trong chuỗi mới.
➤ Nhập Xe đạp hoặc bất kỳ văn bản nào khác mà bạn muốn rồi nhấn OK .
Cuối cùng, bạn sẽ có kết quả như sau với chuỗi văn bản mới có văn bản mới Xe đạp invị trí của Ô tô .
Đọc thêm: Cách thay thế văn bản trong công thức Excel (7 cách dễ dàng)
Phương pháp-04: Thay thế Văn bản trong Phạm vi Chuỗi bằng Excel VBA
Ở đây, chúng tôi sẽ thay thế phần gmail của id email có tên miền trong cột Miền mới và để tích lũy id email mới, chúng tôi đã chèn một cột mới; Id email cuối cùng .
Các bước :
➤ Thực hiện theo Bước-01 của Phương thức-1 .
➤ Nhập mã sau.
7636
Ở đây, chúng ta đã sử dụng vòng lặp FOR để thực hiện thao tác từ Hàng 4 đến Hàng 13 . Với sự trợ giúp của câu lệnh IF-THEN , chúng tôi đã kiểm tra xem id email của Cột D có chứa “gmail” hoặc không và để đáp ứng tiêu chí này, phần “gmail” của id email sẽ được thay thế bằng tên miền mới của Cột E để tạo id mới trong Cột F . Nếu không, bạn sẽ có khoảng trống trong các ô tương ứng của Cột F .
➤ Nhấn F5 .
Sau đó, bạn sẽ có id email mới trong cột Id email cuối cùng .
Đọc thêm: Excel VBA để tìm và thay thế văn bản trong một cột (2 ví dụ)
Phương pháp-05: Thay thế văn bản trong một dãy chuỗi bằng đầu vào của người dùng để tìm văn bản
Bạn có thể thay thế id email sau vớimiền mới và khai báo những gì cần thay thế trong các id trước đó, thông tin nhập của người dùng có thể được sử dụng bằng cách làm theo phương pháp này.
Các bước :
➤ Thực hiện theo Bước-01 của Phương pháp-1 .
➤ Nhập mã sau đây.
9572
Ở đây, chúng tôi đã xác định partial_text dưới dạng Chuỗi rồi gán nó cho một chuỗi sẽ được cung cấp bởi người dùng thông qua Hộp nhập .
Sau đó, chúng tôi đã sử dụng vòng lặp FOR để thực hiện thao tác từ Hàng 4 đến Hàng 13 và sử dụng câu lệnh IF-THEN , chúng tôi đã kiểm tra xem id email của Cột D có chứa “gmail” hoặc không phải. Và để đáp ứng tiêu chí này, phần “gmail” của id email sẽ được thay thế bằng tên miền mới của Cột E để tạo id mới trong Cột F . Nếu không, bạn sẽ có khoảng trống trong các ô tương ứng của Cột F .
➤ Nhấn F5 .
Sau đó, bạn sẽ có Hộp Nhập liệu nơi bạn phải nhập văn bản mà bạn muốn tìm kiếm trong phạm vi id email (ở đây chúng tôi có đã nhập gmail ) rồi nhấn OK .
Cuối cùng, chúng tôi đã cập nhật id email trong Cuối cùng Id email cột.
Đọc thêm: Tìm và thay thế văn bản trong một phạm vi bằng Excel VBA (Macro và UserForm)
Phần Thực hành
Để thực hành bằng cáchchính bạn, chúng tôi đã cung cấp phần Thực hành như bên dưới trong trang tính có tên Thực hành . Vui lòng tự làm.
Kết luận
Trong bài viết này, chúng tôi đã cố gắng đề cập đến các cách thay thế văn bản trong một chuỗi bằng Excel VBA . Hy vọng bạn sẽ thấy nó hữu ích. Nếu bạn có bất kỳ đề xuất hoặc câu hỏi nào, vui lòng chia sẻ chúng trong phần bình luận.
