救救小白，怎么用excel达到我想要的结果呢？

moryo

原表是这样的，很简单的表
姓名
张三
李四
王五
...
钱百

共100人

我要的结果是这样
姓名
张三
张三
张三
李四
李四
李四
王五
王五
王五
...
钱百
钱百
钱百

怎么达到我想要的结果呢？我是小白，一个个复制累晕。。。

梦幻的流星

=INDEX(A:A,SMALL(IF(3>=COLUMN(A:Z),ROW(A$1:A$2),99),ROW(A1)))& ""
记得按数组三键

jians0529

=INDEX(A:A,CEILING(ROW(A1)/3,1))

sobili

我用宏做个附件，希望对你有帮助。 工作簿1.rar (15.17 KB, 下载次数: 1)

2021-8-14 12:37 上传

点击文件名下载附件

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3.     Columns("c:c").ClearContents
   
4.     Range("c1") = "姓名"
   
5.     Dim i, j, m
   
6.     irow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     For i = 1 To irow
   
8.         For j = 1 To 3
   
9.             m = m + 1
   
10.             Range("a" & i + 1).Copy Range("c" & m + 1)
    
11.         Next
    
12.     Next
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

rarnma

这个问题可以理解成一个批量插入空格和批量填充的问题，有一个不用公式的方法。首先在姓名旁加一个辅助列，并在辅助列里给姓名配上序号，选中序号向下复制，姓名需要重复几遍就复制几遍，给序号列按升序排序，排序时记得选”扩展选定区域“再排序，这样就空格就插好了。选定插好空格的姓名列，行数与序号列相同。按F5调出定位窗口，点“定位条件”在条件中选”空值“这样就选定了所有空格，然后直接输入公式，“=A1“例子中是A1,请根据实际情况选择，A1单元格可以直接点选。输入完成后按下批量填充快捷键“ctrl+Enter”就可以完成填充，这之后辅助列就可以不要了。序号排序法可以用于各种隔行填充的情况，比如你有两部分内容，需要把第二部分隔行插入到第一部分中，就可用这个办法。