如何根據 Excel 中另一欄的數值，將指定列重複相應次數？

作者Sun修改日期2024-11-01

您是否曾想根據另一欄的數值來重複對應的列，如下方截圖所示？本文將為您介紹在 Excel 中輕鬆達成此目標的方法。
根據另一欄位指定的次數重複列

使用 VBA 根據另一欄數值重複列

透過 Kutools for Excel 根據另一欄數值重複列

使用 VBA 根據另一欄數值重複列

這裡提供一段程式碼，能根據最後一列的數值快速複製整列。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 點選插入＞模組，然後將下方程式碼複製並貼上至新的模組指令稿中。

VBA：根據另一欄數值重複列

Sub CopyRow()
'UpdatebyExtendoffice20181011
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", "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. 按下 F5 鍵後，會彈出一個對話方塊，請選取要作為列重複依據的數字清單。
選取用來決定列重複次數的數字清單

4. 點選「確定」後，系統將根據所選欄位的數值重複列。
列會根據所選欄位的值進行重複

透過 Kutools for Excel 根據另一欄數值重複列

如果您不熟悉 VBA，不妨試試 Kutools for Excel 的重複行／根據儲存格數值重複列功能，只需兩步驟就能輕鬆完成！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點選 Kutools > 插入 > 重複行／根據儲存格數值重複列。
點擊 Kutools 的「根據儲存格值重複列/欄」功能

2. 在彈出的對話方塊中，於複製並插入行區段選擇類型，接著在插入範圍文字方塊中選取要重複的範圍，並在重複次數文字方塊中指定決定重複次數的欄位，然後點選確定。
在對話方塊中設定選項

接著，資料列就會依據所選欄位進行重複。
列會根據所選欄位進行重複。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多