Excel中如何实现每行元素数量逐行翻倍且保留原有数值取值范围

分三种适配不同Excel版本的操作方案，你可以根据自己的使用场景选择：

方法1：动态数组公式法（适配Excel 365/2021及以上版本） #

操作最简单，不需要批量拉取公式：

• 首先确认第一行随机数已生成，无需额外辅助单元格
• 点击第二行首个空白单元格（即A2），输入对应公式：
  • 生成小数随机数输入：=RANDARRAY(1,COUNTA($1:$1)*2^(ROW()-1),MIN($1:$1),MAX($1:$1),FALSE)
  • 生成整数随机数输入：=RANDARRAY(1,COUNTA($1:$1)*2^(ROW()-1),MIN($1:$1),MAX($1:$1),TRUE)
• 按下回车后公式会自动溢出，填充当前行所有需要的元素
• 选中A2单元格下拉填充到需要的行数，每一行会自动按上一行数量翻倍生成对应取值范围的随机数

方法2：普通公式法（适配2019及更早无动态数组的Excel版本） #

需要提前拉取足够多的列：

• 先在表格最右侧空白列设置3个固定辅助值：
  • 比如在XFB1单元格输入=COUNTA(1:1)，获取第一行元素总数
  • 在XFC1单元格输入=MIN(1:1)，获取第一行取值最小值
  • 在XFD1单元格输入=MAX(1:1)，获取第一行取值最大值
• 点击A2单元格输入对应公式：
  • 生成小数随机数输入：=IF(COLUMN()<=XFB$1*2^(ROW()-1),XFC$1+RAND()*(XFD$1-XFC$1),"")
  • 生成整数随机数输入：=IF(COLUMN()<=XFB$1*2^(ROW()-1),RANDBETWEEN(XFC$1,XFD$1),"")
• 把A2单元格的公式向右拉到你预估的最大元素数量对应的列（比如预估最多生成1000个元素就拉到ALM列）
• 选中第二行所有已填充公式的单元格，下拉到需要的行数即可，超出当前行元素数量的位置会自动显示为空

方法3：VBA宏方法（适配批量生成大量行的场景，效率更高） #

操作步骤：

1. 按下Alt+F11打开VBA编辑器，点击「插入」-「模块」
2. 把以下代码粘贴到模块窗口中，按需调整生成的行数（代码注释里有标注修改位置）

Sub 生成翻倍随机数()
    Dim firstRowCount As Long, minVal As Double, maxVal As Double
    Dim i As Long, curRowCount As Long
    ' 读取第一行的基础参数
    firstRowCount = Application.WorksheetFunction.CountA(Rows(1))
    minVal = Application.WorksheetFunction.Min(Rows(1))
    maxVal = Application.WorksheetFunction.Max(Rows(1))
    
    ' 下方2到11代表生成第2行到第11行共10行数据，可自行修改数字
    For i = 2 To 11
        curRowCount = firstRowCount * 2 ^ (i - 1)
        Rows(i).ClearContents
        ' 生成小数随机数用下面这行，生成整数就注释掉换下面的RANDBETWEEN行
        Range(Cells(i, 1), Cells(i, curRowCount)).Formula = "=" & minVal & "+RAND()*(" & maxVal & "-" & minVal & ")"
        ' 生成整数随机数用下面这行
        ' Range(Cells(i, 1), Cells(i, curRowCount)).Formula = "=RANDBETWEEN(" & minVal & "," & maxVal & ")"
        
        ' 可选：将公式转为固定值，避免后续刷新变动
        Range(Cells(i, 1), Cells(i, curRowCount)).Value = Range(Cells(i, 1), Cells(i, curRowCount)).Value
    Next i
End Sub

3. 按下F5运行代码即可自动生成所有需要的行

注意事项 #

如果不需要随机数后续自动刷新，全选所有生成的随机数，右键选择「复制」，再右键选择「粘贴为值」即可固定数值。

内容的提问来源于stack exchange，提问作者nDev