Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để tìm và thay thế nhiều giá trị cùng một lúc trong Excel?

doc nhiều tìm thay thế 1

Như chúng ta đã biết, chúng ta có thể sử dụng chức năng Tìm và Thay thế để tìm nhiều ô giống nhau và thay thế chúng bằng một giá trị khi bạn cần. Nhưng đôi khi, bạn cần áp dụng đồng thời nhiều thay thế. Ví dụ: tôi có một loạt dữ liệu và bây giờ tôi muốn thay thế tất cả Táo thành Táo đỏ, Cam thành Cam xanh, Chuối thành Chuối vàng, v.v. như ảnh chụp màn hình sau được hiển thị, bạn có ý tưởng hay nào để giải quyết công việc này trong Excel?

Tìm và thay thế nhiều giá trị cùng một lúc bằng mã VBA


mũi tên màu xanh bong bóng bên phải Tìm và thay thế nhiều giá trị cùng một lúc bằng mã VBA

Nếu bạn cảm thấy mệt mỏi với việc tìm và thay thế các giá trị hết lần này đến lần khác, mã VBA sau có thể giúp bạn thay thế nhiều giá trị bằng văn bản cần thiết của bạn cùng một lúc.

1. Vui lòng tạo điều kiện của bạn mà bạn muốn sử dụng có chứa giá trị ban đầu và giá trị mới. Xem ảnh chụp màn hình:

doc nhiều tìm thay thế 2

2. Sau đó nhấn giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

3. 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ế nhiều giá trị cùng một lúc

Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

4. Sau đó nhấn F5 để chạy mã này, trong hộp nhắc hiện ra, vui lòng chỉ định phạm vi dữ liệu mà bạn muốn được thay thế các giá trị bằng các giá trị mới.

doc nhiều tìm thay thế 3

5. Nhấp chuột OKvà một hộp nhắc khác được hiển thị để nhắc bạn chọn tiêu chí mà bạn đã tạo ở bước 1. Xem ảnh chụp màn hình:

doc nhiều tìm thay thế 4

6. Sau đó nhấn vào OK, tất cả các giá trị cụ thể đã được thay thế bằng các giá trị mới khi bạn cần ngay lập tức.

doc nhiều tìm thay thế 5


Các bài liên quan:

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

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?

 


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng

 

Nhận xét (136)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này không hiệu quả với tôi. Tôi đang sử dụng Excel 2010. Nó đã nhắc tôi về phạm vi ban đầu và phạm vi mới sau đó không thành công mà không có thông báo nào. Không có gì được thay thế. Tôi sẽ tiếp tục tìm kiếm một cách để làm điều này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin vui lòng bỏ qua bình luận cuối cùng của tôi. Tôi đã làm sai. Nó hoạt động tốt!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin vui lòng bỏ qua bình luận cuối cùng của tôi. Tôi đã làm sai. Nó hoạt động tốt!Bởi Ken Long[/ quote] Nó không hiệu quả với tôi. Làm thế nào bạn đã làm điều đó sai. Tôi không có kiến ​​thức về VBA.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã cố gắng sử dụng macro này để dịch các phép đo. Dòng được dịch: Hạt Đo Khoảng: 11/16 Inch Rộng Giá trị thay thế: 1/32 0,794 mm 1/16 1,588 mm. . . 11/16 17,463 mm. . . 1/1 25,400 mm Đường kết quả: Số hạt Khoảng: 11,588 mm Rộng sai sự cố: Mã sử ​​dụng Giá trị từ 1/16 an thay thế nó Làm cách nào để sửa lỗi này? (Nếu tôi sử dụng LookAt: = xlWhole trong một Macro khác, tôi không nhận được bất kỳ kết quả nào)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn. Tôi có thể phân biệt chữ hoa chữ thường không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
OMG, tôi chứng kiến ​​Chúa Giêsu ở đây !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã cố gắng sử dụng mã này với việc thay thế nhiều số bằng văn bản tương ứng. Tôi có một tập dữ liệu lớn nằm trong khoảng từ 1 -> 112000, nhưng khi tôi cố gắng chuyển 1 thành giá trị chuỗi tương ứng của nó (ví dụ: Apple), nó sẽ dịch điều này theo từng chữ số 1 trong cột. Do đó, 112000 sẽ được xuất dưới dạng AppleAppleOrange000. Có cách nào trong quy trình Kutools này, như công cụ tìm / thay thế trong excel, để tìm / thay thế các trường hợp khớp cụ thể không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn cần thêm tham số sau: MatchCase: = True Vì vậy, ví dụ, thêm nó vào dòng dưới đây: InputRng.Replace what: = Rng.Value, Replace: = Rng.Offset (0, 1) .Value, MatchCase: = Đúng Điều này sẽ chỉ tìm và thay thế các mục MatchCase trong Phạm vi bạn đã chọn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể viết lại mã để đảm bảo rằng chúng tôi đã hiểu đúng không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó không hoạt động với tôi, giúp tôi viết lại mã, làm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
có cách nào để mặc định phạm vi Ban đầu thành 'Tab1' không! $ 4: $ 42
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm việc như người ở! Cảm ơn vì mã và hướng dẫn chi tiết ... Bạn đã cứu được hai ngày của tôi ... Chúa phù hộ !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
ĐỊNH DẠNG GỐC: 1 trong ID X 2-1 / 2 trong OD X 40 trong Độ dài 1 trong ID X 2-1 / 2 trong OD X 10 trong Độ dài 1 trong ID X 2-1 / 2 trong OD X 20 trong Độ dài 1 in ID X 2-1 / 2 trong OD X 10 trong Chiều dài 9-1 / 2 trong ID X 14 trong OD X 12 trong Chiều dài Định dạng BẮT BUỘC: ID 1 x OD 2-1 / 2 x LG 40 IN ID 1 x OD 2- 1/2 x LG 10 IN ID 1 x OD 2-1 / 2 x LG 20 IN ID 1 x OD 2-1 / 2 x LG 10 IN ID 9-1 / 2 x OD 14 x LG 12 IN XIN VUI LÒNG CHO TÔI BIẾT VÍ DỤ ĐÃ CHO PHÉP, CÁCH THAY THẾ ĐỊNH DẠNG GỐC THÀNH ĐỊNH DẠNG BẮT BUỘC TRONG EXCEL
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn nó đã giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Macro không hoạt động để đối sánh chính xác. Giống như có hai loại ABC và ABC 2. Tìm và thay thế ABC bằng RRR và ABC 2 bằng TTT để Macro sẽ thay đổi ABC 2 thành RRR 2 thay vì TTT.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lúc đầu thay ABC 2 bằng TTT và sau đó ABC bằng RRR
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong "Phạm vi gốc", bạn hiển thị $ A $ 2: $ A $ 10, gợi ý rằng nó nằm trong một trang tính. Làm cách nào để chọn toàn bộ sổ làm việc ở đây?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ồ!!! Cảm ơn rất nhiều! Làm việc như một viên đá quý.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động như một sự quyến rũ! Cảm ơn nhiều: D (Y)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng mã trên để thay thế các số nhưng cả 11 và 1 đều đang được thay thế.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub MultiFindNReplace () 'Cập nhật 20140722 Dim Rng As Range Dim InputRng As Range, ReplaceRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox ("Original Range", xTitleId, InputRng.Address, Type: = 8) Đặt ReplaceRng = Application.InputBox ("Replace Range:", xTitleId, Type: = 8) Application.ScreenUpdating = False For Each Rng In ReplaceRng.Columns (1). Gọi InputRng. Thay thế cái gì: = Rng.Value, Replace: = Rng.Offset (0, 1) .Value, lookat: = xlwhole Next Application.ScreenUpdating = True End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đúng!! Cảm ơn bạn vì mã này, nó hoạt động như một sự quyến rũ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này cũng không hoạt động khi cố gắng thay thế một cột giá trị số bằng các giá trị số khác từ bảng tổng hợp. Đây là những gì tôi nhận được khi cố gắng thực hiện đơn giản để tự động hóa các nội dung trong bảng tính Excel.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn. Nó hoạt động tuyệt vời.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có cùng một vấn đề trong đó nếu 2 tên giống nhau, chẳng hạn như nếu tôi muốn thay thế GIÁO VIÊN bằng 1 và HỖ TRỢ GIÁO VIÊN bằng 2, nó sẽ thay thế GIÁO VIÊN bằng 1 và HỖ TRỢ GIÁO VIÊN bằng 1 HỖ TRỢ. Làm cách nào để tôi có được nó để thay thế cụm từ CHÍNH XÁC?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều. Nó khá hữu ích và giúp tôi tiết kiệm được 1 giờ lao động
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có hai cột, cột thứ nhất là danh sách số 1 .... 1,2,3, ... Cột thứ hai là danh sách các chuỗi. Thay vì thay thế giá trị của 22,23 bằng giá trị chuỗi. Nó thay thế nó bằng các chuỗi từ 12 và 1. Có ai biết cách sắp xếp điều này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có 3 cột như dưới đây, 1 Đồng hồ vạn năng 2 Đèn kiểm tra 3 Ohm Đồng hồ đo 4 Máy đo điện trở 5 Vòng lặp lỗi 12 Máy kiểm tra RCD 24 RCD di động 13 Dây dẫn mở rộng Cột thứ ba có số 1,2 ... 50. Có khoảng 36000 hàng. Nó thay thế 12 bằng các giá trị từ hàng 1 và 2 thay vì 12. Bạn có biết cách khắc phục nó không?
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL