- Lời khuyên Excel
- Chức năng Excel
- Công thức Excel
- Biểu đồ Excel
- Lời khuyên từ
- Lời khuyên Outlook
Như tất cả 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ị như bạn cần. Nhưng đôi khi, bạn cần áp dụng đồng thời thay thế nhiều đến nhiều. 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 quả chuối vàng, v.v. Excel?
Tìm và thay thế nhiều giá trị cùng một lúc bằng mã VBA
Nếu bạn mệt mỏi vì tìm và thay thế các giá trị hết lần này đến lần khác, mã VBA sau đây có thể giúp bạn thay thế nhiều giá trị bằng các văn bản cần thiết của bạn cùng một lúc.
1. Vui lòng tạo các điều kiện của bạn mà bạn muốn sử dụng có chứa các giá trị ban đầu và giá trị mới. Xem ảnh chụp màn hình:. Please create your conditions that you want to use which contain the original values and new values. See screenshot:
2. Sau đó giữ các phím ALT + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.. Then hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
3. Nhấp vào Chèn> Mô -đun và Dán mã sau vào cửa sổ Mô -đun.. Click Insert > Module, and paste the following code in the Module window.
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 phím F5 để chạy mã này, trong hộp nhắc xuất hiện, 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.. Then press F5 key to run this code, in the popped out prompt box, please specify the data range that you want to be replaced the values with new values.
5. Nhấp vào OK và một hộp nhắc khác được hiển thị để nhắc bạn chọn các tiêu chí mà bạn được tạo trong bước 1. Xem ảnh chụp màn hình:. Click OK, and another prompt box is displayed to remind you select the criteria which you are created in step 1. See screenshot:
6. Sau đó bấm 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.. Then click OK, all the specific values have been replaced with the new values as you need immediately.
Những bài viết liên quan:
Làm thế nào để tìm và thay thế văn bản cụ thể trong các hộp văn bản?
Làm thế nào để tìm và thay thế văn bản trong các tiêu đề biểu đồ trong Excel?
Làm thế nào để tìm và thay thế văn bản trong các bình luận trong Excel?
Làm thế nào để thay đổi nhiều đường dẫn siêu liên kết 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 năng suất của bạn lên 80%
- Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- 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]; Đọc bố cục [dễ dàng đọc và chỉnh sửa số lượng lớn các ô]; Dán vào phạm vi được lọc ... [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; 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 phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống [tất cả các ô trống]; Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng các sơ đồ lọc cho các bảng khác]; Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp sách bài tập và bảng tính; 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 tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 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 đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều
- Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and 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 năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!
Comments[133] [133]
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!