如何在VBA迭代中为单元格添加固定值？批量生成PDF收据

你的代码核心问题是For循环的步长设置错误——当前循环从1到550每次递增1，会导致生成的收据编号重复（比如第二次循环输出2-3，和第一次的1-2里的2重叠），不符合每页两个连续且不重复编号的需求。

只需要调整循环步长，让i每次递增2，就能实现1&2、3&4……549&550的分组效果。修改后的完整代码如下：

Sub print_pdf()
    Dim first As Long, last As Long, i As Long
    Dim file_name As String
    
    first = Range("R1").Value ' 初始编号，例：1
    last = Range("R2").Value ' 结束编号，例：550
    
    ' 关键修改：Step 2 让i每次加2，避免编号重复
    For i = first To last Step 2
        Range("C1").Value = i
        Range("C2").Value = i + 1
        
        file_name = Range("C1") & "-" & Range("C2") & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name
    Next i
    
    Range("C1:C2").ClearContents ' 一次性清空两个单元格，更简洁
End Sub

关键修改说明： #

• For i = first To last Step 2：指定循环步长为2，确保每次迭代的起始编号比上一组大2，完全避免编号重复
• 替换FormulaR1C1为Value：这里只是赋值固定编号，不需要使用公式，直接赋值更高效
• Range("C1:C2").ClearContents：替代原代码的两次空字符串赋值，写法更简洁

如果你的结束编号是奇数（比如551），可以在循环前加一段判断，避免最后一组只生成单个编号：

' 可选：处理结束编号为奇数的情况
If last Mod 2 <> 0 Then
    last = last - 1
End If

内容的提问来源于stack exchange，提问作者Juan de la Cuadra