有没有办法编辑一个公式在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)) 

Answer 1

这与寻找职位的方式略有不同。 例如，如果公式在单元格区域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