Làm cách nào để thay thế các ô không trống bằng giá trị cụ thể trong Excel?
Trong Excel, chúng ta có thể nhanh chóng và dễ dàng thay thế hoặc điền vào một lựa chọn bằng một giá trị cụ thể bằng cách nhấn Ctrl + Enter nhưng, bạn có biết cách chỉ thay thế các ô không trống bằng một giá trị nhất định trong dải ô đã chọn chứa cả ô trống và ô giá trị không.
Thay thế các ô không trống bằng giá trị cụ thể bằng cách sử dụng tính năng Tìm và Thay thế
Thay thế các ô không trống bằng giá trị cụ thể bằng cách sử dụng mã VBA
Thay thế các ô không trống bằng giá trị cụ thể bằng cách sử dụng tính năng Tìm và Thay thế
Trong Excel, tính năng Tìm và Thay thế có thể giúp chúng tôi tìm tất cả các ô không trống và sau đó thay thế chúng bằng một giá trị được chỉ định theo ý muốn.
1. Chọn phạm vi dữ liệu mà bạn chỉ muốn thay thế các ô giá trị.
2. Và sau đó nhấn Ctrl + H để mở Tìm và Thay thế hộp thoại, trong Tìm và Thay thế hộp thoại, dưới Thay thế tab, loại * trong Tìm và nhập giá trị bạn cần vào Thay thế bằng hộp văn bản, xem ảnh chụp màn hình:
3. Sau đó nhấn vào Thay thế Tất cả và một hộp thoại hiện ra cho bạn biết số lượng ô cần thay thế, hãy đóng hộp thoại, sau đó tất cả các giá trị trong phạm vi đã chọn đã được thay thế bằng dữ liệu được chỉ định của bạn, xem ảnh chụp màn hình:
Thay thế các ô không trống bằng giá trị cụ thể bằng cách sử dụng mã VBA
Bằng cách sử dụng mã VBA sau, bạn cũng có thể thay thế tất cả các ô dữ liệu thành các giá trị cần thiết của bạn cùng một lúc. Vui lòng làm như sau:
1. 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: Thay thế các ô không trống bằng giá trị cụ thể
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
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 chọn một dải ô mà bạn muốn thay thế dữ liệu, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OKvà nhập giá trị cụ thể của bạn vào hộp nhắc tiếp theo, xem ảnh chụp màn hình:
5. Và sau đó nhấp vào OK, tất cả các giá trị trong phạm vi đã chọn của bạn đã được thay thế bằng một số dữ liệu nhất định cùng một lúc.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!