Excel拖拽填充跨表引用公式时如何实现工作表名称自动递增

下面提供三种不同场景的方案，按需选择即可：

方法1：INDIRECT动态引用（全Excel版本通用，无需启用宏） #

适合表量不大的场景，操作最简单：
如果你的主日志表RFI Log里没有单独列存RFI编号，直接在需要填充公式的第一行单元格输入以下公式：
=INDIRECT("RFI_"&TEXT(ROW(A1),"000")&"!$A$18")

• 公式逻辑：ROW(A1)在向下拖拽时会自动递增为ROW(A2)/ROW(A3)，生成1/2/3的序列；TEXT函数将序列补为3位编码001/002/003，拼接成完整的工作表+单元格地址，INDIRECT函数读取对应地址的值。
• 如果需要引用其他字段，只要把公式里的$A$18替换为对应单元格地址，重新拖拽即可。
  注意：INDIRECT属于易失函数，超过200行以上的批量引用可能会轻微影响文件打开速度，50张表的场景完全无压力

方法2：非易失函数方案（适合大数量场景） #

如果要避免易失函数的性能问题，可以用宏表函数实现：

1. 按Ctrl+F3打开名称管理器，点击「新建」
2. 名称填写SheetList，引用位置填写=GET.WORKBOOK(1)&T(NOW())，点击确定
3. 回到主表第一行公式单元格输入：
   =INDEX(SheetList,ROW(A2))&"!$A$18"
4. 向下拖拽填充即可
   该方法需要将文件保存为.xlsm启用宏格式

方法3：VBA批量生成硬编码公式（无函数依赖，性能最优） #

如果后续不需要动态调整引用，直接生成固定的硬编码公式，不会有函数刷新开销：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入」-「模块」
2. 粘贴以下代码：

Sub 批量生成RFI引用()
    Dim i As Integer
    ' 示例：从第2行到第51行，共50条数据，公式写入B列，引用各表A18单元格
    For i = 2 To 51
        Cells(i, "B").Formula = "=RFI_" & Format(i - 1, "000") & "!$A$18"
    Next i
End Sub

3. 按F5运行即可，需要生成其他字段的公式时，只需修改代码里的列号和引用单元格地址重新运行即可。

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