1、首先打开Excel文件，然后点击任意一个单元格。
2、然后我们同时按下Alt+F11
3、接着我们点击sheet1，并在右边区域录入vba代码。
4、然后我们点击【运行】，选昆醒择【运行子过程/用户窗体】
5、在弹出对话框内录入我们想要重复的数据并用逗号隔开如“王小二,李小三,赵小四,王五”，接着点击【确定】（特备注意这里的逗号是英文状态下的逗号）
6、录入我们要重复的次数，然后点击【确定】就可以完成了
7、完成效果耍蚂倘如下图，最后跟大家分享一下本文这里所使用的vba代码，如有需要可以复制粘贴使用。
'激活工作表事件
'激活工作表，写入除目录外所有表名
'作者：如需Excel vba定制开发，请百度方方格子轿肺
'------------------------------------------
Sub 数组每个元素重复N次写入列()
Dim i, j, pos As Integer
Dim strs, count, arr
strs = Application.InputBox(prompt:="输入数组用逗号隔开，如 AA,BB,CC):", Type:=2)
count = Application.InputBox(prompt:="输入要重复的次数:", Type:=1)
arr = Split(strs, ",")
pos = 0
For i = 0 To UBound(arr)
For j = 1 To count
ActiveCell.Offset(pos, 0) = arr(i)
pos = pos + 1
Next j
Next i
End Sub
