人工服务 离线下载

按指定次数重复数据的三种方法

转转大师PDF转换器

支持40多种格式转换,高效办公

在我们整理Excel表格中数据的时候,我们经常会需要用到按指定次数重复数据,对于这个很多小伙伴们都不是非常清楚要如何操作,今天小编就来给大家分享按指定次数重复数据的三种方法。
1公式法

D2单元格输入以下数组公式,按Ctrl+Shift+回车,向下复制到出现空白为止:

=INDEX(A:A,SMALL(IF(B$2:B$6>=COLUMN(A:Z),ROW($2:$6),99),ROW(A1)))&""

使用数组公式适合数据量比较小的情况,如果数据量比较大,数组公式运行会非常缓慢。

2VBA法

按Alt+F11打开VBE界面。

【插入】→【模块】,输入以下代码:

Option Explicit

Sub 拆分()

Dim irow&, irowincrease&, sumnum

irowincrease = 2

For irow = 2 To 6

sumnum = sumnum + Cells(irow, 2)

Do

Cells(irowincrease, 4) = Cells(irow, 1)

irowincrease = irowincrease + 1

Loop Until irowincrease - 1 > sumnum

Next irow

End Sub

点击【运行】按钮,即可在工作表D列生成需要的结果。

VBA的方法快速便捷,但是需要有一定的VBA基础,对于多数人来说,密密麻麻的代码还基本等同于天书一般。

3技巧法

再简单说下步骤:

C2单元格输入公式:

=SUM(B$2:B2)-ROW(A1)

向下拖动公式,至公式结果返回0为止。

以C列进行升序排序。

选中A列定位空值,编辑栏输入:

=首个空值下面的单元格地址

按Ctrl+回车

最后清除B:C列内容,设置格式。

以上就是今天给大家分享的关于按指定次数重复数据的三种方法,有需要的小伙伴们可以根据以步骤进行操作,如果需要pdf转Excel可以使用topdf转换器。