EXCEL中如何按照指定次數(shù)重復(fù)內(nèi)容

2024-01-19

2988

工作中，有時候，我們需要一些內(nèi)容重復(fù)多次，而且不同的內(nèi)容重復(fù)次數(shù)不一，這樣手工一個復(fù)制，實在不是什么好的辦法，今天我們就來學(xué)習(xí)一種非?？焖俚姆椒ǎ址昼娡瓿纱罅康墓ぷ?。具體請看動畫效果。步驟1：準(zhǔn)備數(shù)

工作中，有時候，我們需要一些內(nèi)容重復(fù)多次，而且不同的內(nèi)容重復(fù)次數(shù)不一，這樣手工一個復(fù)制，實在不是什么好的辦法，今天我們就來學(xué)習(xí)一種非常快速的方法，分分鐘完成大量的工作。具體請看動畫效果。

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

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

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

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

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

```excel

Sub 按指定次數(shù)重復(fù)內(nèi)容()

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

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

'A列內(nèi)容行數(shù)

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

'按次數(shù)重復(fù)

For k 2 To i

For n 1 To Cells(k, 2)

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

m m 1

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

[d2].Resize(m, 1) arr

End Sub

```

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

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

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

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