Excel VBA定制开发如何将数据重复指定次数听语音

 

Excel VBA定制开发如何将数据重复指定次数听语音

 

原创

|

浏览：363

|

更新：2020-08-28 15:05

今天跟大家分享一下如何vba将数据重复指定次数。

工具/原料

Excel

方法/步骤

1

首先打开Excel文件，然后点击任意一个单元格。

5

在弹出对话框内录入我们想要重复的数据并用逗号隔开如“王小二,李小三,赵小四,王五”，接着点击【确定】（特备注意这里的逗号是英文状态下的逗号）

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

END

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。

作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。

展开阅读全部

Measure

Measure