嘿，这个需求我太熟了！给你几个实用的方法，根据你的使用场景选就行：

一、公式快速填充法（适合临时操作，不用宏） #

这种方法简单直接，零技术门槛：

• 选中C1单元格，输入公式 =A$1（美元符号是锁定A列的行号，确保横向拖动时不会跑偏）
• 把鼠标移到C1右下角的填充柄（那个小方块），按住左键横向拖动到V列（正好对应B1里的20列乘数）
• 选中C1到V1的所有单元格，再拖动填充柄向下到第5行，A1:A5的数据就会批量复制到C到V列的每一行里啦

要是觉得锁定行号麻烦，也可以用更灵活的公式 =INDEX($A:$A,ROW())，它会自动取当前行的A列数据，横向拖动时不管多少列，都是当前行的A列值，操作步骤完全一样。

二、VBA宏批量处理法（适合重复操作，一劳永逸） #

如果你经常要做这种按指定乘数复制列的操作，写个小宏就能省不少事：

1. 按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 把下面的代码粘贴进去：

Sub CopyColumnsByMultiplier()
    ' 读取B1中的乘数
    Dim multiplier As Integer
    multiplier = Range("B1").Value
    
    ' 源数据范围，可根据实际情况修改
    Dim sourceData As Range
    Set sourceData = Range("A1:A5")
    
    ' 目标起始列（C列对应第3列，改起始列的话换数字就行）
    Dim startCol As Integer
    startCol = 3
    
    ' 循环复制到对应列
    For i = 0 To multiplier - 1
        sourceData.Copy Destination:=Cells(1, startCol + i)
    Next i
End Sub

4. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选中这个宏执行即可

提示：如果看不到「开发工具」选项卡，去「文件」→「选项」→「自定义功能区」里勾选它就行

三、手动快速复制法（适合一次性操作，最简步骤） #

要是你只做一次，不想折腾公式或宏，这么操作最快：

• 选中A1:A5，按下Ctrl + C复制
• 点击C1单元格，按下Ctrl + V粘贴，先把A列数据复制到C列
• 选中C列的列标（顶部的字母C），按下Ctrl + C复制整列
• 选中D到V列的所有列标（点击D，按住Shift再点V），按下Ctrl + V粘贴，搞定！

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