Question

我发现了一个使用RegEx来确定列中是否有特殊字符的代码。我今天才发现有关RegEx的信息，并尝试编辑此代码，但遇到了3个问题：

它使用"ActiveSheet"，但我已经读到它可能会引起问题。我希望它仅检查在For Each行中尝试过"Consolidated."的名为Worksheets.("Consolidated").Range的工作表，但是它不接受。
这适用于整个工作表。我想知道是否有可能根据其名称（例如：First Name）而不是在其范围内将其应用于列，因为合并工作表中的列未固定。
它还会突出显示列名所在的第一行（这不应发生）。我确实掌握了逻辑或工作流程，但是我对vba还是陌生的，所以我真的想问一下有关此问题的指导。

Dim strPattern As String: strPattern = "[^a-z0-9-]"
Dim regEx As Object
Dim Cell As Range

Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = strPattern

For Each Cell In ActiveSheet.Range("A:Z") ' Define your own range here
    If strPattern <> "" Then              ' If the cell is not empty
        If regEx.Test(Cell.Value) Then    ' Check if there is a match
            Cell.Interior.ColorIndex = 6  ' If yes, change the background color
        End If
    End If
Next

Answer 1

我进行了更改。

使用Find函数查找列。为此使用了cnum
使用Worksheets("Consolidated")而不使用.

将找到的列号传递到循环范围

Dim strPattern As String: strPattern = "[^a-z0-9-]"
Dim regEx As Object
Dim Cell As Range
Dim cnum As Integer

Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = strPattern

cnum = Worksheets("Consolidated").Range("A1:Z1").Find("First Name").Column 'column number to search in

For Each Cell In Worksheets("Consolidated").Range(Cells(2, cnum), Cells(1000, cnum))
    If strPattern <> "" Then              ' If the cell is not empty
        If regEx.Test(Cell.Value) Then    ' Check if there is a match
            Cell.Interior.ColorIndex = 6  ' If yes, change the background color
        End If
    End If
Next

根据列名识别Excel中的特殊字符

1 个答案: