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

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

1 个答案: