Question

我希望编写一个宏，根据C列和E列中的条件找到最后一个匹配项，并返回找到匹配的行。

我有一长片数据，我想选择一行，然后在该行上方搜索最近的2个条件匹配。我可以为1列做这个，但我不知道如何添加第二列。

Answer 1

你可以用它。我已经对硬编码的标准进行了编码，但您可以从单元格或用户输入中分配这些标准。

Sub test()


Dim LowerBound As Integer
Dim i As Integer
Dim Criteria1 As Variant
Dim Criteria2 As Variant

Criteria1 = "something"
Criteria2 = "somethingelse"

LowerBound = Selection.Row

If LowerBound > 1 Then
  For i = LowerBound - 1 To 1 Step -1
    If Cells(i, 3).Value = Criteria1 And Cells(i, 5).Value = Criteria2 Then
      MsgBox "i"
      Exit For
    End If
  Next i
End If


End Sub

如何使用VB代码查找多个条件匹配

1 个答案: