Hướng dẫn chèn thêm dòng trống tự động bằng VBA

 Trong xử lý dữ liệu thì nhiều trường hợp cần chèn thêm những dòng trống sau mỗi dòng dữ liệu. Bài viết dưới đây sẽ hướng dẫn sử dụng code mẫu VBA để chèn dòng trống tự động như sau:

Bước 1: Mở sheet Excel cần chèn thêm 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 Insert chọn Module

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

Sub InsertBlankRow()

    Dim Cot_kt As String

    Dim i&, Dong_dau&, So_chen&

    Dong_dau = 5

    Cot_kt = "A"

    So_chen = 10

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

        If Range(Cot_kt & i).Value <> "" Then Range(Cot_kt & i + 1 & ":" & Cot_kt & i + So_chen).EntireRow.Insert

    Next

End Sub

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

- Cot_kt="A". Mặc định là cột A là làm căn cứ để insert thêm dòng. Cột này bắt buộc phải có dữ liệu nhập trong đó. Nếu bảng tính căn cứ vào cột khác (ví dụ: C) thì người dùng thay "A" bằng "C"

- So_chen=10: Thay 10 bằng số dòng trống muốn chèn phía dưới mỗi dòng

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

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