在另一张工作表的行中查找值

Question

我正在尝试使用VBA 创建一个开放式测试。我在第二张纸上放置了各种不同的答案排列，并使用了如下内容：

Sub Q1()
If (Sheet1.Cells(4, 2) = Sheet2.Cells(4, 3)) Or (Sheet1.Cells(4, 2) = Sheet2.Cells(4, 4)) Or (Sheet1.Cells(4, 2) = Sheet2.Cells(4, 5)) Then

Sheet1.Cells(4, 4) = 1

Else

Sheet1.Cells(4, 4) = 0

End If

End Sub

效果很好。我有一些答案，其中包含 120 种不同的正确排列，我将它们放入一行（每个排列在该行中占据自己的单元格）

我的目标是将Sheet1 单元格的输入与行进行比较。如果有匹配，输出将与上面相同，没有匹配也一样。如何将我的行变成一个数组，然后搜索 sheet1 单元格的值？

谢谢！

Answer 1

这样的事情会起作用：根据您的要求更改值。

Sub Q1()

Dim i As Integer

For i = 1 To 120 ' Loop running from 1st column to 120th Column of row 4. Change if values are n other row or columns

    If Sheet1.Cells(4, 2) = Sheet2.Cells(4, i) Then

        Sheet1.Cells(4, 4) = 1
        Exit For
    Else

        Sheet1.Cells(4, 4) = 0

    End If

Next

End Sub