높은값 찾기는 적당히 부등호 방향을 조정하면 됨.
Sub vlookup_down()
'가장 가까이 낮은거 찾기
x1 = Range("a2").Column
x2 = Range("g2").Column
y1 = Range("a2").Row
y2 = Range("g2").Row
Do While (Cells(y1, x1) And Cells(y2, x2))
If Cells(y1, x1) > Cells(y2, x2) Then y2 = y2 + 1
If Cells(y1, x1) < Cells(y2, x2) Then y1 = y1 + 1
If Cells(y1, x1) = Cells(y2, x2) Then
If Cells(y1, x1 + 1) < Cells(y2, x2 + 1) Then y1 = y1 + 1
If Cells(y1, x1 + 1) > Cells(y2, x2 + 1) Then
Cells(y1, x1 + 2) = Cells(y2, x2 + 1)
If Cells(y1, x1) = Cells(y2 + 1, x2) And Cells(y1, x1 + 1) >= Cells(y2 + 1, x2 + 1) And Cells(y1, x1 + 2) =< Cells(y2 + 1, x2 + 1) Then
y2 = y2 + 1
Else
y1 = y1 + 1
End If
End If
End If
Loop
End Sub
'공부' 카테고리의 다른 글
엑셀(?) 중복내용 제거 (0) | 2019.11.20 |
---|---|
Vlookup 빠르게 하기 (0) | 2019.11.20 |
mySQL 문자열 분해 (0) | 2015.05.18 |
아웃룩 2013 ost 파일 위치 변경 (0) | 2015.03.04 |
스팸의 원흉 – 활발히 활동하는 10대 봇넷 (0) | 2011.12.14 |