Grant thường xuyên sao chép thông tin từ các trang Web và dán thông tin đó vào trang tính. Anh ta không chỉ kết thúc với dữ liệu thô mà còn với các mục khác, chẳng hạn như hộp kiểm, hình ảnh, biểu trưng, ​​v.v. Grant muốn một cách dễ dàng để loại bỏ tất cả các mục không phải dữ liệu này.

Điều đầu tiên mà hầu hết mọi người thử là sử dụng Go To Special, theo cách này:

  1. Nhấn F5. Excel sẽ hiển thị hộp thoại Đi tới.

  2. Nhấp vào nút Đặc biệt. Excel sẽ hiển thị hộp thoại Đi đến Đặc biệt.

(Xem Hình 1.)

  1. Chọn tùy chọn Đối tượng.

  2. Bấm OK.

Khi bạn làm điều này, Excel sẽ chọn một số đối tượng trong trang tính và sau đó bạn có thể nhấn phím Delete để loại bỏ chúng.

Vấn đề là phương pháp này không chọn tất cả các mục không phải dữ liệu trong trang tính; nó chỉ chọn một tập hợp con trong số chúng — những mục được Excel coi là “đối tượng”.

Giải pháp tốt hơn là sử dụng macro để chọn tất cả các hình trong trang tính và sau đó xóa chúng. Điều này khá đơn giản để thực hiện, sử dụng macro như sau:

Sub DeleteAllShapes1()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next End Sub

Macro chỉ lặp lại từng hình dạng trên trang tính đang hoạt động và xóa từng hình dạng. Bạn có thể mở rộng macro chỉ một chút bằng cách nó cũng xóa tất cả các siêu liên kết được dán trong trang tính. Tất cả chỉ cần thêm một dòng duy nhất:

Sub DeleteAllShapes2()

Nếu vì một lý do kỳ lạ nào đó, các macro này không loại bỏ được tất cả các mục không phải dữ liệu mà bạn muốn xóa, bạn có thể sử dụng một cách tiếp cận khác:

dừng lại trong NotePad trước Excel. Chỉ cần dán dữ liệu Web của bạn vào một tài liệu NotePad trống, sau đó chọn thông tin đó (sau khi nó được dán) và sao chép lại vào Clipboard. Sau đó, dán nó vào Excel.

Điều duy nhất còn lại phải là dữ liệu thẳng.

_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 (2881) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: