Làm cách nào để sao chép và chèn hàng nhiều lần hoặc sao chép hàng x lần trong Excel?
Trong công việc hàng ngày, bạn đã bao giờ cố gắng sao chép một hàng hoặc từng hàng rồi chèn nhiều lần vào bên dưới hàng dữ liệu hiện tại trong một trang tính chưa? Ví dụ: tôi có một dải ô, bây giờ, tôi muốn sao chép từng hàng và dán chúng 3 lần vào hàng tiếp theo như hình minh họa sau. Làm thế nào bạn có thể giải quyết công việc này trong Excel?
 |
 |
 |
- Sao chép và chèn một hàng cụ thể nhiều lần bằng mã VBA
- Sao chép và chèn mỗi hàng nhiều lần bằng mã VBA
- Sao chép và chèn mỗi hàng nhiều lần dựa trên một số cụ thể với một tính năng tuyệt vời
Sao chép và chèn một hàng cụ thể nhiều lần bằng mã VBA
Nếu bạn chỉ muốn sao chép một hàng cụ thể x lần, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:
1. Chỉ định một hàng mà bạn muốn sao chép và chèn nhiều lần, sau đó nhấn giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Nhân bản một hàng cụ thể nhiều lần:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Sau khi dán mã, vui lòng nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập số lần bạn muốn sao chép, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK và ba hàng được sao chép mới đã được chèn vào bên dưới hàng đã chọn, xem ảnh chụp màn hình:
Sao chép và chèn từng hàng nhiều lần dựa trên một số cụ thể một cách dễ dàng
Thông thường, không có phương pháp tốt để sao chép và chèn hàng nhiều lần ngoại trừ xử lý sao chép và chèn thủ công. Nhưng vơi Kutools cho Excel's Các hàng / cột trùng lặp dựa trên giá trị ô bạn có thể giải quyết vấn đề này một cách dễ dàng. Nhấp để tải xuống Kutools cho Excel!
Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày. Tải xuống và dùng thử miễn phí ngay!
Sao chép và chèn mỗi hàng nhiều lần bằng mã VBA
Để sao chép từng hàng nhiều lần trong một phạm vi, bạn có thể áp dụng mã VBA sau, vui lòng thực hiện như bên dưới:
1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Sao chép mỗi hàng nhiều lần:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. Và sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập số lần bạn muốn sao chép cho mỗi bản ghi, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OKvà mỗi hàng đã được sao chép và chèn 3 lần bên dưới những hàng đang hoạt động, hãy xem ảnh chụp màn hình:
|
|
|
Chú thích: Trong đoạn mã trên, A cho biết phạm vi dữ liệu được bắt đầu ở cột A, nếu dữ liệu của bạn bắt đầu ở cột K, hãy thay đổi A đến K như nhu cầu của bạn.
Sao chép và chèn mỗi hàng nhiều lần dựa trên một số cụ thể với một tính năng tuyệt vời
Có thể, bạn chưa quen với mã VBA hoặc lo lắng về việc mã sẽ làm hỏng dữ liệu của bạn. Ở đây, tôi sẽ giới thiệu một tính năng hữu ích, Kutools cho Excel's Các hàng / cột trùng lặp dựa trên giá trị ô, với tiện ích này, bạn có thể nhanh chóng sao chép và chèn các hàng dựa trên số lượng bạn đã chỉ định.
Lời khuyên:Để áp dụng điều này Các hàng / cột trùng lặp dựa trên giá trị ô , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.
Sau khi cài đặt Kutools cho Excel, hãy làm như sau:
1. Nhập các số lặp lại mà bạn muốn sao chép các hàng trong danh sách các ô bên cạnh dữ liệu của bạn, xem ảnh chụp màn hình:
2. Nhấp chuột Kutools > Chèn > Các hàng / cột trùng lặp dựa trên giá trị ô, xem ảnh chụp màn hình:
3. Trong Sao chép và chèn hàng & cột hộp thoại, chọn Sao chép và chèn hàng tùy chọn trong Kiểu , sau đó chọn phạm vi dữ liệu bạn muốn sao chép, rồi chỉ định thời gian lặp lại để sao chép các hàng, xem ảnh chụp màn hình:
4. Sau đó nhấn vào Ok or Đăng Nhập , bạn sẽ nhận được kết quả sau khi bạn cần:
|
|
 |
Nhấp để Tải xuống Kutools cho Excel và dùng thử miễn phí ngay!
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
