Hướng dẫn xóa dòng trống tự động bằng VBA trong Excel

 Trong quá trình nhập liệu hoặc tiếp nhận số liệu từ người khác thì thường có phát sinh những dòng trống ở giữa các khối số liệu. Điều này sẽ gây khá nhiều bất tiện khi dùng các phím tắt, filter và sort thiếu giá trị, làm công thức,...

Bài viết dưới đây sẽ hướng dẫn dùng VBA để thực hiện xóa dòng trống trong khối dữ liệu. Các bước thực hiện như sau:

Bước 1: Mở sheet Excel cần xóa dòng trống và nhấn tổ hợp phím Alt+F11 (hoặc Alt+Fn+F11) để vào môi trường VBA => Vào menu Insert chọn Module

Bước 2: Copy đoạn code dưới đây vào cửa sổ Module

Sub ClearBlankRow()

    Dim Cot_kt As String

    Dim i&, Dong_dau&

    Dong_dau = 4

    Cot_kt = "A"

    For i = Range(Cot_kt & Rows.Count).End(xlUp).Row To Dong_dau Step -1

        If Range(Cot_kt & i).Value = "" Then Range(Cot_kt & i).EntireRow.Delete

    Next

End Sub

Bước 3: Sửa thông tin trong code

Dong_dau=4 thì dòng bắt đầu là dòng nào thì thay số 4 bằng dòng bắt đầu tương ứng của sheet

Cot_kt = "A" cột kiểm tra xem dòng đó có bị trống hay ko. Thay "A" bằng cột kiểm tra theo sheet. Nếu ô nào trong cột A bị trống thì Code sẽ thực hiện xóa cả dòng đó

Bước 4: Chạy code bằng cách nhấn nút Run (màu xanh nhỏ trên thanh công cụ VBA)

Liên hệ tư vấn khóa học Excel cho người đi làm hoặc đặt hàng đào tạo tại doanh nghiệp

{Đt+Zalo} - 038 696 1334