|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Sheet1은 리스트목록이고 Sheet2는 작업sheet 라할때,
Sheet1의 리스트(약150여개)에 있는 글자들을
Sheet2에서 찾아서 왼쪽으로 삭제하는 매크로를 만들려고 합니다.
=================================================================
Sub 삭제()
Dim fn, aaa
'sheet1에있는 목록리스트 루프
r = 1
While r <= 180
Windows("작업파일.xls").Activate
Sheets("sheet1").Select
'aaa는 sheet1에 있는 리스트를 변수로 지정하여 찾기에 참조
aaa = Range("a" & r)
Sheets("sheet2").Select
Cells.Find(What = aaa, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate
Selection.Delete Shift:=xlToLeft
r = r + 1
Wend
End Sub
=============================================================
왜 안되는지 모르겠어요...
91 런타임 오류가 발견됐습니다.
개체변수 또는 with 문의 변수가 설정 되어있지 않습니다.
라는 에러메세지만 뜹니다...에후~~답답하여라!!! |
|