vba excel宏不区分大小写

我有这个代码，我需要一些帮助，使它不区分大小写。现在serch是区分大小写的，我有一些excel表格，其中包含大写和小写的数据。 谢谢

换这一行

---

StartPos=InStr（Ucase（cl）、Ucase（SearchText））

您是否可以使用

选项比较文本？或者，将
vbTextCompare
arg添加到您的第一个
InStr
。在@blackworx注意到的两个参数中，出于良好习惯的考虑，后者更可取。Ucase会将比较的两侧改为大写。非常感谢。它工作得很好。再次感谢你。
Sub FormatSelection()

    Dim cl As Range
    Dim SearchText As String
    Dim StartPos As Integer
    Dim EndPos As Integer
    Dim TestPos As Integer
    Dim TotalLen As Integer

    On Error Resume Next
    Application.DisplayAlerts = False
    SearchText = Application.InputBox _
    (Prompt:="Enter string.", Title:="Which string to format?", Type:=2)
    On Error GoTo 0
    Application.DisplayAlerts = True
    If SearchText = "" Then
        Exit Sub
    Else
        For Each cl In Selection
          TotalLen = Len(SearchText)
          StartPos = InStr(cl, SearchText)
          TestPos = 0
          Do While StartPos > TestPos
            With cl.Characters(StartPos, TotalLen).Font
              .FontStyle = "Bold"
              .ColorIndex = 3
            End With
            EndPos = StartPos + TotalLen
            TestPos = TestPos + EndPos
            StartPos = InStr(TestPos, cl, SearchText, vbTextCompare)
          Loop
        Next cl
    End If
End Sub