如何在VBA中编写函数以从公式中提取单元格引用？

Function ExtractCellReferences(formula As String) As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    Dim result As String
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "([A-Z]+[0-9]+)"
    
    ' 查找匹配的单元格引用
    Set matches = regex.Execute(formula)
    
    ' 提取匹配的单元格引用
    For Each match In matches
        result = result & match.Value & ", "
    Next match
    
    ' 移除最后一个逗号和空格
    If Len(result) > 0 Then
        result = Left(result, Len(result) - 2)
    End If
    
    ExtractCellReferences = result
End Function

Sub Test()
    Dim formula As String
    Dim cellReferences As String
    
    formula = "=SUM(A1:B2) + C3"
    cellReferences = ExtractCellReferences(formula)
    
    MsgBox "公式中的单元格引用：" & cellReferences
End Sub