[엑셀] 추출해서 표시하는 매크로가 궁금합니다

B2 값을 찾아 H에 뿌려주는 VBA
Lookup Table 의 범위가 크면 정확히 제어를 해야하지만 몇개 안되니 구역으로 정의
정확한 제어는 이렇게..
For Each cel In Range("E2", "E" & Cells(Rows.Count, 5).End(xlUp).Row ' Lookup Table

Sub Lookup()
Range("H2", "I" & Rows.Count).Clear ' 결과값 비우기
FindString = [B2] ' 찾을 문자
For Each cel In Range("E2").CurrentRegion ' Lookup Table
    If InStr(cel.Value, FindString) Then ' 찾을 문자를 포함하면
        Cells(Rows.Count, 8).End(xlUp).Offset(1, 0) = cel.Value ' 현재 값을 H의 맨 마지막에 복사
        Cells(Rows.Count, 9).End(xlUp).Offset(1, 0) = cel.Offset(0, 1).Value ' 수량 복사
    End If
Next
End Sub

감사합니다!! 그런데 질문이 있습니다.

정확한  제어를 위한 구문
For Each cel In Range("E2", "E" & Cells(Rows.Count, 5).End(xlUp).Row ' Lookup Table

이걸 For Each cel In Range("E2").CurrentRegion ' Lookup Table  랑 치환 했더니

컴파일 오류 필요한요소:목록 구분선 또는 )    <-- 이렇게 나오는데 이건 왜 그런걸까요?

그리고 지금 현재 배추(담양) 수량만 나오는데 이렇게 2줄만추출되어 나오는데 4줄이 추출되서 나오게 할순 없을까요? 실제 조건은 수량 말고 2가지 옵션이 더 있거든요

마지막 문자가 빠졌네요.
For Each cel In Range("E2", "E" & Cells(Rows.Count, 5).End(xlUp).Row)

2줄 추출?  4줄 추출? 이라 하심은///

위 코드로 응용이 어려우면 비슷한 문서, 또는 지금 작업 중인 문서를 댓글에 첨부해 보세요.

Cells(Rows.Count, 8) 은 H 를 말하고
Cells(Rows.Count, 9) 는 I 를 말합니다.

셀위치.Offset(1, 0) 은 셀위치에서 한칸 아래
셀위치.Offset(0, 1) 은 셀위치에서 한칸 오른쪽입니다.

해결했습니다.!!!

Cells(Rows.Count, 12).End(xlUp).Offset(0, 1) = cel.Offset(0, 2).Value
이렇게 한줄 넣어주니 옆에 줄까지 같이 표시되네요!
겨우 응용했습니다.!
--------------------

죄송한데 하나만더 여쭈어봐도될까요?ㅠ

FindString = [B2] ' 찾을 문자    이게 B2에 있는 글자를 찾는거라고 한다면

제가 선택한 셀에 있는문자를 찾는 건 어떻게 하면될까요?

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ이것도 해결했습니다!

B2 에 Selection 을 넣어주면되네요!!!

문서가 없으니 모르겠지만 이렇게 해야 하는거 아닌가요?
Cells(Rows.Count, 12).End(xlUp).Offset(0, 2) = cel.Offset(0, 2).Value

좀 더 응용해 보죠
https://goo.gl/MpWpGH

답은 많이 있지만 상황에 따라 필요한 대로 사용합니다.
FindString = Selection.Value
FindString = ActiveCell.Value