Excel 包含子元素的限定符无效

不要评论，我发现了我的问题，因为我是个笨蛋（我会留下这个帖子） 让人们从我的错误中学习）

（作为记录，我刚刚为此问题创建了一个帐户） 因此，我制作了一个脚本，它获取一个单元格值，通过一个表搜索前3个字符，并将其与您输入的内容进行比较。如果该单元格与您的搜索相对应，它将用它搜索的表格的最后三个字符替换另一个单元格的值

所以我的问题是编译器说sub是一个无效的限定符。哪里有三个星号是问题所在

这是密码

Private Sub Search_Click()

Scan

End Sub
***Sub Scan()

    Dim Seat As Range
    Set Seat = Worksheets("Sheet2").Range("B1")
    Dim returnSeat As Range
    Set returnSeat = Worksheets("Sheet2").Range("B2")

    For Each c In Worksheets("Sheet1").Range("B1:V18")
        Dim cShorted As String
        cShorted = Left(c, 3)
        If cShorted.Value = Seat.Value Then
            returnSeat.Value = Right(c, 3)
        End If
    Next c

End Sub

---

此外，它还在“If cShorted.Value=Seat.Value-Then”行中突出显示“cShorted”。我建议删除它。您没有声明

c

变量。它必须是

范围

<代码>尺寸c作为范围'。因此，您必须参考它的。值

。所有与c有关的内容都可以修改如下：
cShorted=Left（c.Value，3）
。但这不是错误问题。出现此错误是因为
cShorted
是
字符串。它没有任何属性/方法。因此，如果cShorted=Seat.Value Then，则必须使用
cShorted.Value`使VBA疯狂。。。除此之外，您确定要实现代码的功能吗？对于每个
c.Value
相关条件，表2中的相同范围将采用
c.Value
@Robigan 06：仅当您知道单个范围必须满足条件时，代码才会生效。在这种情况下，最好退出循环。使用
Exit For
。我建议删除它。您没有声明
c
变量。它必须是
范围
<代码>尺寸c作为范围'。因此，您必须参考它的
。值
。所有与c有关的内容都可以修改如下：
cShorted=Left（c.Value，3）
。但这不是错误问题。出现此错误是因为
cShorted
是
字符串。它没有任何属性/方法。因此，如果cShorted=Seat.Value Then，则必须使用
cShorted.Value`使VBA疯狂。。。除此之外，您确定要实现代码的功能吗？对于每个
c.Value
相关条件，表2中的相同范围将采用
c.Value
@Robigan 06：仅当您知道单个范围必须满足条件时，代码才会生效。在这种情况下，最好退出循环。使用
退出
。