6

下面是在 Excel 中设置的示例，

[column1] [column2]

A1  =C3-C5

A2  =((C4-C6)/C6)

A3  =C4*C3

A4  =C6/C7

A5  =C6*C4*C3

我需要提取公式中使用的引用

例如，

for "A1", I simply need to get the C3 and C5.
for A2, I need to get the C4 and C6.
4

3 回答 3

5

这是对以下内容的更新：

适用于本地工作表参考，但不适用于表外参考。– brettdj 2014 年 5 月 14 日 11:55

通过使用 Larrys 方法，只需将 objRegEx.Pattern 更改为：

(['].*?['!])?([[A-Z0-9_]+[!])?(\$?[A-Z]+\$?(\d)+(:\$?[A-Z]+\$?(\d)+)?|\$?[A-Z]+:\$?[A-Z]+|(\$?[A-Z]+\$?(\d)+))

这将：

  1. 搜索可选的外部链接：(['].*?['!])?
  2. 搜索可选的工作表参考：([[A-Z0-9_]+[!])?
  3. 按优先顺序执行以下步骤：
  4. 搜索具有行号的范围（以及可选的 $）：\$?[A-Z]+\$?(\d)+(:\$?[A-Z]+\$?(\d)+)?
  5. 搜索没有行号的范围（和可选的 $）：\$?[A-Z]+:\$?[A-Z]+
  6. 搜索 1 单元格引用（和可选的 $）：(\$?[A-Z]+\$?(\d)+)

结果是：

Sub testing()
Dim result As Object
Dim r As Range
Dim testExpression As String
Dim objRegEx As Object

Set r = Cells(1, 2)  ' INPUT THE CELL HERE , e.g.    RANGE("A1")
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.IgnoreCase = True
objRegEx.Global = True
objRegEx.Pattern = """.*?"""  ' remove expressions
testExpression = CStr(r.Formula)
testExpression = objRegEx.Replace(testExpression, "")
objRegEx.Pattern = "(([A-Z])+(\d)+)"  'grab the address

objRegEx.Pattern = "(['].*?['!])?([[A-Z0-9_]+[!])?(\$?[A-Z]+\$?(\d)+(:\$?[A-Z]+\$?(\d)+)?|\$?[A-Z]+:\$?[A-Z]+|(\$?[A-Z]+\$?(\d)+))"
If objRegEx.test(testExpression) Then
    Set result = objRegEx.Execute(testExpression)
    If result.Count > 0 Then
        For Each Match In result
            Debug.Print Match.Value
        Next Match
    End If
End If
End Sub

这样做，会给你所有可能的参考值，我能想到的。（更新了这篇文章，因为我需要解决问题）。

于 2015-10-15T11:07:35.123 回答
3

此函数返回一个逗号分隔的源单元格列表（先例）：

函数引用（rngSource 作为范围）作为变体
    Dim rngRef As Range
    将 strTemp 调暗为字符串
    出错时继续下一步
    对于 rngSource.Precedents.Cells 中的每个 rngRef
        strTemp = strTemp & ", " & rngRef.Address(False, False)
    下一个
    如果 Len(strTemp) 0 那么 strTemp = Mid(strTemp, 3)
    参考文献 = strTemp
结束功能

但是，请注意，您不能将其用作工作表中的 UDF，因为rngRef.Address不幸的是会导致循环引用。但是，您可以在一个小过程中使用它来填充另一列，例如

子 ShowPrecedents()
    调暗为范围
    '将 A1:A6 的先例粘贴到 D1:D6
    对于范围内的每个 rng("D1:D6")
        rng.Value = 参考（rng.Offset(, -3))
    下一个
结束子
于 2012-12-12T09:32:10.530 回答
1

只是为您提供一种替代方法...注意，如果多次调用单元格，这将返回重复的结果

Sub testing()
Dim result As Object
Dim r As Range
Dim testExpression As String
Dim objRegEx As Object

Set r = Cells(1, 2)  ' INPUT THE CELL HERE , e.g.    cells("A1")
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.IgnoreCase = True
objRegEx.Global = True
objRegEx.Pattern = """.*"""  ' remove expressions
testExpression = CStr(r.Formula)
testExpression = objRegEx.Replace(testExpression, "")
objRegEx.Pattern = "(([A-Z])+(\d)+)"  'grab the address

If objRegEx.test(testExpression) Then
    Set result = objRegEx.Execute(testExpression)
    If result.Count > 0 Then
        For Each Match In result
            Debug.Print Match.Value
        Next Match
    End If
End If
End Sub

结果存储在“Match.Value”中

于 2012-12-12T09:46:39.137 回答