在另一个 Sheet 的行中查找值

Question

我正在尝试使用 VBA 创建一个开放式测试。我在一秒钟内放置了各种排列的答案 sheet 并使用了这样的东西：

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

在另一个 Sheet 的行中查找值

Looking up a value in Row of another Sheet

arrays

vba

matching