Làm cách nào để sao chép các hàng dựa trên giá trị ô trong một cột?
Ví dụ: tôi có một dải dữ liệu chứa danh sách các số trong cột D và bây giờ, tôi muốn sao chép toàn bộ các hàng một số lần dựa trên các giá trị số trong cột D để nhận được kết quả sau. Làm cách nào để sao chép các hàng nhiều lần dựa trên các giá trị ô trong Excel?
Sao chép các hàng nhiều lần dựa trên các giá trị ô có mã VBA
Sao chép và chèn hàng dựa trên số lần được chỉ định bằng một công cụ tiện dụng - Kutools for Excel
Sao chép các hàng nhiều lần dựa trên các giá trị ô có mã VBA
Để sao chép và nhân bản toàn bộ các hàng nhiều lần dựa trên các giá trị ô, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để 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 các hàng nhiều lần dựa trên giá trị ô:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Sau đó nhấn F5 để chạy mã này, toàn bộ các hàng đã được nhân đôi nhiều lần dựa trên giá trị ô trong cột D khi bạn cần.
Sao chép và chèn hàng dựa trên số lần được chỉ định bằng một công cụ tiện dụng - Kutools for Excel
Nếu bạn không rành về code VBA và không thể tự mình thay đổi các thông số trong code một cách chính xác. Trong trường hợp này, các Kutools cho Excel's Sao chép hàng/cột dựa trên giá trị ô tính năng này có thể giúp bạn sao chép và chèn hàng nhiều lần dựa trên các giá trị của ô chỉ với ba cú nhấp chuột.
- Nhấp chuột Kutools > Chèn > Các hàng / cột trùng lặp dựa trên giá trị ô để kích hoạt tính năng này;
- Sau đó chọn Sao chép và chèn hàng tùy chọn và chỉ định các ô của Chèn Phạm vi và Lần lặp lại riêng trong hộp thoại.
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!