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