Hướng dẫn chèn và nhân bản thêm dòng tự động bằng VBA

 Trong xử lý dữ liệu thì nhiều trường hợp cần chèn nhân bản thêm 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 nhân bản thêm dòng dữ liệu tự động như sau:

Bước 1: Mở sheet Excel cần chèn nhân bản số dò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 InsertAndCopyRow()

    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

            Range(Cot_kt & i + 1 & ":" & Cot_kt & i + So_chen).EntireRow.Value = Range(Cot_kt & i).EntireRow.Value

        End If

    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 muốn chèn và nhân bả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