本文共 1107 字，大约阅读时间需要 3 分钟。

大家都知道Excel公式中使用的单元格引用有两种形式：相对引用（如A1）和绝对引用（如$A$1）两种形式，在输入公式按可切换两种引用形式。对于已有的公式，如果需要变更引用形式，逐个手工修改有些费劲，而且可能会导致人为错误，使用正则表达式功能，可以完成公式的转换。

示例代码如下。

Sub ChangeFormulaRef()    Dim objRegEx As Object    Dim objCell As Range    Dim strFormula As String    Set objRegEx = CreateObject("vbscript.Regexp")    objRegEx.Pattern = "([A-Z]{  1,3})(\d{  1,7})"    objRegEx.Global = True    For Each objCell In ActiveSheet.UsedRange.Columns(2).Cells        If objCell.HasFormula = True Then            strFormula = objCell.Formula            strFormula = objRegEx.Replace(strFormula, "$$$1$$$2")            objCell.Formula = strFormula        End If    Next    Set objRegEx = Nothing    Set objCell = NothingEnd Sub

运行示例代码，结果如下图所示，公式中的相对引用转换为绝对引用。

第8~14行循环遍历处理第2列的单元格。

第14行代码更新公式。