Cách sao chép và dán một hàng trong excel

Trong công việc hàng ngày, bạn đã bao giờ thử 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? . 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 từng hàng nhiều lần bằng mã VBA
• Sao chép và chèn từng 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 đây 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 đó giữ phím ALT + F11, sau đó nó sẽ mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

mã VBA. Sao chép 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 phím 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ấp vào nút OK và ba hàng mới được sao chép đã đượ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 nào 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. Tuy nhiên, với tính năng Sao chép Hàng / cột dựa trên giá trị ô của Kutools cho Excel, 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 từng 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ữ phím ALT + F11, sau đó mở cửa sổ Microsoft Visual Basic for Applications

2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun

mã VBA. Nhân đôi 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. Sau đó nhấn phím 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ấp vào OK và mỗi hàng đã được sao chép và chèn 3 lần bên dưới hàng đang hoạt động, xem ảnh chụp màn hình

Ghi chú. Trong đoạn mã trên, chữ 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, vui lòng thay đổi A thành K tùy theo nhu cầu của bạn

Sao chép và chèn từng 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 rành về code VBA, hoặc lo lắng code sẽ làm sập 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 Hàng / Cột trùng lặp của Excel 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ố bạn đã chỉ định

Mẹo. Để áp dụng tính năng Sao chép Hàng / Cột dựa trên giá trị ô này, trước tiên, bạn nên tải xuống Kutools cho Excel, sau đó áp dụng tính năng này 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 > Sao chép Hàng / Cột dựa trên giá trị ô, xem ảnh chụp màn hình

3. Trong hộp thoại Sao chép và chèn hàng & cột, hãy chọn tùy chọn Sao chép và chèn hàng trong phần Loại, sau đó chọn dải dữ liệu bạn muốn sao chép rồi chỉ định thời gian lặp lại để sao chép hàng, xem ảnh chụp màn hình

4. Sau đó, nhấn nút Ok hoặc Apply, bạn sẽ nhận được kết quả như 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ác công thức, biểu đồ phức tạp  và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
• 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); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2019 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. Đảm bảo hoàn tiền trong 60 ngày.

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều

• Bật chỉnh sửa và đọc theo tab 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 năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày

Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.  

Cũ nhất đầu tiên

Sắp xếp nhận xét theo

Cũ nhất đầu tiên

mới nhất đầu tiên

Nhận xét ( 31 )

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng

Zach

khoảng 5 năm trước

#22195

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

Đáp lại

0

0

BJ Conley

khoảng 4 năm trước

#22686

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

Đáp lại

0

0

giao phối

khoảng 4 năm trước

#23120

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

bác macro đẹp thật

Đáp lại

0

0

Rushabh Patel

khoảng 4 năm trước

#23746

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 ngẫu nhiên các hàng trùng lặp,

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


mã nào sẽ được cập nhật cho phần sau


Sub insertrows()
'Updateby Extendoffice 2016616
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Ứng dụng. InputBox("Number of Rows", "Kutools for Excel", , , , , , , 1)
If xCount < 1 Then
MsgBox "số lượng đã nhập . ĐếmLớn). Kết thúc(xlUp). Hàng đến 1 Bước -1
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
Hàng(I). Sao chép
Hàng(I). Thay đổi kích thước (xCount). Chèn
Tiếp theo
Ứng dụng. CutCopyMode = False
Kết thúc phụ

Đáp lại

0

0

Adnan

khoảng 4 năm trước

#23847

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 sao chép meetingID hai lần. Nếu cuộc họp là 3 giờ thì nhân đôi ba lần.
số gia tăng nửa giờ có thể được làm tròn thành giờ.

MeetingID Thời gian bắt đầu Thời gian kết thúc Thời lượng cuộc họp
43117 9. 00 giờ sáng 11. 00 giờ sáng 02. 00
43580 9. 30 giờ sáng 11. 00 giờ sáng 01. 30
42699 10. 00 giờ sáng 11. 30 giờ sáng 01. 30
12345 01. 00 giờ chiều 2. 00 CHIỀU 01. 00

Đáp lại

0

0

Erin     Adnan

khoảng 4 năm trước

#23848

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 thấy một giải pháp?

Đáp lại

0

0

skyyang     Erin

khoảng 4 năm trước

#23849

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ác bạn,
Có thể mã VBA sau đây có thể giúp ích cho bạn, vui lòng áp dụng nó.
Các mũi chèn phụ()
Làm mờ tôi theo thời gian
Làm mờ xRg theo phạm vi
Làm mờ xHour . ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
For I = Range("D" & Rows. ĐếmLớn). Kết thúc(xlUp). Hàng đến 1 Bước -1
xHour = 0
Đặt xRg = Range("D" & I)
xHour = Giờ . Giá trị) + 1
xMin = Phút(xRg. Giá trị)
Nếu xMin < 30 Thì xHour = xHour - 1
Rows(I). Sao chép
Hàng(I). Thay đổi kích thước (xHour). Chèn
Tiếp theo
Ứng dụng. ScreenUpdating = True
Ứng dụng. CutCopyMode = False
End Sub

Hãy dùng thử. Hy vọng nó có thể giúp bạn.

Đáp lại

Báo cáo

0

0

tài năng

khoảng 4 năm trước

#23999

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 về lý do 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?

Đáp lại

0

0

Có thể

khoảng 4 năm trước

#24239

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 mã sau

1. trùng lặp dựa trên số ngày
2. thay đổi cột EOM từ ngày cuối tháng thành ngày hàng ngày

Đáp lại

Báo cáo

0

0

naz

khoảng 4 năm trước

#26128

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ự hỗ trợ của bạn

Đáp lại

0

0

quỷ dữ

khoảng 4 năm trước

#26504

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ật 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?

Đáp lại

0

0

skyyang     devin

khoảng 4 năm trước

#26505

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 As Integer
LableNumber.
xCount = Ứng dụng. InputBox("Số hàng", "Kutools cho Excel", , , , , , , 1)
If xCount < 1 Then
MsgBox "số đã nhập . ĐếmLớn). Kết thúc(xlUp). Hàng đến 2 Bước -1
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Hàng(I). Sao chép
Hàng(I). Thay đổi kích thước (xCount). Chèn
Tiếp theo
Ứng dụng. CutCopyMode = False
End Sub

Hãy dùng thử, hy vọng nó có thể giúp ích cho bạn.

Đáp lại

Báo cáo

0

0

Sashitharan Govindasamy

khoảng 4 năm trước

#26614

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 của 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, tôi muốn vba giúp tôi làm điều tương tự cho bảng bên dưới ( . Vì vậy, công việc của tôi sẽ là, chỉ cần thêm các hàng ở bảng thứ nhất, tất cả các bảng bên dưới sẽ tự động tạo ra các hàng dựa trên số lượng hàng trong bảng thứ nhất. đây là mã tôi đã sử dụng để 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. Toàn bộ hàng. Copy

Dim Rng As Long

Ứng dụng. DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Nhập số lượng hàng cần thiết. ")
Khi có lỗi GoTo 0
Ứng dụng. DisplayAlerts = True

If Rng = 0 Then
MsgBox "Bạn không chỉ định phạm vi. "
Thoát phụ

Khác
Phạm vi(ActiveCell. Độ lệch (1, 0), ActiveCell. Độ lệch(Rng, 0)). Chọn
Lựa chọn. Toàn bộ hàng. Chèn ca. =xlDown
Kết thúc nếu

Kết thúc đăng ký

Đáp lại

Báo cáo

0

0

Andreea

khoảng 3 năm trước

#27687

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. )

Đáp lại

0

0

Jamar

khoảng 3 năm trước

#29016

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 làm điều này cho các cột?

Đáp lại

0

0

Jamar

khoảng 3 năm trước

#29017

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?

Đáp lại

0

0

Saha sâu

khoảng 3 năm trước

#29520

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 trong cùng một trang tính và trong .

dòng1
dòng2
dòng3

dòng1
dòng2
line3

Đáp lại

Báo cáo

0

0

cá hồi

khoảng 3 năm trước

#29901

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 rất tốt, chỉ có điều tôi cần sao chép hai hàng N số lần. Bạn có thể vui lòng điều chỉnh mã để khi tôi chọn hai hàng, nó sẽ sao chép hai hàng đó xuống N lần không?

Đáp lại

Báo cáo

0

0

skyyang     Sal

khoảng 3 năm trước

#29902

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 Sal,
Nếu bạn chỉ cần sao chép nhiều lần hai hàng xuống dưới, 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ẽ được. . Hãy thử, hy vọng nó có thể giúp bạn.

Đáp lại

Báo cáo

0

0

Malik

khoảng 3 năm trước

#30215

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 bằng mã VBA

Trong mã VBA, làm cách nào tôi có thể chọn hàng bắt đầu

Đáp lại

0

0

Ismael

khoảng 3 năm trước

#30897

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web

Không có chức năng với Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada

Đáp lại

0

0

Ken

khoảng 2 năm trước

#31613

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 mọi người. Cảm ơn bạn trước vì sự giúp đỡ của bạn.

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.

Đáp lại

0

0

phỏng đoán

khoảng 2 năm trước

#33021

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? .
Ví dụ.
Hàng(I). Thay đổi kích thước(xCount(y) ). Chèn

Nơi các giá trị được lưu trong xCount(y) được đọc từ một bảng.

Đáp lại

0

0

skyyang     Guss

khoảng 2 năm trước

#33022

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 ích cho bạn, vui lòng kiểm tra nó.
https. //www. mở rộng văn phòng. com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value. html

Đáp lại

Báo cáo

0

0

Eric

khoảng 2 năm trước

#33414

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. Sao chép từng hàng nhiều lần) Tôi liên tục gặp lỗi thời gian chạy. 1004