VBコードを使用して複数の条件を一致させる方法

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