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 는 카멜님이 원하시는 위치를 정해주신 코드로 대체시키면 됩니다.
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 는 카멜님이 원하시는 위치를 정해주신 코드로 대체시키면 됩니다.
매크로.. 처음 부터 다 코딩으로 해결하려고 생각하시면 너무 어렵습니다.
일단 매크로 기록으로 먼저 기록하고, 결과물을 수정해서 사용하세요.