如何根據列中的單元格值複製行？

複製行在您需要擴充套件或複製電子表格中的資料時，是一種很有用的技巧。透過遵循本教程中概述的步驟，您可以根據特定條件快速複製行，從而更輕鬆地操作和分析您的資料。無論您是處理大型資料集、執行資料分析，還是僅僅整理資訊，Excel 都提供了強大的工具，可以為您節省時間和精力。根據單元格值複製行就是這樣一種可以幫助您有效擴充套件資料的技巧。

根據單元格值複製行

在這裡，我們將首先建立一個 VBA 模組，然後執行它來完成任務。讓我們來看一個簡單的過程，瞭解如何在 Excel 中根據列中的單元格值複製行。

步驟 1

考慮一個 Excel 表格，其中表格中的資料類似於下圖。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。然後單擊“插入”，然後選擇“模組”。

右鍵單擊 > 檢視程式碼 > 插入 > 模組。

步驟 2

然後將下面的程式碼複製到文字框中。

程式碼

Sub CopyData()
   Dim xRow As Long
   Dim VInSertNum As Variant
   xRow = 1
   Application.ScreenUpdating = False
   Do While (Cells(xRow, "A") <> "")
      VInSertNum = Cells(xRow, "D")
      If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
         Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
         Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum − 1, "D")).Select
         Selection.Insert Shift:=xlDown
         xRow = xRow + VInSertNum − 1
      End If
      xRow = xRow + 1
   Loop
   Application.ScreenUpdating = False
End Sub

前面程式碼中的字母 A 表示資料範圍的起始列，字母 D 是要重複行的列字母。請修改它們以滿足您的要求。