Vba 细胞类型不匹配

我需要一个for循环来跳过索引值，我不明白为什么这段代码不跳过循环中的第6个索引值

Application.ScreenUpdating = False
Exceptions = 0
Dim i As Long
For i = 1 To Rows.Count
    If i <> 6 Then
        If (Cells(i, Selection.Column).Value - Cells(i + 1, Selection.Column).Value) > 0.1 And Cells(i, Selection.Column).Value > 90 Then
            MsgBox ("The ticker start value is: " & i - 6)
            Exit For
        End If
    End If
    If Cells(i, Selection.Column) = "" Then
        Exceptions = Exceptions + 1
    End If
    If Exceptions > 8 Then
        MsgBox ("No start found")
        Exit For
    End If
Next
Application.ScreenUpdating = True

Application.ScreenUpdate=False
例外情况=0
我想我会坚持多久
对于i=1到行。计数
如果我6岁的话
如果（单元格（i，Selection.Column）.Value-单元格（i+1，Selection.Column）.Value）>0.1，单元格（i，Selection.Column）.Value>90，则
MsgBox（“股票代码的起始值为：”&i-6）
退出
如果结束
如果结束
如果单元格（i，Selection.Column）=“”，则
异常=异常+1
如果结束
如果异常>8，则
MsgBox（“未找到启动”）
退出
如果结束
下一个
Application.ScreenUpdating=True

---

我遇到的问题是，第6行包含文本，布尔值对单元格进行数学运算。因此，当循环到达第6行时，它崩溃了。然而，尽管假定不必处理第6行中的任何内容，但此循环仍会继续崩溃。

您可以共享示例数据吗？或者电子表格的图像，我不认为

如果（布尔）那么
设置正确这是整个代码段吗？这对我来说很好。（当然没有
如果（布尔）那么
）请提供更多信息。你只是说它崩溃了。你的标题是“单元格类型不匹配”。你得到的是哪一个错误，当i=6时，它是确定的吗？什么线路？
boolean
做什么？您不应该需要括号，因为它只计算布尔值<代码>行数。如果也存在溢出，则计数
可能会导致一些问题。没有足够的信息…您知道当行为6时，只有第一个if被排除吗？无论行数是多少，
单元格（i+1，Selection.Column）.Value）
将在i=5且您试图从数字中减去文本时返回第6行的值。您可能还想排除第5行。您可以共享示例数据吗？或者电子表格的图像，我不认为
如果（布尔）那么
设置正确这是整个代码段吗？这对我来说很好。（当然没有
如果（布尔）那么
）请提供更多信息。你只是说它崩溃了。你的标题是“单元格类型不匹配”。你得到的是哪一个错误，当i=6时，它是确定的吗？什么线路？
boolean
做什么？您不应该需要括号，因为它只计算布尔值<代码>行数。如果也存在溢出，则计数
可能会导致一些问题。没有足够的信息…您知道当行为6时，只有第一个if被排除吗？无论行数是多少，
单元格（i+1，Selection.Column）.Value）
将在i=5且您试图从数字中减去文本时返回第6行的值。您可能还想排除第5行。