Note: The other languages of the website are Google-translated. Back to English

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

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 Sub

3. 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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (32)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Macro tuyệt vời - Tiết kiệm cho tôi rất nhiều thời gian!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
người bạn đời vĩ mô thực sự tốt đẹp!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi muốn tạo các hàng trùng lặp một cách ngẫu nhiên,

ví dụ. tạo các hàng trùng lặp ngẫu nhiên từ 20 đến 80.


những gì sẽ được cập nhật mã cho phần sau


Sub insertrows ()
'Cập nhật bởi Extendoffice 2016616
Dim I As Long
Dim xCount dưới dạng số nguyên
Số hiệu:
xCount = Application.InputBox ("Số hàng", "Kutools cho Excel",,,,, 1)
Nếu xCount <1 thì
MsgBox "số hàng đã nhập bị lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LableNumber
Cuối Nếu
Đối với I = Range ("A" & Rows.CountLarge) .End (xlUp) .Row To 1 Step -1
Hàng (I) .Copy
Rows (I) .Resize (xCount) .Insert
Sau
Application.CutCopyMode = Sai
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn sao chép các hàng dựa trên một tham số. Ví dụ: tôi có một cột có tên là thời lượng cuộc họp. Nếu cột đó nhiều hơn 1, tôi muốn sao chép các hàng ID cuộc họp dựa trên số đó. Nếu thời lượng cuộc họp là 2 giờ, thì hãy nhân đôi meetingID hai lần. Nếu cuộc họp là 3 giờ thì nhân đôi ba lần.
gia số nửa giờ có thể được làm tròn thành giờ.

ID cuộc họp Thời gian bắt đầu Thời gian kết thúc cuộc họp Thời lượng
43117 9:00 AM 11:00 AM 02:00
43580 9:30 AM 11:00 AM 01:30
42699 10:00 AM 11:30 AM 01:30
12345 01:00 PM 2:00 PM 01:00
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có cùng một vấn đề. Bạn đã tìm ra giải pháp chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào các cậu,
Có thể mã VBA sau đây có thể giúp bạn một điều gì đó, vui lòng áp dụng nó:
Sub insertrows ()
Dim I As Long
Dim xRg theo phạm vi
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = Sai
Đối với I = Range ("D" & Rows.CountLarge) .End (xlUp). Chuyển đến 1 bước -1
xGiờ = 0
Đặt xRg = Range ("D" & I)
xHour = Hour (xRg.Value) + 1
xMin = Phút (xRg.Value)
Nếu xMin <30 Thì xHour = xHour - 1
Hàng (I) .Copy
Rows (I) .Resize (xHour) .Insert
Sau
Application.ScreenUpdating = True
Application.CutCopyMode = Sai
End Sub

Hãy thử nó. Hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng macro này trong quá khứ và nó luôn hoạt động cho đến gần đây. Bất kỳ thông tin chi tiết nào tại sao nó chỉ sao chép hàng trên cùng ngay cả khi sử dụng nhiều macro hàng? Tôi đã xóa tất cả các bộ lọc / ngăn được đóng băng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, làm cách nào để tôi có thể thay đổi mã để bao gồm những điều sau

1. trùng lặp dựa trên số ngày
2. thay đổi cột EOM từ cuối tháng thành ngày hàng ngày
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thực sự cảm ơn sự ủng hộ của bạn !!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Yêu mã! làm cách nào để đặt phạm vi bắt đầu bỏ qua hàng đầu tiên (Tiêu đề cột) và bắt đầu ở hàng 2?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Devin,
Để bỏ qua hàng tiêu đề đầu tiên, vui lòng áp dụng mã VBA sau:

Sub insertrows ()
Dim I As Long
Dim xCount dưới dạng số nguyên
Số hiệu:
xCount = Application.InputBox ("Số hàng", "Kutools cho Excel",,,,, 1)
Nếu xCount <1 thì
MsgBox "số hàng đã nhập bị lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LableNumber
Cuối Nếu
Đối với I = Range ("A" & Rows.CountLarge) .End (xlUp) .Row To 2 Step -1
Hàng (I) .Copy
Rows (I) .Resize (xCount) .Insert
Sau
Application.CutCopyMode = Sai
End Sub

Hãy thử nó, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi cần trợ giúp, đây là giao diện bảng của tôi, ví dụ: khi tôi thêm 2 hàng vào cuối bảng đầu tiên của mình, tôi muốn vba giúp tôi làm điều tương tự cho bảng bên dưới (thêm 1 hàng vào cuối bảng). Vì vậy, công việc của tôi sẽ là, chỉ cần thêm các hàng ở bảng đầu tiên, tất cả các ống thổi của bảng sẽ tự động tạo ra các hàng dựa trên số lượng hàng trong bảng đầu tiên. là những mã mà tôi đã sử dụng bây giờ để thêm hàng cho bảng đầu tiên. Tôi hy vọng ai đó có thể giải quyết vấn đề này cho tôi, thx.Sub InsertNumRows ()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = Sai
On Error Resume Next
Rng = InputBox ("Nhập số hàng được yêu cầu.")
Về lỗi GoTo 0
Ứng dụng.DisplayAlerts = Đúng

Nếu Rng = 0 Thì
MsgBox "Bạn không chỉ định một phạm vi!"
Thoát Sub

Khác
Phạm vi (ActiveCell.Offset (1, 0), ActiveCell.Offset (Rng, 0)). Chọn
Selection.EntireRow.Insert Shift: = xlDown
Cuối Nếu

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Yêu nó! Nó hoạt động mọi lúc! Cám ơn bạn rất nhiều về điều này :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm cách nào để làm điều này cho các cột?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào tôi có thể làm điều này cho các cột?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cách thực hiện cùng một hành động với các ô đã chọn bằng VB,


Tôi cần lặp lại một vài ô đã chọn (hàng và cột) x không lần nào trong cùng một trang tính và theo thứ tự như sau:

dòng 1
dòng 2
dòng 3

dòng 1
dòng 2
dòng 3
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, điều này hoạt động tốt, chỉ tôi cần hai hàng được sao chép N số lần. Bạn có thể vui lòng điều chỉnh mã để khi tôi chọn hai hàng, sau đó nó sẽ sao chép hai hàng đó xuống N lần? Cảm ơn bạn đã giúp đỡ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sal,
Nếu bạn chỉ cần sao chép hai hàng xuống nhiều lần, bạn chỉ cần sử dụng mã VBA 1 trong bài viết này, áp dụng mã hai lần sẽ giải quyết được vấn đề của bạn. Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sao chép và chèn mỗi hàng nhiều lần với mã VBA

Trong mã VBA, làm cách nào để tôi có thể chọn hàng bắt đầu
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
No funciona con Windows 2019, deseo usar la función en mención pero simplemente no hace secureutamente nada
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào tất cả mọi người .. Cảm ơn bạn trước vì bạn đã giúp đỡ !!

Mã VBA để sao chép nhiều lần một hàng cụ thể hoạt động hoàn hảo cho đến khi bạn sử dụng bộ lọc. Tôi tự hỏi nếu ai đó có thể giúp tôi giải quyết vấn đề này. Tôi cần một mã hoạt động ngay cả khi bạn đã lọc một số giá trị. Tôi đang sử dụng một lượng lớn dữ liệu được sắp xếp theo vị trí. Mã hoạt động một phần, nó dán số lượng hàng mong muốn nhưng không có dữ liệu hoặc định dạng khi tôi đã áp dụng bộ lọc.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, có thể sử dụng các kích thước (giá trị) khác nhau cho mỗi hàng không? Tôi đang thử sử dụng vector, nhưng nó không hoạt động.
Ví dụ :
Rows (I) .Resize (xCount (y)) .Insert

Nơi các giá trị được lưu trong xCount (y) được đọc từ một bảng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Guss,
Có thể bài viết dưới đây có thể giúp bạn, hãy kiểm tra nó:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đối với mã VBA thứ hai (Mã VBA: Nhân bản từng hàng nhiều lần) Tôi tiếp tục nhận được lỗi thời gian chạy: 1004
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL