Question

我试图清除一系列单元格中的所有数字常量，而不清除任何公式或单元格引用。从没有任何公式或单元格引用的单元格中清除常量很简单，但是当它存在时我无法做到这一点。下面是我到目前为止的代码。

Range("B2:B11").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents

在此范围内，细胞B5和B7的细胞参考配方如下：

B5：=（G83 * H1）+1181.05

B7：= E33 + 1292.76

单元格引用有时也会引用同一工作簿中其他工作表上的单元格。我需要清除这些公式中的常量，同时保留参考文献。

Answer 1

这将根据2种模式从当前工作簿中的所有公式中删除常量：

"=Formula-[Space]- PlusSign -[Space]-Constant"（空格可选）
- =(G83*H1)+1181.05 or =(G83*H1) +1181.05 or =(G83*H1)+ 1181.05变为 =(G83*H1)
- =E33+1292.76 or =E33 +1292.76 or =E33+ 1292.76 or =E33 + 1292.76变为 =E33
"=Formula-[Space]- MinusSign -[Space]-Constant"（空格可选）

Public Sub clearConstantsFromWorkBookFormulas()
    Const PATTERNS As String = "~+*|~+ *|~ +*| ~+ *|~-*|~- *|~ -*|~ - *"
    Dim pat As Variant

    For Each pat In Split(PATTERNS, "|")
        Cells.Replace What:=pat, _
                      Replacement:=vbNullString, _
                      LookAt:=xlPart, _
                      SearchOrder:=xlByRows, _
                      MatchCase:=False
    Next

End Sub

这是一个使用regEx模式匹配和数组的更通用选项：

Public Sub testClear()
    Dim ws As Worksheet

    For Each ws In Application.ActiveWorkbook.Worksheets
        removeConstantsFromFormulas ws.Range("B2:B11"), getRegEx
    Next
End Sub

Public Sub removeConstantsFromFormulas(ByRef rng As Range, ByRef regEx As Object)
    Dim v As Variant, r As Long, c As Long, lr As Long, lc As Long

    lr = rng.Rows.Count
    lc = rng.Columns.Count

    If lr > 0 And lc > 0 Then

        v = rng.Formula
        For r = 1 To lr
           For c = 1 To lc
              If Left(v(r, c), 1) = "=" Then
                 If regEx.Test(v(r, c)) Then v(r, c) = regEx.Replace(v(r, c), vbNullString)
              End If
           Next
        Next
        rng.Formula = v

    End If
End Sub

Private Function getRegEx() As Object
    Set getRegEx = CreateObject("VBScript.RegExp")
    getRegEx.Pattern = "[^a-zA-Z][0-9]+(\.?[0-9]+)"
    getRegEx.Global = True
    getRegEx.IgnoreCase = True
End Function

RegEx模式：一个或多个数字，数字组前面没有字母，有或没有分数部分

Answer 2

此尝试应使用Regexp处理大多数示例。

上面的讨论指出可能存在一些边缘情况。对于以下代码

=（G83 * H1）1181.05
  = 10 + A1
  = A1 + 10
  = A1 +（10）
  = A1 + 10.0

变为

=（G83 * H1）
  = + A1
  = A1
  = A1
  = A1

我注意到它也会取消=A1^2

中的 ^ 2

它显然也不会满足命名公式（命名范围）。

更新：现在处理级联括号，即

= A1 +（27+（11-2））

变为

= A1

Sub Format()
Dim objRegexB As Object
Dim lngCnt As Long
Dim X

X = [b2:b11].Formula

Set RegExB = CreateObject("vbscript.regexp")
With RegExB
    .Pattern = "[=\+\/\*^\-](\([0-9]\d*(\.\d+)?\)|[0-9]\d*(\.\d+)?|\.\d+)"
   .Global = True
    For lngCnt = 1 To UBound(X)
        Do While .Test(X(lngCnt, 1))
           X(lngCnt, 1) = .Replace(X(lngCnt, 1), vbNullString)
        Loop
    Next
End With
[b2:b11].Formula = X

End Sub

清除范围中的常量而不清除引用和公式

2 个答案: