有没有办法编辑一个公式在VBA

假设如果我在一个单元格中有一个公式,我想编辑这个公式,我将如何去做呢?

我正在寻找的例子是我想在公式中的某些点上添加$符号,有没有办法告诉VBA在公式中的特定字符之后添加$?

我不是在寻找一种将公式转换成绝对参考公式的方法,我只想知道如何在公式中的某些点添加字符或符号

公式示例:这是由VBA粘贴到单元格中的内容

=IF(A13="Please add a title",0,B17*VLOOKUP(A13,'Tables (H)'!$H$2:$J$6,2,FALSE)) 

编辑后,我想它看起来像这样

 =IF($A$13="Please add a title",0,B17*VLOOKUP($A$13,'Tables (H)'!$H$2:$J$6,2,FALSE)) 

这与寻找职位的方式略有不同。 例如,如果公式在单元格区域Cell ,则可以使用Replace

 Cell.Formula = Replace(Cell.Formula, "A13", "$A$13") 

编辑:

好的,这是使用公式中表/ ListObject的第一个单元格的东西。 这可能是一个更直接的方式,你想要什么。 如果没有,我认为你可以改变它使用命名区域的第一个单元格:

 Sub test() Dim ws As Excel.Worksheet Dim lo As Excel.ListObject Dim FirstTableCell As Excel.Range Dim CellWithFormula As Excel.Range Set ws = ActiveSheet Set lo = ws.ListObjects(1) Set FirstTableCell = lo.DataBodyRange.Cells(1) Set CellWithFormula = ws.Range("A2") CellWithFormula.Formula = "=" & FirstTableCell.Address & "+1000" End Sub