Làm thế nào để tìm và thay thế văn bản cụ thể trong hộp văn bản trong Excel?

Công cụ Tìm và Thay thế là một tính năng thiết yếu để cập nhật nhanh nội dung ô hoặc công thức trong một bảng tính. Tuy nhiên, việc quản lý văn bản trong nhiều hộp văn bản có thể là một thách thức nếu bạn chỉ có thể cập nhật thủ công. Nếu bạn cần tìm văn bản cụ thể trong hộp văn bản và thay thế hiệu quả, hướng dẫn này sẽ hướng dẫn bạn cách sử dụng mã VBA để xử lý tác vụ này chỉ trong vài bước.

Tìm và thay thế văn bản cụ thể trong nhiều hộp văn bản

Tìm và thay thế văn bản cụ thể trong nhiều hộp văn bản

Bạn có thể tìm và thay thế văn bản theo cách thủ công từng cái một, nhưng quá trình này trở nên tẻ nhạt và tốn thời gian khi xử lý nhiều hộp văn bản. Mã VBA sau đây cung cấp một cách hiệu quả để hoàn thành nhiệm vụ này cùng một lúc.

1. Kích hoạt trang tính của bạn và nhấn giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Tìm và thay thế văn bản cụ thể trong các hộp văn bản của trang tính hiện tại

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn nhập văn bản cũ mà bạn muốn thay thế. Xem ảnh chụp màn hình:

4. Tiếp tục nhấp OKvà trong hộp nhắc nhở này, hãy nhập giá trị văn bản mới mà bạn muốn, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK , các giá trị cũ đã được thay thế bằng các giá trị mới mà bạn đã nhập vào trang tính hiện tại. Xem ảnh chụp màn hình:

Các bài liên quan:

Làm cách nào để tìm và thay thế văn bản trong tiêu đề biểu đồ trong Excel?

Làm cách nào để tìm và thay thế văn bản trong các nhận xét trong Excel?

Làm cách nào để thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong Excel?