比较不同工作表中的两个单元格，将其他单元格设置为确定

Question

Sub test1()

Dim Str As String
Dim Search As String
Dim Status As String
Str = Cells(2, 5).Value
Search = FDSA!Cells(2, 5).Value
Status = FDSA!Cells(2, 10).Value

    If InStr(Search, Str) = True Then
                Status = "ok"
    Else
         End If

End Sub

我将以此为基础建立循环。 我想检查FDSA！Cells（2,5）中是否包含Cells（2,5）中的内容。 如果是真的，那么我想将FDSA！Cells（2,10）标记为确定。 我收到一个需要对象的消息。 看完示例和教程后，我可以得出这点。 如果您有任何问题请告诉我

只有第二次使用VBA。 在此先感谢Alexis M.

Answer 1

您引用工作表的语法不正确。 那可能是引发错误。 您需要调用Worksheets("FDSA")而不使用FDSA! 像你一样打电话。

同样，您必须将单元格值设置为等于“ Status ”才能起作用。 仅更改Status不会将其写回到工作簿中。

InStr还返回匹配的位置。 如果您想知道是否存在匹配项，则需要检查返回值是否>0 。 该代码应该运行，并且希望比您当前的代码更接近正确。

Sub test1()

Dim Str As String
Dim Search As String

Str = Cells(2, 5).Value
Search = Worksheets("FDSA").Cells(2, 5).Value


    If InStr(Search, Str) > 0 Then
        Worksheets("FDSA").Cells(2, 10).Value = "ok"
    End If

End Sub