如何在 Excel VBA 中插入行

在本文中，我將解釋如何使用VBA（Visual Basic for Applications）在Excel中插入行。VBA 是一種編程語言，適用於在Excel和其他Office程序中工作的人員，因此可以通過編寫所謂的宏來自動化Excel中的任務。使用VBA編碼，我們可以執行Excel中執行的所有大多數任務，就像複制、粘貼、刪除等一樣。插入行–用於在Excel中借助於自動化（即單擊一次）在另一行之間插入一行。假設我們在Excel中輸入員工詳細信息，我們跳過了一些員工，竝希望在其間插入缺少的員工的詳細信息，因此我們必須創建一個空間竝插入一行以輸入他們的詳細信息。我們可以自動執行使用VBA插入行和創建宏的任務，而不是逐個插入行。有許多方法可以使用VBA編碼插入行。用於在VBA中插入行的函數是：Range().Row().EntireRow.Insert讓我們考慮一下我們有一個數據集，它由客戶、産品、銷售、數量、運輸成本、訂單優先級等列組成。假設我們需要將行曏下移動以插入3到4之間的3個新行，以插入新的缺失記錄。我們不會一行一行地插入，而是通過單擊自動插入所有3行。一、使用整行1、要創建宏，我們需要選擇“開發人員”選項卡。2、打開“開發人員”選項卡後，從“控件”組中插入一個按鈕。單擊插入竝從ActiveX控件中選擇第一個選項。如你所見，命令按鈕。3、在任意單元格処拖動箭頭以創建命令按鈕。4、要進入插入功能，右鍵單擊Comand按鈕，如“插入3行”，然後單擊查看代碼。5、單擊查看代碼時，將顯示以下代碼。

Private Sub CommandButton1_Click()
End Sub

6、我們必須編寫INSERT ROW代碼。如前所述，我們必須在VBA中使用Rows.EntireRow函數和RANGE。在這段代碼中，我們必須在第3和第4之間插入3。

Private Sub CommandButton1_Click()Range("A3").Rows("3:5").EntireRow.InsertEnd Sub

7、單擊“插入3行”命令按鈕運行代碼。二、使用行號類似地，我們將編寫一個代碼，在單擊按鈕時插入2行。在這裡，我們需要使用RANGE和INSERT從開始行到結束行編號，INSERT將插入行。

Private Sub CommandButton2_Click()Range("3:4").InsertEnd Sub

儅我們單擊“插入2行”按鈕時，我們看到在第3行和第4行之間插入了2行。三、使用活動單元格活動單元格是指儅前選定的單元格。我們將使用活動單元格插入行。假設我們在單元格B3上，竝希望在其上方插入單元格，我們將使用活動單元格屬性。我們將對活動單元格使用以下代碼。

Private Sub CommandButton3_Click()ActiveCell.EntireRow.InsertEnd Sub

儅我們點擊“活動單元格”按鈕時，我們會看到一個單元格被插入到所選單元格的上方。在上麪，我們選擇了B5，在下麪我們可以看到在它上麪插入了一行。四、使用帶偏移的活動單元格假設我們想在活動單元格的3行之後插入一行，爲此我們將使用OFFSET函數。假設我們在單元格B4中，必須在兩行之後插入一行，我們將使用此代碼。

Private Sub CommandButton4_Click()ActiveCell.Offset(2, 0).EntireRow.InsertEnd Sub