Có rất nhiều lần Tom có ​​một trang tính được nhập từ một chương trình khác vào Excel để anh ấy có thể làm việc với dữ liệu. Quá trình nhập hoạt động tốt, nhưng quá trình nhập thêm nhiều lô (hàng chục và đôi khi hàng trăm)

hàng bổ sung không có dữ liệu trong đó. Sau khi nhập Tom phải xóa các hàng thừa đó theo cách thủ công để anh ta có thể sử dụng phần còn lại của dữ liệu. Tom tự hỏi liệu có cách nào để dễ dàng loại bỏ những hàng trống này không.

Có một số cách bạn có thể tiếp cận vấn đề này. Cách dễ nhất có thể là sắp xếp dữ liệu đã nhập theo cột bạn chọn. Tất cả các hàng không chứa gì trong cột đó sẽ kết thúc ở cuối hoặc đầu dữ liệu (tùy thuộc vào việc bạn sắp xếp theo thứ tự tăng dần hay giảm dần) và bạn có thể dễ dàng xóa các hàng đó.

Rõ ràng, khi bạn sắp xếp theo cách này, bạn có thể đưa dữ liệu của mình ra khỏi thứ tự đã nhập ban đầu. Nếu bạn cần dữ liệu của mình theo thứ tự ban đầu — nhưng đã xóa các hàng trống — chỉ cần chèn một cột vào bên trái hoặc bên phải dữ liệu của bạn, điền vào đó các số liên tiếp, thực hiện sắp xếp theo bất kỳ cột nào ngoại trừ cột đã thêm đó và sau đó xóa các hàng trống (chỉ có một cái gì đó trong cột đánh số).

Sau đó, bạn có thể sắp xếp lần thứ hai dựa trên cột đánh số và dữ liệu của bạn sẽ trở lại thứ tự ban đầu.

Một cách tiếp cận khác là làm theo các bước sau:

  1. Chọn toàn bộ cột.

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

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

  4. Chọn Blanks và sau đó nhấp vào OK. Excel chỉ chọn những ô trong cột trống.

  5. Chọn Xóa từ menu Chỉnh sửa. Excel sẽ hiển thị hộp thoại Xóa.

  6. Chọn Toàn bộ Hàng và sau đó bấm OK.

Nếu bạn thích sử dụng macro để loại bỏ các hàng trống, bạn có thể sử dụng một cái gì đó tương tự như sau:

Sub DeleteEmptyRows()

Dim LastRow As Long     Dim J As Long

LastRow = ActiveSheet.UsedRange.Rows.Count + _       ActiveSheet.UsedRange.Rows(1).Row - 1     Application.ScreenUpdating = False     For J = LastRow To 1 Step -1         If Application.WorksheetFunction.CountA(Rows(J)) = 0 Then             Rows(J).Delete         End If     Next J     Application.ScreenUpdating = True End Sub

Tại sao bạn muốn sử dụng macro? Bởi vì bạn có thể cần phải xóa các hàng trống tuần này qua tuần khác. Chỉ cần đặt macro vào sổ làm việc Cá nhân của bạn và sau đó bạn có thể truy cập nó bất cứ khi nào bạn cần.

Thông tin bổ sung về chủ đề này có thể được tìm thấy trên các trang này:

http://www.cpearson.com/Excel/deleting.htm#DeleteBlankRows http://dmcritchie.mvps.org/excel/lastcell.htm

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

Mẹo này (7986) á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: