나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 신현주 (sin4836)

추천:  2
파일:     조회:  2327
제목:   매크로로 행 삭제시...
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002): 2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): winNT
3. CPU (486,PentiumI/II/III/IV...):PentiumII
4. RAM (32,64,128,256,512MB,1G...): 512

* 아래줄에 질문을 작성하세요 >>

매크로로 행을 삭제했는데, 이상하게 한번에 행이 삭제되는 것이 아니라, 여러번 매크로를 실행시켜야 완전히 행이 삭제됩니다.
그러니까, 한번 실행하면.. 전체데이타에서 조건에 해당되는 데이타가 반 정도 삭제되는 것 같고, 두번실행시키면 또 반.. 세번.. 네번..
제가 잘못했는지.. 아님.. 이유가 있는지..
고수님들의 답변을 부탁드립니다

매크로 소스는
Private Sub Worksheet_Activate()
    For i = 1 To 2718
        If (Cells(i, 2) = "00000000" Or Cells(i, 2) = "") And Cells(i, 3) = "" Then
           Rows(i).Delete
        End If
    Next
End Sub 		　
[불량 게시물 신고]  
ist공원한 번 실행하고 나면, 제거된 다음의 행부터는 모든 행의 numbering은 하나씩 줄어듭니다.
즉, 10행이 9행이 되고, 그런 식이죠...
감이 오시는지요?
건투를...		08-05 (18:02)
ⓧ삭제 ■신고
정해원코드를 아래처럼 수정해 보세요.

  Rows(i).Delete Shift:=xlUp
08-05 (18:35)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-08-05(17:57)
최종수정일 : 2003-08-05(17:57)