[find, findext]

[find, findext]

dim c as range

with activesheet.usedrange

Set c = .Find(Cells(1, 5).Value, Lookat:=xlWhole) '부분검색은 Lookat:xlPart

If Not c Is Nothing Then 'c라는 값이 검색된다면 (c가 데이터베이스에 존재한다면)

StrFirstaddr = c.Address '첫 주소 설정 (무한루프 방지용)

StrAddr = c.Address '주소값 설정

Do

Range(StrAddr).Resize(, 3).Copy Cells(Rows.Count, 6).End(3)(2) '값이 존재하는 셀 바로 아래에 복사하기

Set c = .FindNext(c) '다음 c 값 찾기

StrAddr = c.Address '셀 주소 설정

Loop While Not c Is Nothing And StrAddr <> StrFirstaddr '첫 주소와 겹치지 않을때까지 루프

End If