如何在Excel中为单元格名称添加数字？含公式批量更新需求

你需要的是根据公式里的数字，动态引用A列对应行的单元格，用INDIRECT函数就能实现：

• 直接在单元格输入公式：比如要引用A(1+N)（N是你加的数字），公式写成 =INDIRECT("A"&(1+N))
  示例：输入=INDIRECT("A"&(1+1))会返回A2的11，输入=INDIRECT("A"&(1+2))返回A3的37
• 如果想通过单元格输入数字来控制，比如在C2输入1，那么B2写 =INDIRECT("A"&(1+C2))，改C2的数字就能切换引用的A列单元格

提供两种方案，手动技巧和VBA自动处理：

手动操作技巧（无需代码） #

方法1：用OFFSET函数动态偏移 #

把原公式改成动态偏移的形式，用一个辅助单元格控制偏移量：

1. 在任意空白单元格（比如Sheet1的A1）输入0（初始偏移量，对应E8/E9）
2. 公式写成：=OFFSET('Data Sheet'!E8,A1+1,0)/OFFSET('Data Sheet'!E8,A1,0)-1
3. 每天只需要把A1的值加1，公式就自动更新为下一行的引用（比如A1=1时，就从E9/E8变为E10/E9）

方法2：用TODAY函数自动计算偏移（无需手动改数字） #

如果想打开Excel自动更新，结合日期计算偏移量：
假设你从2024年1月1日开始使用E8/E9的公式，之后每天递增一行，公式写成：

=INDIRECT("'Data Sheet'!E"&8+(TODAY()-DATE(2024,1,1)+1))/INDIRECT("'Data Sheet'!E"&8+(TODAY()-DATE(2024,1,1)))-1

替换DATE(2024,1,1)为你的起始日期，每天打开Excel会自动根据当前日期计算对应的行号。

VBA代码自动更新 #

单次运行的宏 #

下面的宏可以一键更新指定单元格的公式，把行号+1：

Sub UpdateDailyFormula()
    Dim targetCell As Range
    Dim formulaText As String
    Dim numPos1 As Integer, numPos2 As Integer
    Dim row1 As Integer, row2 As Integer
    
    ' 设置公式所在的单元格，自行修改工作表和单元格地址
    Set targetCell = ThisWorkbook.Worksheets("Sheet1").Range("B1")
    formulaText = targetCell.Formula
    
    ' 提取公式中的两个行号（比如从"='Data Sheet'!E9/'Data Sheet'!E8-1"中取9和8）
    numPos1 = InStr(formulaText, "E") + 1
    row1 = CInt(Mid(formulaText, numPos1, InStr(numPos1, formulaText, "/") - numPos1))
    numPos2 = InStr(numPos1, formulaText, "E") + 1
    row2 = CInt(Mid(formulaText, numPos2, InStr(numPos2, formulaText, "-") - numPos2))
    
    ' 生成新公式，行号各加1
    formulaText = Replace(formulaText, "E" & row1, "E" & row1 + 1)
    formulaText = Replace(formulaText, "E" & row2, "E" & row2 + 1)
    
    ' 写入新公式
    targetCell.Formula = formulaText
End Sub

使用方法：

1. 按Alt+F11打开VBA编辑器
2. 插入模块，粘贴代码
3. 修改Sheet1和B1为你的实际工作表和公式单元格
4. 按F5运行宏，或者添加到快速访问工具栏一键执行

打开工作簿自动更新（带日期判断） #

如果想每天打开Excel自动更新一次，避免重复更新，添加工作簿打开事件：

Private Sub Workbook_Open()
    Dim lastUpdateDate As Range
    Set lastUpdateDate = ThisWorkbook.Worksheets("Sheet1").Range("A2") ' 记录上次更新日期的单元格
    
    If lastUpdateDate.Value <> Date Then
        UpdateDailyFormula ' 调用上面的宏
        lastUpdateDate.Value = Date ' 更新记录的日期
    End If
End Sub

把这段代码粘贴到ThisWorkbook模块中，这样只有当天未更新过的时候才会执行更新。

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