编译错误； End With without With 虽然两者都存在

Question

如果行中的特定单元格包含某个短语（该单元格包含的不仅仅是特定短语），当前正在编写一个脚本以突出显示该行。但是，在尝试测试时，我看到了错误“编译错误：以不带结尾”我可以在我的代码中看到带和结尾，尽管我可能已经看了太久而没有注意到明显的。任何人都可以注意到代码中可能导致此问题的任何原因吗？

Sub Conversion()

Dim State As String
Dim County As String
Dim Date As String
Dim TC As String    
Dim H As String
Dim Tmp As String
Dim m As Long
Dim x As Long    

H = "not recognised"
With Sheets("Matched Date")
 For Each cell In Sheet
    m = UBound(Split(Rng.Value, H))
    If m > 0 Then
    Tmp = ""
    For x = 0 To m - 1
    Tmp = Tmp & Split(Rng.Value, H)(x)
    .Characters(Start:=Len(Tmp) + 1, Length:=y).EntireRow.Color = RGB(252, 227, 3)
    Tmp = Tmp & H
    Next
    End If
End With

编辑：很抱歉这里的业余代码，我没有受过培训，只是尝试根据简单的在线视频和谷歌指南来做这件事，因为我们没有其他人可以为我们做这件事。

Answer 1

如上所述，正确的代码缩进是您的朋友。这样做，你的代码看起来像

With Sheets("Matched Date")
    For Each cell In Sheet
        m = UBound(Split(Rng.Value, H))
        If m > 0 Then
            Tmp = ""
            For x = 0 To m - 1
                Tmp = Tmp & Split(Rng.Value, H)(x)
                .Characters(Start:=Len(Tmp) + 1, Length:=y).EntireRow.Color = RGB(252, 227, 3)
                Tmp = Tmp & H
            Next
        End If
End With

这样，很容易发现您的第一个 For 循环缺少结束 Next。

此错误消息和类似的错误消息可能有点误导。如果您将 With/End With、For/Next、Select/End Select 等对视为开/关括号对，它基本上意味着“此代码以某种方式遗漏了一个右‘括号’”。