工作中，有時候，我們需要一些內容重復多次，而且不同的內容重復次數(shù)不一，這樣手工一個復制，實在不是什么好的辦法，今天我們就來學習一種非?？焖俚姆椒?，分分鐘完成大量的工作。具體請看動畫效果。步驟1：準備數(shù)

工作中，有時候，我們需要一些內容重復多次，而且不同的內容重復次數(shù)不一，這樣手工一個復制，實在不是什么好的辦法，今天我們就來學習一種非?？焖俚姆椒?，分分鐘完成大量的工作。具體請看動畫效果。

步驟1：準備數(shù)據(jù)

A列就是我們要重復的內容，B列就是相應的次數(shù)，我們首先這樣把數(shù)據(jù)準備好，不管內容多少代碼會自動判定。代碼通用。

步驟2：進入VBE界面

右擊工作表標簽，選擇查看代碼（快捷鍵ALT F11），都可以進入。

步驟3：插入模塊

進入VBE界面后，右擊ThisWorkbook，選擇插入-模塊。

步驟4：輸入代碼

插入模塊后，雙擊模塊，進入代碼編輯區(qū)域，輸入以下代碼：

```excel

Sub 按指定次數(shù)重復內容()

'代碼由yianxss原創(chuàng)，轉載請注明

Dim i As Long, arr(1 To 100000, 1 To 1)

'A列內容行數(shù)

i Cells(, 1).End(3).Row

'按次數(shù)重復

For k 2 To i

For n 1 To Cells(k, 2)

arr(m 1, 1) Cells(k, 1)

m m 1

Next

Next

'[d2]存放的開始地址，可修改

[d2].Resize(m, 1) arr

End Sub

```

步驟5：關閉VBE編輯器

代碼OK后，右上角叉，關閉VBE編輯器，返回工作表。

步驟6：添加按鈕

點擊開發(fā)工具選項卡-控件，選擇按鈕控件，在工作表的空白區(qū)域，鼠標拖動，畫出一個大小合適的按鈕，并右擊制定宏。

步驟7：選擇宏并確定

選擇“按指定次數(shù)重復內容”，然后點擊確定按鈕，返回工作表。

步驟8：查看效果

最后，我們點擊按鈕，看一下效果吧，已經按照要求生成了，D列就是我們要的效果了。小伙伴們，你們學會了嗎？