이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:1]](http://www.abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:112point (8%), 레벨:1/30"){kind=icon}
카멜<sheet1>
번호 일자 품명 사무소 1 2008.01.01 X1 서울 2 3
<sheet2>
| 번호 | 내용 | ||
| 1 | 모터수리 | ||
| 2 | |||
| 3 |
이런 두가지 sheet 내용을 통합하려고 하는데요
Sheet2의 "번호"가 sheet1 "번호"와 일치하는 내용을 가져와서 아래와같이 만들어지는 매크로를 만들려고 해요.
| 번호 | 일자 | 품명 | 사무소 | 내용 |
| 1 | 2008.01.01 | x1 | 서울 | 모터수리 |
매크로를 첨 접하는 생초보라 ... 순서대로 알려주시면 정말 감사하겠습니다.
부탁드립니다. 매번 이런일이 많아서 자료는 방대하고 ... 책봐도 이런건 안나오고 -.-;
그리고 2번째 질문은
매크로를 이용해서 어휘를 검색하면 그 어휘가 들어가있는 열만 추출되게 하는방법 입니다.~
바쁘신가운데 글 확인해 주셔서 감사드립니다.
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142083point, 레벨:30/30"){kind=icon}
아별![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:2032point (73%), 레벨:4/30"){kind=icon}
현대자동차
1. vlookup() 함수 사용하시면 될 것 같습니다.
굳이 매크로로 작성하시려면, 매크로 기록으로 vlookup으로 찾는 과정을 기록하고,
생성된 코드를 수정해서 사용하시면 됩니다.
2. 음.. 이건 매크로 기록을 하시면 코드가 나옵니다.
그런 다음 해당 코드를 수정해서 사용하시는게 편할 것 같습니다.
Ctrl+F눌러서 "치즈"를 검색한 다음, Ctrl+Space바 를 눌러 선택셀이 있는 열 전체를 선택하고 복사한 다음, L열에 붙여넣는 작업을 매크로 기록으로 기록한 결과입니다.
Sub find_userWord()
Cells.Find(What:="치즈", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Columns("B:B").Select
Selection.Copy
Columns("L:L").Select
ActiveSheet.Paste
End Sub
"치즈"는 input박스로 받은 변수로 대체하면 될 것이고,
Columns("B:B").Select 는 Selection.EntireColumn.Select 로 대체하시고,
Columns("L:L").Select 는 카멜님이 원하시는 위치를 정해주신 코드로 대체시키면 됩니다.
매크로.. 처음 부터 다 코딩으로 해결하려고 생각하시면 너무 어렵습니다.
일단 매크로 기록으로 먼저 기록하고, 결과물을 수정해서 사용하세요.