列内の同じ値の最後の行を取得

Question

日付が5〜10-2016、行が3〜23の列がある場合は、同じ値の最後の行番号を取得するのが最善の方法です5-10-2016）。日付は常に変更され、行数も変更されます。ありがとう！ ジム

Answer 1

あなたは日付がソートされている最後の行

Sub FindLastRow() 

Dim dt as Date, i as Long, wk As worksheet 

Set wk = sheet1 

dt = wk.Range("B1").value2 

For i= wk.Range("B" & Rows.Count).End(xlUp).Row to 2 Step -1 
     if wk.Range("B" & i).Value2 = dt then 
     msgbox "Last Row with Date :" & dt & " is " & i 
     Exit Sub 
     End if 
Next i 

Msgbox "Date Not Found" 

End Sub