VBA 엑셀

Question

1번 시트에 B열에 CFFQ0110U 이런 것들이 있고, 2번 시트의 C열에 CFFQ0110R 이런 것들이 있는 상황에서1번 시트 B열 8자와 2번 시트 C열 8자를 비교하여, 2번 시트 D열에 있는 담당자 '아무개'를 찾아, 1번 시트 D열에 넣고 싶습니다.각 열에 해당하는 행 위치가 다르고, 각 시트의 행 개수가 같을 때,함수 알고리즘을 어떻게 짜야할까요?

동쪽나무 · Accepted Answer

연결 문자열에서 8자리만 짤라서 VLOOKUP 하면 될 듯 합니다.--------------------------------------------------------------- 1.엑셀 함수를 사용한다면 시트1 D 열 &#34;&#61;VLOOKUP(LEFT(B1,8),Sheet2!B:D,3,TRUE)&#34; 시트2 B 열 &#34;&#61; LEFT(C1,8)&#34; 2.매크로를 사용한다면 Dim rgList As Range Set rgList &#61; Worksheets(&#34;Sheet2&#34;).Range(&#34;c:d&#34;) i &#61; 1Do While Len(rgList(i, 1)) > 0 rgList(i, 1) &#61; Left(rgList(i, 1), 8) i &#61; i &#43; 1Loop i &#61; 1Do While Len(Sheets(&#34;sheet1&#34;).Range(&#34;B&#34; & i).Value) > 0 Sheets(&#34;sheet1&#34;).Range(&#34;D&#34; & i).Value &#61; Application.WorksheetFunction.VLookup(Left(Sheets(&#34;sheet1&#34;).Range(&#34;B&#34; & i).Value, 8), rgList, 2, False) i &#61; i &#43; 1Loop

파랭이 · Answer

함수로 이용하려면 일단 LEFT함수등으로 해당값을 8자리만을 따로 컬럼하나 추가한뒤,그 값으로 MATCH함수로 ROW위치를 그리고 INDEX함수로 특정 위치의 특정 컬럼 값을 가져올 수 있습니다.둘 함수롤 동시에 사용하시면 됩니다.이런건 구글이나 엑사모 카페를 이용하시는 것이 훨 정확하고, 빠르실텐데요..

VBA 엑셀

2개의 답변

Q&A 목록