Tara thường nhận được sổ làm việc chứa một trang tính trong đó một số thông tin trong trang tính chứa văn bản được “gạch ngang” (văn bản được định dạng bằng cách sử dụng gạch ngang). Các dòng chứa văn bản gạch ngang cần phải được xóa, nhưng Tara không chắc chắn về cách nhanh chóng thực hiện việc này.

Nếu bạn chỉ cần thực hiện tác vụ này một lần, các bước sau đây sẽ giúp bạn biết liệu có dễ dàng xem ô nào chứa định dạng tấn công hay không:

  1. Nhấp vào phía bên trái của hàng đầu tiên bạn muốn chọn — hàng đầu tiên chứa văn bản gạch ngang. Toàn bộ hàng sẽ được chọn.

  2. Giữ phím Ctrl khi bạn nhấp vào ở phía bên trái của bất kỳ hàng bổ sung nào bạn muốn xóa. (Bạn đang tạo một tập hợp các hàng lựa chọn để xóa.)

  3. Nhấn Ctrl + – (phím trừ). Các hàng đã bị xóa.

Nếu không dễ dàng để xem tất cả các hàng có chứa văn bản gạch ngang, bạn có thể dựa vào tính năng Tìm để tìm chúng cho bạn:

  1. Nhấn Ctrl + F. Excel sẽ hiển thị tab Tìm 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 những gì có sẵn trong hộp thoại.

  3. Đảm bảo hộp Tìm gì trống và đặt điểm chèn trong hộp đó.

  4. Nhấp vào nút Định dạng. Excel sẽ hiển thị hộp thoại Tìm Định dạng.

  5. Đảm bảo rằng tab Phông chữ được hiển thị. (Nó có thể sẽ được hiển thị theo mặc định.)

  6. Bấm vào hộp kiểm Gạch ngang một hoặc hai lần cho đến khi bạn thấy nó được chọn. (Bạn không cần phải thay đổi bất kỳ điều gì khác trong hộp thoại.)

  7. Bấm OK để loại bỏ hộp thoại Tìm Định dạng.

  8. Nhấp vào Tìm tất cả. Hộp thoại Tìm và Thay thế mở rộng để hiển thị những ô nào chứa định dạng gạch ngang và kết quả đầu tiên (trong hộp thoại) được chọn.

  9. Nhấn Ctrl + A. Thao tác này sẽ chọn tất cả các kết quả trong hộp thoại.

  10. Bấm Đóng để loại bỏ hộp thoại Tìm Định dạng. Bây giờ, tất cả các ô chứa văn bản gạch ngang sẽ được chọn. (Đừng nhấp vào bất kỳ nơi nào khác trong trang tính, nếu không bạn sẽ vô tình bỏ chọn các ô.)

  11. Nhấn Ctrl + – (phím trừ). Excel sẽ hiển thị hộp thoại Xóa.

  12. Nhấp vào nút radio Toàn bộ Hàng.

  13. Bấm OK. Các hàng đã bị xóa.

Có một hạn chế đối với phương pháp này là nó sẽ không tìm thấy bất kỳ ô nào chứa định dạng hỗn hợp. Nói cách khác, nếu chỉ một số văn bản trong ô sử dụng thuộc tính gạch ngang, thì ô đó sẽ không được tìm thấy trong bước 8.

Sự thiếu hụt này có thể được khắc phục bằng cách sử dụng macro. Thêm vào đó, macro là một cách tiếp cận tốt nếu bạn cần thực hiện tác vụ này khá thường xuyên. Đây là một trong những sẽ thực hiện thủ thuật:

Sub DeleteSTRows()

Dim c As Range     Dim bCheck As Boolean     Dim J As Integer     Dim iRows As Integer

iRows = Selection.Rows.Count     If iRows > 2 Then         For J = iRows To 1 Step -1             bCheck = False             For Each c In Selection.Rows(J).Cells                 bCheck = IsNull(c.Font.Strikethrough)

If Not bCheck Then bCheck = c.Font.Strikethrough                 If bCheck Then Exit For             Next c             If bCheck Then Selection.Rows(J).EntireRow.Delete         Next J     End If End Sub

Để sử dụng macro, chỉ cần chọn các ô bạn muốn ảnh hưởng, sau đó chạy nó. Macro bước qua từng hàng của vùng lựa chọn (từ hàng cuối cùng đến hàng đầu tiên) và sau đó kiểm tra từng ô trong các hàng đó. Nếu ô chứa văn bản gạch ngang, thì cờ (bCheck) được đặt và toàn bộ hàng sẽ bị xóa. (Macro sẽ không hoạt động nếu lựa chọn của bạn chỉ chứa 1 hoặc 2 hàng — một vài hàng đủ dễ dàng để kiểm tra và điều chỉnh theo cách thủ công.)

Lưu ý ở giữa macro rằng hàm IsNull được sử dụng. Đây là phần phát hiện xem ô có chứa định dạng hỗn hợp hay không. Nếu chỉ một số ký tự trong ô sử dụng gạch ngang, thì giá trị rỗng được trả về bởi thuộc tính Gạch ngang. Điều này được IsNull kiểm tra và gán cho biến bCheck. Nếu bCheck vẫn là False (nghĩa là không có việc sử dụng hỗn hợp gạch ngang trong ô), thì toàn bộ ô sẽ được kiểm tra để xem nó có định dạng cần thiết hay không.

Cần lưu ý rằng nếu bạn không muốn macro thực sự xóa các hàng, mà chỉ muốn xóa chúng, bạn có thể thay thế phương thức .Delete trong macro bằng phương thức .Clear.

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

Mẹo này (5270) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.