实战|模板 - 按指定次数重复内容
今天，我们来说点，关于重复内容的事情
内容少的情况下，重复内容，并不是什么难事，拖动一下即可
但是如果内容较多，我们还是得学点技巧，批量来处理
为了演示方便，我们就来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）
一个问题，可能有很多种解决方法，但是适合自己的才是最好的
今天就先到这里，关注我们额
赞 (0)