【原】实战|模板 - 按指定次数重复内容

今天，我们来说点，关于重复内容的事情

内容少的情况下，重复内容，并不是什么难事，拖动一下即可

但是如果内容较多，我们还是得学点技巧，批量来处理

为了演示方便，我们就来1-6月这个举例下面，小编就总结一下关于重复的事情：

方法1：VBA-模板法

还没看，肯定就有人说了，VBA我也看不懂呀，怎么上来就是VBA，退出，下一个

但是，VBA确实是效率最高了，同时我已经写好了，作为模板直接使用

如何使用代码见文末-番外小知识

代码部分：

Option Explicit'功能：按指定次数重复内容'作者：小易'日期：2019年6月18日Sub reptData() Dim arr, n As Byte, iCount As Integer Dim i As Integer, j As Integer arr = Range("a1").CurrentRegion Dim brr(0 To 100000, 1 To 1) brr(0, 1) = arr(1, 1) For i = 2 To UBound(arr) For j = 1 To arr(i, 2) iCount = iCount + 1 brr(iCount, 1) = arr(i, 1) Next Next '输出 Columns(4).Clear Range("D1").Resize(iCount + 1, 1) = brrEnd Sub



演示文件下载：关注公众号，回复关键字：重复内容

方法2：技巧法

操作说明：

• 在C2单元格输入公式:=SUM($B$2:B2)-ROW(A1)

• 下拉公式，直接到填充为0(可以多拉，删除多出的部分）

• 选中这个区域，按照C列排序

• CTRL+G，定位空格

• 输入=A3,按下CTRL+ENTER

方法3：Power Query

简述：这里是利用PQ的列表及扩展到行处理的技巧应用，这里不细展开

Power Query,是2010版本新增的组件，在数据清洗方面功能无比强大

方法4：公式法

公式：

=IFERROR(INDEX(A:A,SMALL(IF($B$2:$B$7>=COLUMN(A:AA),ROW($B$2:$B$7)),ROW(A1))),"")

简述：注意公式是数组公式，录入需要同时按下Ctrl+Shift+Enter确认（两边自动添加大括号）

番外小知识

• 使用VBA代码的方法有很多种，我们可以直接使用ALT+F11，快速进去VBE

• 数组公式不同于一般公式直接回车确认，需要三键确认（Ctrl+Shift+Enter）

• 一个问题，可能有很多种解决方法，但是适合自己的才是最好的
  

今天就先到这里，关注我们额