如何在 Excel 中根據另一列的值重複指定次數的行？

MS Excel 微軟技術高階 Excel 函式

在處理大型資料集或需要擴充套件和組織資料時，此有效技術允許您根據特定列的值複製行，從而節省時間和精力。

在本文中，我們將逐步向您展示如何有效地利用 Excel 的內建函式和功能來完成這項工作。無論您是在處理銷售資料、調查結果還是任何其他需要重複行型別的資訊，此技術都將非常有助於最佳化您的工作效率。

根據另一列的值重複指定次數的行

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

步驟 1

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

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

右鍵單擊 > 檢視程式碼。

步驟 2

然後單擊“插入”並選擇“模組”，然後將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Sub CopyRow()
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 number value", "Repeat Specified Times", 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