Bỏ qua nội dung chính

Làm cách nào để chèn số hàng cụ thể vào các khoảng thời gian cố định trong Excel?

Trong trang tính Excel, bạn có thể chèn một hàng trống giữa các hàng hiện có bằng cách sử dụng chức năng Chèn. Nhưng, nếu bạn có một phạm vi dữ liệu lớn và bạn cần phải chèn hai hàng trống sau mỗi hàng thứ ba, làm cách nào bạn có thể hoàn thành công việc này một cách nhanh chóng và thuận tiện?


Chèn số lượng hàng trống cụ thể vào phạm vi dữ liệu theo các khoảng thời gian cố định bằng mã VBA

Mã VBA sau có thể giúp bạn chèn một số hàng cụ thể sau mỗi hàng thứ n trong dữ liệu hiện có. Vui lòng làm như sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ 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 Cửa sổ mô-đun.

Mã VBA: Chèn số lượng hàng cụ thể vào dữ liệu theo các khoảng thời gian cố định

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Sau khi dán mã này, vui lòng nhấn F5 để chạy mã này, một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn chèn các hàng trống, xem ảnh chụp màn hình:

4. Nhấp chuột OK , một hộp nhắc khác sẽ bật ra, vui lòng nhập số khoảng cách hàng, xem ảnh chụp màn hình:

5. Tiếp tục nhấp OK , trong hộp nhắc xuất hiện sau đây, vui lòng nhập số hàng trống mà bạn muốn chèn, xem ảnh chụp màn hình:

6. Sau đó nhấn vào OKvà các hàng trống đã được chèn vào dữ liệu hiện có đều đặn, hãy xem ảnh chụp màn hình:


Chèn số hàng trống cụ thể vào phạm vi dữ liệu dựa trên giá trị ô có mã VBA

Đôi khi, bạn có thể cần phải chèn các hàng trống dựa trên danh sách các giá trị ô, trong trường hợp này, mã VBA bên dưới có thể giúp bạn, hãy làm như sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ 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 Cửa sổ mô-đun.

Mã VBA: Chèn số hàng trống cụ thể dựa trên danh sách các số:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Sau khi dán mã này, hãy nhấn F5 để chạy mã này, trong hộp thoại hiện ra, hãy chọn danh sách các số mà bạn muốn chèn các hàng trống dựa trên, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OKvà bạn sẽ nhận được kết quả bạn cần như sau ảnh chụp màn hình hiển thị:


Chèn số hàng trống cụ thể vào phạm vi dữ liệu theo các khoảng thời gian cố định bằng một tính năng tiện dụng

Nếu bạn không quen với mã VBA trên, Kutools cho Excel cũng có thể giúp bạn, nó Chèn hàng & cột trống tính năng có thể chèn số lượng hàng hoặc cột cụ thể vào dữ liệu hiện có ở những khoảng thời gian cố định một cách nhanh chóng và dễ dàng.

Lưu ý:Để áp dụng điều này Chèn hàng & cột trống , 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, vui lòng làm như sau:

1. Chọn phạm vi dữ liệu mà bạn muốn chèn các hàng trống vào các khoảng thời gian.

2. Nhấp chuột Kutools > Chèn > Chèn hàng & cột trống, xem ảnh chụp màn hình:

3. Trong Chèn hàng & cột trống hộp thoại, chọn Hàng trống tùy chọn từ Chèn loại, và sau đó chỉ định số khoảng thời gian và hàng trống mà bạn muốn sử dụng như ảnh chụp màn hình sau:

4. Sau đó nhấn vào OK và các hàng trống đã được chèn vào phạm vi đã chọn ở một khoảng thời gian cụ thể như ảnh chụp màn hình sau:

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể với mã VBA

Giả sử, bạn có một loạt các tada và bây giờ, bạn muốn sao chép từng hàng và dán chúng nhiều lần vào hàng tiếp theo dựa trên danh sách các số như ảnh chụp màn hình bên dưới. Làm cách nào để giải quyết công việc này trong trang tính Excel?

Để giải quyết công việc này, tôi sẽ giới thiệu một mã hữu ích cho bạn, vui lòng thực hiện theo các bước sau:

1. Giữ ALT + F11 các phím trong Excel và nó sẽ 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 Cửa sổ mô-đun.

Mã VBA: Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Sau khi dán mã này, hãy nhấn F5 để chạy mã này, trong hộp thoại hiện ra, hãy chọn danh sách các số mà bạn muốn sao chép và chèn các hàng dữ liệu dựa trên, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK và số lượng hàng cụ thể đã được sao chép và dán dưới mỗi hàng gốc, hãy xem ảnh chụp màn hình:


Sao chép và chèn các hàng nhiều lần dựa trên các số cụ thể với một tính năng tuyệt vời

Nếu bạn có Kutools cho Excel, Với khả Các hàng / cột trùng lặp dựa trên giá trị ô tính năng, bạn có thể chèn các hàng hoặc cột dựa trên danh sách các số một cách nhanh chóng và dễ dàng.

Lưu ý:Để á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, vui lòng làm như sau:

1. 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:

2. 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 danh sách giá trị mà bạn muốn sao chép các hàng dựa trên, 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:

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

Các bài viết tương đối hơn:

  • Sao chép và chèn hàng nhiều lần hoặc sao chép hàng X lần
  • 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?
  • Chèn hàng trống khi giá trị thay đổi trong Excel
  • Giả sử bạn có một dải dữ liệu và bây giờ bạn muốn chèn các hàng trống vào giữa dữ liệu khi giá trị thay đổi, để bạn có thể tách các giá trị tương tự tuần tự trong một cột như ảnh chụp màn hình sau được hiển thị. Trong bài viết này, tôi sẽ nói về một số thủ thuật để bạn giải quyết vấn đề này.
  • Chèn một hàng trống sau văn bản cụ thể trong Excel
  • Nếu bạn muốn chèn các hàng trống sau một văn bản cụ thể như hình minh họa dưới đây, làm thế nào để xử lý nó một cách nhanh chóng và dễ dàng mà không cần chèn từng hàng một theo cách thủ công?
  • Sao chép hàng từ nhiều trang tính dựa trên tiêu chí vào một trang tính mới
  • Giả sử, bạn có một sổ làm việc với ba trang tính có cùng định dạng như hình minh họa bên dưới. Bây giờ, bạn muốn sao chép tất cả các hàng từ các trang tính này mà cột C chứa văn bản “Đã hoàn thành” vào một trang tính mới. Làm thế nào bạn có thể giải quyết vấn đề này một cách nhanh chóng và dễ dàng mà không cần sao chép và dán từng cái một theo cách thủ công?

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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 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!
Comments (39)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Marvelous vba script!
I had over 5000 rows that i need to add new rows to in between. All other guides told me to make "helper" column it would take me good part of my life to add 1,2 copy paste over and over again just to add new rows.
So, Thanks for this!
Rated 5 out of 5
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
Name Email Phone Address
0 Name Email Phone Adress
address line 2 Name Phone 0
Name Email Phone Adress
0 Name Email Phone Adress
address line 2 0


How could I edit this to start a new row at every empty value or 0 value without having phone numbers with 0 start a new row?
This comment was minimized by the moderator on the site
Hello, Jarrod

Sorry, I can't get your problem clearly.
Could you explain your problem more detailed? Or you can insert a screenshot or file here.
Thank you!
This comment was minimized by the moderator on the site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Rated 5 out of 5
This comment was minimized by the moderator on the site
can you tell me how to insert column like this way , what is the code
This comment was minimized by the moderator on the site
Hello friend,
You can use this VBA code:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount As Integer

Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range

Dim xWs As Worksheet

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Sincerely,
Mandy
This comment was minimized by the moderator on the site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This is so Cool!! Thanks a lot
This comment was minimized by the moderator on the site
Can I get the VBA code for deletion of rows based on duplicate values in a selected column keeping all unique values?
This comment was minimized by the moderator on the site
Hello, Roy,If you want to remove rows based on duplicate values, normally, you can use the Remove Duplicates feature in Excel to remove the rows.Of course, if you need a VBA code, please use the below code: (First, you should select the data range that you want to remove, and then run this code, the rows based on the duplicate values in the first column of your selection will be removed at once. )<div data-tag="code">Sub Delete_duplicate_rows()
Dim Rng As Range
Set Rng = Selection
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you author! You deserve the best commendation for these! But please could you help me out with the code to put a constant value into all blank rows I created with your code above? To make myself more clearer, I need to insert a constant value into all blank rows (this solved already with your code above) then I need to insert a constant value into all of the blank rows (this is my problem). Thank you as I expect your kind response.
This comment was minimized by the moderator on the site
Hello, Do you mean to fill blank rows with specific value? If so, mabe the following article cna help you:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Please try it.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations