1、 A列就是我们要重复的内容，B列就是相应的次数，我们首先这样把数据准备好，不管内容多少代码会自动判定。代码通用。
2、 右击工作表标签，选择查看代码（快捷键ALT+F11），都可以进入
3、 进入VBE界面后，右击Thiswokrbook,选择插入-模块；
4、 插入模块后，双击模块，进入代码编辑区域，输入代码
Sub 按指定次数重复内容()
'代码由yianxss原创，转载请注明
Dim i&, arr(1 To 100000, 1 To 1)
'A列内容行数
i = Cells(Rows.Count, 1).End(3).Row
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
代码OK后，右上角叉，关闭VBE编辑器，返回工作表。
5、 点击开发工具选项卡-控件，选择按钮控件，点击
6、 在工作表的空白区域，鼠标拖动，画出一个大小合适的按钮，并右击制定宏；
7、 选择”按指定次数重复内容“，然后点击确定按钮，返回工作表；
8、 最后，我们点击按钮，看一下效果吧，已经按照要求生成了，D列就是我们要的效果了。小伙伴们，你们学会了吗？
