Có nhiều cách để xóa các hàng trống trong trang tính Excel, nhưng cách nhanh chóng nhất là sử dụng macro trong Excel. Bất kể lý do xuất hiện các hàng trống trong Excel là gì, tốt nhất là bạn nên xóa chúng. Hầu hết các tính năng của Excel diễn giải một hàng trống là phần cuối của một dải dữ liệu; do đó, các tính năng đó sẽ không hoạt động như mong đợi nếu bạn để các hàng trống trong tập dữ liệu của mình.
Trong bài viết này, chúng ta sẽ khám phá cách tạo một macro giúp bạn nhanh chóng xóa các hàng trống trong Excel.
Nội dung chính
Đầu tiên, chúng ta hãy xem mã hiển thị bên dưới. Đừng quá lo lắng vì đoạn code này không phức tạp như vẻ bề ngoài. Logic rất đơn giản. Sau khi khai báo và thiết lập một vài biến, vòng lặp For sẽ kiểm tra mọi hàng trong phạm vi đã chọn để tìm các hàng trống. Khi nó tìm thấy bất kỳ hàng trống nào, code này sẽ xóa hàng và dịch chuyển các hàng phía dưới lên.
Xem thêm khóa học Tuyệt đỉnh VBA - Viết code trong tầm tay giúp bạn tăng ít nhất 200% năng suất làm việc. Hơn thế nữa, khi tận dụng lợi thế của lập trình VBA để tự động hóa thao tác và nghiệp vụ trên Excel, bạn có thể tiết kiệm hàng giờ mệt mỏi vì làm báo cáo, quản lý dữ liệu.
Mã VBA xóa hàng trống trong Excel
Sub DeleteBlankRows()
'Delete blank rows in a selected range.
'Choose appropriate delete statement in For loop.
'Entire Row deletes entire rows.
'Delete deletes partial rows.
Dim rng As Range
Dim selectedRng As Range
Dim iRowCount As Integer
Dim iForCount As Integer
'Error handling; for good measure.
On Error Resume Next
Set selectedRng = Application.Selection
'Type:=8 argument specifies a Range object; input value must be a range.
Set selectedRng = Application.InputBox("Range", , selectedRng.Address, Type:=8)
Application.ScreenUpdating = False
'Count of rows in selected range used as For stop value.
'WorksheetFunction.CountA counts the number of cells that are NOT empty.
iRowCount = selectedRng.Rows.Count
For iForCount = iRowCount To 1 Step -1
If Application.WorksheetFunction.CountA(selectedRng.Rows(iForCount)) = 0 Then
'Delete entire row.
selectedRng.Rows(iForCount).EntireRow.Delete
'Delete partial row.
'selectedRnd.Rows(iForCount).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
Một số lệnh có thể cần giải thích một chút.
Set selectedRng = Application.InputBox("Range", , selectedRng.Address, Type:=8)
Đoạn code để xóa dòng trống trong excel này bao gồm hai câu lệnh xóa: một câu lệnh xóa toàn bộ hàng và một câu lệnh xóa một phần các hàng trong phạm vi đã chọn.
Hoặc để đơn giản hơn, bạn có thể tạo hai macro: một macro xóa toàn bộ hàng và một macro chỉ xóa một phần hàng.
Bây giờ bạn đã biết cách hoạt động của macro, hãy thêm nó vào sổ làm việc của mình.
Như vậy, bạn đã thêm macro thành công vào trang tính của mình.
Xem thêm: Khóa học lập trình VBA cho người mới bắt đầu
Nếu bạn thường xuyên sử dụng macro, hãy cân nhắc thêm nó vào QAT của bạn
Bạn có thể dễ dàng để thêm một hoặc hai macro vào Office QAT để nhanh chóng thực hiện các tác vụ thường xuyên lập lại. Các bước thực hiện như sau:
Sau đó, bạn có thể tùy chỉnh macro trên thanh Office QAT của mình để hiển thị đẹp mắt hơn. Bạn có thể thay đổi biểu tượng macro với các bước như sau:
Hy vọng bài viết này đã cung cấp cho bạn những thông tin hữu ích. Bên cạnh đó, để không bỏ lỡ những mẹo và thủ thuật tin học văn phòng thú vị khác, hày tham gia Gitiho ngay hôm nay.
Khóa học liên quan