在 Excel 公式单元格中，有没有办法以编程方式将表达式从使用默认变量更改为自定义单元格名称？

Question

我有一个包含数千个公式单元格的 Excel 表。 例如，

E1=A1+B1+C1*D1, E2=A2+B2+C2*D2, E3=A3+B3+C3*D3, E4=A4+B4+C4*D4, ....
 .... E5000=A5000+B5000+C5000*D5000

我使用下面的代码来更改相关单元格的名称。

colV = 1
    For c = cFrom To cTo 
            Rowv = 1
            For r = row1 To row5000 
               With Worksheets(ActiveSheet.Name)                
                        Worksheets(ActiveSheet.Name).Cells(r, c).Name = ActiveSheet.Name & "R" & Rowv & "C" & colV
                        Rowv = Rowv + 1                
               End With
            Next r
            colV = colV + 1
    Next c

执行上述代码后，A1、B1、C1、D1 和 E1 的新名称现在分别为 Sheet1R1C1、Sheet1R1C2、Sheet1R1C3、Sheet1R1C4、Sheet1R1C5，这是预期和正确的。 相同的规则适用于后续行。

但是，当我在 E 列的所有行中看到公式栏中的公式时，会保留原始/默认表达式。 例如单元格E1的公式仍然是=A1+B1+C1 D1，E2仍然是=A2+B2+C2 D2等等。 有没有办法以编程方式根据单元格的新名称来表达公式？ 例如，E1 应表示为 = Sheet1R1C1+Sheet1R1C2+Sheet1R1C3 Sheet1R1C4，E2 应表示为 = Sheet1R2C1+Sheet2R2C2+Sheet1R2C3 Sheet1R2C4 等等。 这是必需的，因为使用更新的单元名称的新表达式将存储在 csv 中。

这

FormulaVar = Worksheets(ActiveSheet.Name).Cells(r, c).Formula

产生原始表达式

我感谢您的帮助。

Answer 1

• Select公式>定义名称>应用名称
  

• 在弹出的对话框中 select 所有名称，然后按 OK：
  

• 您的=A1+B1+C1现在应该改为=Sheet1R1C1+Sheet1R1C2+Sheet1R1C3

下面是 VBA，但如果找不到任何参考，则会抛出错误。

Sub Test()

    Cells.ApplyNames Names:=Array("Sheet1R1C1", "Sheet1R1C2", "Sheet1R1C3", "Sheet1R1C4")

End Sub  

更新公式后，代码Debug.Print Cells(1, 4).Formula返回=Sheet1R1C1+Sheet1R1C2+Sheet1R1C3 。