如何在Excel中按规则填充可变数据：A列填600001-800000每2000行插10个占位符

嘿，这个需求我刚好处理过，给你整理几个不同场景下的实现方案，总有一款适合你：

如果你不想碰代码，用公式就能搞定。首先算清楚总规模：从600001到800000一共200000个数字，每2000个后加10个占位符，总共有100组，总行数是200000 + 100*10 = 201000行。

在A1单元格输入下面的公式，然后直接下拉到第201000行就行：

=IF(MOD(ROW()-1,2010)<2000,600000+INT((ROW()-1)/2010)*2000+MOD(ROW()-1,2000)+1,"######")

要是想用0作为占位符，把公式里的"######"改成0就OK。

公式逻辑拆解：

• ROW()-1：把行号转成从0开始的索引，方便循环计算
• MOD(ROW()-1,2010)：每2000个数字+10个占位符是2010行一个循环，用余数判断当前行在循环里的位置
• 余数小于2000时，计算对应数字；否则显示占位符

如果需要经常做这类操作，或者不想手动拉几千行公式，用VBA宏最省心。

步骤如下：

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

Sub FillNumbersWithPlaceholders()
    Dim startNum As Long, endNum As Long
    Dim batchSize As Long, placeholderCount As Long
    Dim currentRow As Long, currentNum As Long
    Dim i As Long
    
    ' 这里可以按需修改参数
    startNum = 600001
    endNum = 800000
    batchSize = 2000
    placeholderCount = 10
    currentRow = 1
    currentNum = startNum
    
    Do While currentNum <= endNum
        ' 填充当前批次的2000个数字
        For i = 1 To batchSize
            If currentNum > endNum Then Exit For ' 防止超过结束数字
            Cells(currentRow, 1).Value = currentNum
            currentNum = currentNum + 1
            currentRow = currentRow + 1
        Next i
        
        ' 只有还没到最后一批时，才插入占位符
        If currentNum <= endNum Then
            For i = 1 To placeholderCount
                Cells(currentRow, 1).Value = "######" ' 改成0就用0占位
                currentRow = currentRow + 1
            Next i
        End If
    Loop
    
    MsgBox "填充完成！总共有 " & currentRow - 1 & " 行数据"
End Sub

4. 按F5运行代码，或者回到Excel界面，点击「开发工具」→「宏」→ 选择FillNumbersWithPlaceholders执行就行

这个代码的好处是参数都顶在最前面，以后要改批次大小、占位符数量或者起止数字，直接改变量就行，不用动后面的逻辑。

如果你平时用Power Query做数据整理，这个方法更灵活，方便后续调整：

1. 点击「数据」→「获取数据」→「从其他来源」→「空白查询」
2. 在顶部的公式栏输入：=List.Numbers(600001,200000)，生成600001到800000的数字列表
3. 接着把列表拆成每2000个一组：=List.Split(PreviousStepName,2000)（注意把PreviousStepName换成上一步的名称，比如「源」）
4. 给每组后面加10个占位符：=List.Transform(PreviousStepName, each _ & List.Repeat({"######"},10))
5. 把所有组合并成一个大列表：=List.Combine(PreviousStepName)
6. 点击「关闭并上载」，选择加载到A列即可

以后要改参数的话，直接回到Power Query编辑器调整步骤就行，不用重新做一遍。

内容的提问来源于stack exchange，提问作者László Ildikó