今天跟大家分享一下如何vba将数据重复指定次数。
工具/原料
Excel
方法/步骤
1、首先打开Excel文件,然后点击任意一个单元格。
2、然后我们同时按下Alt+F11
3、接着我们点击sheet1,并在右边区域录入vba代码。
4、然后我们点击【运行】,选择【运行子过程/用户窗体】
5、在弹出对话框内录入我们想要重复的数据并用逗号隔开如“王小二,李小三,赵小四,王五”水貔藻疽,接着点击【确定】(特备注意这里的逗号是英文状态下的逗号)
6、录入我们要重复的次数,然后点击【确定】就可以完成了
7、完成效果如下图,最后跟大家抵足谛垴分享一下本文这里所使用的vba代码,如有需要可以复制粘贴使用。'激活工作表事件'激活工作表,写入除目玲膛宀耱录外所有表名'作者:如需Excelvba定制开发,请百度方方格子'------------------------------------------Sub数组每个元素重复N次写入列()Dimi,j,posAsIntegerDimstrs,count,arrstrs=Application.InputBox(prompt:="输入数组用逗号隔开,如AA,BB,CC):",Type:=2)count=Application.InputBox(prompt:="输入要重复的次数:",Type:=1)arr=Split(strs,",")pos=0Fori=0ToUBound(arr)Forj=1TocountActiveCell.Offset(pos,0)=arr(i)pos=pos+1NextjNextiEndSub