열의 동일한 값의 마지막 행 가져 오기

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