Robert muốn một macro tìm tất cả các phiên bản của ô trong bảng dữ liệu có giá trị bằng 0 và sau đó xóa các ô đó. Anh ấy tự hỏi làm thế nào để tiếp tục làm điều này.

Với mục đích của mẹo này, tôi sẽ giả định rằng Robert thực sự muốn xóa các giá trị trong các ô chứ không thực sự xóa các ô.

Hơn nữa, tôi sẽ giả định rằng anh ta không muốn chỉ ẩn các giá trị 0, điều này có thể dễ dàng thực hiện với một thay đổi cài đặt đơn giản trong Excel.

(Cách bạn làm điều này đã được đề cập trong ExcelTips.)

Thực tế có một số cách bạn có thể thực hiện để loại bỏ các giá trị 0 của mình. Một cách thậm chí không sử dụng macro mà thay vào đó dựa vào khả năng Tìm và Thay thế của Excel:

  1. Nhấn Ctrl + H. Excel hiển thị tab Thay thế của hộp thoại Tìm và Thay thế.

  2. Nhấp vào nút Tùy chọn để mở rộng hộp thoại. (Xem Hình 1.)

  3. Trong hộp Tìm gì, nhập 0.

  4. Đảm bảo rằng hộp Thay thế Bằng trống.

  5. Chọn hộp kiểm Khớp Toàn bộ Nội dung Ô.

  6. Nhấp vào Thay thế Tất cả để thực hiện thay thế.

Thậm chí, nếu muốn, bạn có thể dịch các bước trên thành một macro nhỏ ngắn gọn:

Sub ReplaceZeros()

Cells.Replace What:="0", Replacement:="", _       LookAt:=xlWhole, SearchOrder:=xlByRows End Sub

Có một giới hạn đối với những gì phương pháp này sẽ đạt được, đáng chú ý nhất là nó sẽ chỉ thay thế các ô thực sự chứa giá trị 0. Nó sẽ không thay thế các công thức phân giải thành 0. Ví dụ: nếu một ô chứa fomula = 4-4, phân giải thành 0, thì thao tác Tìm và Thay thế sẽ bỏ qua nó vì thực tế không có giá trị 0 trong ô.

Nếu bạn muốn thứ gì đó thực sự xóa các ô chứa 0 hoặc phân giải thành 0, thì bạn sẽ cần một cách tiếp cận macro khác. Đây là một cái hay:

Sub DeleteZeroes()

Dim rCell As Range

For Each rCell In Selection         If rCell.Value = 0 Then             rCell.ClearContents         End If     Next End Sub

Để sử dụng macro, chỉ cần chọn các ô bạn muốn ảnh hưởng và sau đó chạy macro. Nó xem xét từng ô đã chọn và loại bỏ nội dung của bất kỳ ô nào chứa giá trị 0 — và trong trường hợp này, nó cũng bao gồm bất kỳ công thức nào phân giải thành 0.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (13437) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.