在辅助列编序号(不含标题行);
复制数据,到最下方粘贴,需要重复为几行,就粘贴行数减一次,比如下图是重复为三行,粘贴两次;
选中序号列中任一单元格,选择:排序和筛选--升序;
即得到重复结果,再删除辅助列序号即可。
用公式可以实现,但比较麻烦,给你一段vba代码,在工作表名称上右键,查看代码,把下面代码贴进去,运行就可以了。
Sub cf()
h = Range("A1").End(xlDown).Row
Rows("1:1").Copy
hn = h + 5
Cells(hn, 1).Select
ActiveSheet.Paste
For i = 2 To h
k = Cells(i, 2)
For j = 1 To k
hn = hn + 1
Cells(hn, 1) = Cells(i, 1)
Cells(hn, 2) = 1
Next j
Next i
End Sub
晕,还有这样的啊?我只会把下面的用公式做成第一份那样的汇总,不会把上面的表拆分成下面的表啊。。