Hướng dẫn how to insert multiple rows in excel between data vba - cách chèn nhiều hàng trong excel giữa dữ liệu vba

Đôi khi chúng ta cần sửa đổi bộ dữ liệu lớn của chúng ta trong Excel bằng cách chèn các hàng dựa trên các điều kiện nhất định. Triển khai Macro VBA là phương pháp hiệu quả nhất, nhanh nhất và an toàn nhất để chạy bất kỳ hoạt động nào trong Excel. Trong bài viết này, chúng tôi sẽ chỉ cho bạn cách chèn nhiều hàng vào Excel dựa trên các tiêu chí khác nhau sử dụng macro VBA.VBA macro is the most effective, quickest and safest method to run any operation in Excel. In this article, we will show you how to insert multiple rows in Excel based on different criteria utilizing the VBA macro.

Tải xuống sổ làm việc

Bạn có thể tải xuống Sổ làm việc Excel thực hành miễn phí từ đây.

6 Phương pháp triển khai macro VBA để chèn nhiều hàng vào Excel

Trong phần này, chúng tôi sẽ thảo luận về cách chèn nhiều hàng vào excel dựa trên cả giá trị ô và giá trị được xác định trước của người dùng bằng cách sử dụng macro VBA.VBA macro.

Chúng tôi sẽ xem xét bộ dữ liệu sau đây làm ví dụ của chúng tôi.

1. Macro để thêm nhiều hàng của một phạm vi trong Excel

Để thêm nhiều hàng trong một phạm vi nhất định của bộ dữ liệu của bạn, tất cả những gì bạn phải làm là vượt qua phạm vi bên trong đối tượng phạm vi (ví dụ: phạm vi (Hồi 6: 8,)). Thực hiện theo bài viết này để hiểu thêm với các thủ tục từng bước.multiple rows in a certain range of your dataset, all you have to do is pass the range inside the Range object (e.g. Range(“6:8”)). Follow this article to understand more with step by step procedures.

Steps:

• Nhấn Alt + F11 trên bàn phím của bạn hoặc truy cập Nhà phát triển Tab -> Visual Basic để mở Trình chỉnh sửa Visual Basic.Alt + F11 on your keyboard or go to the tab Developer -> Visual Basic to open Visual Basic Editor.

• Trong cửa sổ mã bật lên, từ thanh menu, nhấp vào Chèn -> Mô -đun.Insert -> Module.

• Sao chép mã sau và dán vào cửa sổ mã.

Sub InsertMultipleRows()
'insert multiple rows as rows 6, 7 and 8
Worksheets("Rows").Range("6:8").EntireRow.Insert
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Nhấn F5 trên bàn phím của bạn hoặc từ thanh menu Chọn chạy -> Chạy Sub/Userform. Bạn cũng có thể chỉ cần nhấp vào biểu tượng chơi nhỏ trong thanh phụ để chạy macro. F5 on your keyboard or from the menu bar select Run -> Run Sub/UserForm. You can also just click on the small Play icon in the sub-menu bar to run the macro.

Sẽ có nhiều hàng mới được chèn dưới dạng số hàng 6, 7 và 8 trong bộ dữ liệu.row numbers 6, 7 and 8 in the dataset.

Đọc thêm: Cách chèn nhiều hàng vào Excel (6 phương pháp dễ dàng) How to Insert Multiple Rows in Excel (6 Easy Methods)

2. Macro để nhúng nhiều hàng dựa trên đầu vào của người dùng trong Excel

Trong phần trước, chúng tôi đã cung cấp giá trị đầu vào được mã hóa cứng dưới dạng phạm vi của nhiều hàng. Nhưng trong phần này, chúng tôi sẽ cho bạn biết cách chèn hàng từ người dùng.insert rows from users.

Steps:

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Trong cửa sổ mã, sao chép mã sau và dán nó.

Sub InsertRowsfromUserInput()
Dim iRow As Long
Dim iCount As Long
Dim i As Long
iCount = InputBox(Prompt:="How Many Rows to Insert?")
iRow = InputBox _
(Prompt:="Where to Insert New Rows? (Enter the Row Number)")
For i = 1 To iCount
Rows(iRow).EntireRow.Insert
Next i
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Nhấn F5 trên bàn phím của bạn hoặc từ thanh menu Chọn chạy -> Chạy Sub/Userform. Bạn cũng có thể chỉ cần nhấp vào biểu tượng chơi nhỏ trong thanh phụ để chạy macro. the macro and there will be a pop-up window asking for the number of rows you want to insert.
• Sẽ có nhiều hàng mới được chèn dưới dạng số hàng 6, 7 và 8 trong bộ dữ liệu. row number and click OK.

• Đọc thêm: Cách chèn nhiều hàng vào Excel (6 phương pháp dễ dàng)row address and click OK.

2. Macro để nhúng nhiều hàng dựa trên đầu vào của người dùng trong Excel3 rows to insert in row address 6 of our dataset.)

Trong phần trước, chúng tôi đã cung cấp giá trị đầu vào được mã hóa cứng dưới dạng phạm vi của nhiều hàng. Nhưng trong phần này, chúng tôi sẽ cho bạn biết cách chèn hàng từ người dùng.3 newly inserted rows in the row address of 6, 7 and 8.

Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã. VBA Macro to Insert Row in Excel Based on Criteria (4 Methods)

Trong cửa sổ mã, sao chép mã sau và dán nó.

Chạy macro và sẽ có một cửa sổ bật lên yêu cầu số lượng hàng bạn muốn chèn.add multiple rows from the active cell in our Excel dataset.

Steps:

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Trong cửa sổ mã, sao chép mã sau và dán nó.

Sub InsertRowsfromUser()
iMsg = InputBox("How Many Rows to Insert? (100 Rows maximum)")
numRows = Int(Val(iMsg))
If numRows > 100 Then
numRows = 100
End If
If numRows = 0 Then
GoTo EndInsertRows
End If
Do
Selection.EntireRow.Insert
iCount = iCount + 1
Loop While iCount < numRows
EndInsertRows:
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Nhấn F5 trên bàn phím của bạn hoặc từ thanh menu Chọn chạy -> Chạy Sub/Userform. Bạn cũng có thể chỉ cần nhấp vào biểu tượng chơi nhỏ trong thanh phụ để chạy macro. the macro and there will be a pop-up window asking for the number of rows you want to insert starting from the active cell.
• Sẽ có nhiều hàng mới được chèn dưới dạng số hàng 6, 7 và 8 trong bộ dữ liệu. row number (we wanted to insert 3 rows, so we wrote 3) and click OK.

Đọc thêm: Cách chèn nhiều hàng vào Excel (6 phương pháp dễ dàng) 3 newly inserted rows from the active cell in your dataset.

2. Macro để nhúng nhiều hàng dựa trên đầu vào của người dùng trong ExcelInsert Rows in Excel Based on Cell Value with VBA (2 Methods)

Trong phần trước, chúng tôi đã cung cấp giá trị đầu vào được mã hóa cứng dưới dạng phạm vi của nhiều hàng. Nhưng trong phần này, chúng tôi sẽ cho bạn biết cách chèn hàng từ người dùng.

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.
• Trong cửa sổ mã, sao chép mã sau và dán nó.
• Chạy macro và sẽ có một cửa sổ bật lên yêu cầu số lượng hàng bạn muốn chèn.
• Viết số hàng và bấm OK.
• Trong cửa sổ bật lên tiếp theo, bạn sẽ được hỏi nơi bạn muốn các hàng mới của bạn được thêm vào. Viết địa chỉ hàng và bấm OK.

(Trong trường hợp của chúng tôi, chúng tôi muốn 3 hàng để chèn vào địa chỉ hàng 6 của bộ dữ liệu của chúng tôi.)

Sẽ có 3 hàng mới được chèn vào địa chỉ hàng là 6, 7 và 8.insert multiple rows from the active row in your Excel dataset.

Steps:

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Trong cửa sổ mã, sao chép mã sau và dán nó.

Sub InsertRowsfromActiveRow()
Dim iRows As Integer
Dim iCount As Integer
'Select the current row
ActiveCell.EntireRow.Select
On Error GoTo Last
iRows = InputBox("Enter Number of Rows to Insert", "Insert Rows")
'Keep on inserting rows until we reach the input number
For iCount = 1 To iRows
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next iCount
Last: Exit Sub
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Nhấn F5 trên bàn phím của bạn hoặc từ thanh menu Chọn chạy -> Chạy Sub/Userform. Bạn cũng có thể chỉ cần nhấp vào biểu tượng chơi nhỏ trong thanh phụ để chạy macro. the macro and in the pop-up window write the row number that you want to add from the active row in your dataset (we wanted to insert 3 rows, so we wrote 3) and click OK.

Sẽ có nhiều hàng mới được chèn dưới dạng số hàng 6, 7 và 8 trong bộ dữ liệu.3 newly inserted rows from the active row in your Excel dataset.

Đọc thêm: Cách chèn nhiều hàng vào Excel (6 phương pháp dễ dàng)Excel Macro to Insert Rows (8 Methods)

2. Macro để nhúng nhiều hàng dựa trên đầu vào của người dùng trong Excel

Trong phần trước, chúng tôi đã cung cấp giá trị đầu vào được mã hóa cứng dưới dạng phạm vi của nhiều hàng. Nhưng trong phần này, chúng tôi sẽ cho bạn biết cách chèn hàng từ người dùng.insert rows based on the value presented in the cells of the dataset.

Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.add multiple rows based on the cell value.

Steps:

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Trong cửa sổ mã, sao chép mã sau và dán nó.

Sub InsertRowBasedonValue()
Dim iRow As Long
Dim iCount As Long
Dim i As Long
iCount = Range("A4").Value
iRow = Range("A3").Value
For i = 1 To iCount
Rows(iRow).EntireRow.Insert
Next i
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Bây giờ chạy mã. Khi bạn chạy macro, nó lấy số lượng hàng từ ô A4 và hàng nơi bạn muốn thêm các hàng bắt đầu từ ô A3.Run the code. When you run the macro, it takes the count of rows from Cell A4 and the row where you want to add rows starting from Cell A3.

Vì Cell A4 giữ giá trị 3, do đó, 3 hàng sẽ được đưa vào từ ô A3 trong bộ dữ liệu của bạn.Cell A4 holds the value 3, so 3 rows will be included from Cell A3 in your dataset.

Đọc thêm: Cách chèn nhiều hàng trống vào Excel (4 cách dễ dàng) How to Insert Multiple Blank Rows in Excel (4 Easy Ways)

6. Macro VBA để chèn nhiều hàng dựa trên điều kiện được xác định trước trong Excel

Nhìn vào ví dụ sau, nơi chúng ta đã có một bộ dữ liệu gồm nhiều hàng và cần chèn một bản ghi mới như được hiển thị trong bảng trên cùng.

Những gì chúng tôi sẽ làm với bộ dữ liệu này là, chúng tôi sẽ chèn số lượng hàng được người dùng xác định trước. Điều đó có nghĩa là chúng tôi sẽ chèn 3 số lượng 3 của các hàng của tên root root và điểm số 100 (từ bảng trên cùng) trong bộ dữ liệu thực tế của chúng tôi (bảng dưới cùng).3 Quantity” of rows of “Name Root” and “Score 100” (from the top table) in our actual dataset (bottom table).

Các bước về cách làm điều đó được đưa ra dưới đây.

Steps:

• Tương tự như trước, Mở Trình soạn thảo Visual Basic từ tab Nhà phát triển và chèn một mô -đun vào cửa sổ mã.Visual Basic Editor from the Developer tab and Insert a Module in the code window.
• Trong cửa sổ mã, sao chép mã sau và dán nó.

Sub InsertRows()
Qty = Range("E3").Value
Range("B12").Select
ActiveCell.Rows("1:" & Qty).EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Range("B12").Resize(Qty, 2).Value = Range("C3:D3").Value
End Sub

Mã của bạn hiện đã sẵn sàng để chạy.

• Theo cách tương tự như trước đây, chạy mã và bạn sẽ nhận thấy rằng bản ghi mới (ô C3, D3) được chèn với số lượng số lượng được xác định trước bởi người dùng (ô E3). Run the code and you will notice that the new record (Cell C3, D3) is inserted with the number of the Quantity predefined by the user (Cell E3).

Sự kết luận

Bài viết này chỉ cho bạn cách chèn nhiều hàng vào Excel dựa trên các tiêu chí khác nhau bằng cách sử dụng Macro VBA. Tôi hy vọng bài viết này đã rất có lợi cho bạn. Hãy hỏi bất kỳ câu hỏi liên quan đến chủ đề.insert multiple rows in Excel based on different criteria by using VBA macro. I hope this article has been very beneficial to you. Feel free to ask any questions regarding the topic.

Những bài viết liên quan

• Cách chèn một hàng trong ô theo Excel (3 cách đơn giản)
• Chèn hàng trống sau mỗi hàng thứ n trong excel (2 phương thức dễ dàng)
• Cách di chuyển một hàng trong Excel (6 phương pháp)
• Chèn hàng tự động theo Excel (3 cách)
• Cách chèn tổng số hàng trong Excel (4 phương pháp dễ dàng)
• VBA để chèn hàng trong excel (11 phương pháp)