如何将Excel单列数据转换为每个值重复多次的列表

嘿，我懂你想把Excel里单列的每个值都重复多遍（比如你例子里的4次），总不能每次都手动复制粘贴吧？下面给你几个实用的方法，按需选就行：

方法一：手动快捷操作（适合小数据量） #

• 先选中第一个要重复的单元格（比如Val1），按Ctrl+C复制
• 接着在下方选中连续4个空白单元格，按Ctrl+V粘贴，这样第一个值就重复4次了
• 最后选中这4个重复的单元格，把鼠标移到选区右下角的填充柄（那个小方块），按住左键往下拖——Excel会自动识别规律，把后面的BigVal2、SmallVal3等也各自重复4次，省心又快速！

方法二：公式法（支持动态更新） #

假设你的原始数据在A列（从A1开始），想在B列生成重复4次的列表，直接在B1单元格输入公式：
=INDEX($A:$A,ROUNDUP(ROW()/4,0))
把公式往下拖到你需要的行数就搞定了。

小贴士：公式里的4就是每个值的重复次数，要是想改成3次、5次，直接替换这个数字就行~

方法三：VBA宏（适合大数据量/重复操作） #

如果数据量很大，或者你经常需要做这个操作，用宏一键搞定最方便：

1. 打开Excel的「开发者选项」（没显示的话，去「文件-选项-自定义功能区」勾选它）
2. 点击「Visual Basic」，插入一个模块，粘贴下面的代码：

Sub RepeatValues()
    Dim srcRange As Range
    Dim destRange As Range
    Dim repeatCount As Integer
    Dim i As Integer, j As Integer
    
    ' 设置每个值的重复次数，可自行修改
    repeatCount = 4
    
    ' 选择原始数据列（也可以直接写成Range("A1:A4")这种固定范围）
    Set srcRange = Application.InputBox("请选择要重复的数据列", Type:=8)
    
    ' 选择输出的起始单元格
    Set destRange = Application.InputBox("请选择输出的起始单元格", Type:=8)
    
    ' 循环生成重复值
    For i = 1 To srcRange.Rows.Count
        For j = 1 To repeatCount
            destRange.Value = srcRange.Cells(i, 1).Value
            Set destRange = destRange.Offset(1, 0)
        Next j
    Next i
End Sub

3. 回到Excel，运行这个宏，按照提示选择原始数据和输出位置，就能一键生成重复后的列表啦！

备注：内容来源于stack exchange，提问作者BrickAttractor