For 문과 IF 문 같이 쓰기

VBA
작성자
kimki****
작성일
2021-09-15 14:24
조회
71
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하십니까 For next 문으로 다른 시트의 값을 가져오면서 특정조건(14자리수)를 만족하지 않으면 해당열을 삭제하여 불러오려고 합니다.

 

일단 for문으로 해당 시트의 값을 불러오는 것은 성공했는데 If문을 어떻게 걸어서 이상한 값이 들어있는 열을 삭제해야 하는 지 모르겠습니다.

아래는 코드 남기오니 답변 부탁드리겠습니다.

 

-----------------------------------------------------------------------------------------

Sub 가져오기()
'
' 가져오기 매크로
'
Dim rngX As Range
Dim Last1 As Integer

'가져올 데이터 마지막 행 확인

Last1 = Sheets("명세서_총괄").Cells(Rows.Count, 3).End(xlUp).Row
MsgBox (Last1)

'가져오기
For i = 1 To Last1

Cells(i, 1).Select

Selection.Value = Sheets("명세서_총괄").Cells(i, 3)

Next i

'계좌번호 이외 값은 공백으로 처리

If Len(Sheets("명세서_총괄").Cells(i, 3)) <> 14 Then

Cells(i, 1).Delete

End If

End Sub

-----------------------------------------------------------------------------------------

전체 6

  • 2021-09-15 14:59
    채택된 답변

    For 문 사이에 If문을 넣어주면 됩니다.

    For i = 1 To Last1
    
    Cells(i, 1).Select
    
    Selection.Value = Sheets("명세서_총괄").Cells(i, 3)
    
    
    If Len(Sheets("명세서_총괄").Cells(i, 3)) <> 14 Then
    
    Cells(i, 1).Delete
    
    End If
    
    Next i

    근데 이렇게 입력하면 Delete가 되어서 셀이 왼쪽으로 밀릴텐데.. 오류가 날 것 같기도 하구요

    한번 시도해보세요~~

     


  • 2021-09-15 15:13

    답변 주셔서 정말 감사합니다. End if를 Next i 밖에 자꾸 써서 문제가 생긴듯 합니다. 이제 지운자리의 빈칸을 지워보려고 하는데 구글링으로 검색해 보도록 하겠습니다. 도움주셔서 다시 한 번 감사하다는 말씀 드립니다.


    • 2021-09-15 15:56

      delete 면 맨아래에서부터 위로 코딩해보세요.

      for i=last1 to 1 step -1

      if ~

      cells(i,1).delete shift:=xlup

      end if

      next


      • 2021-09-15 16:01

        아래부터 지우면 달라지는게 있는 것인가요? 왜 아래부터 delete 하는 것이 더 유용한지 설명해주실 수 있으신가요! 부탁드립니다.


        • 2021-09-15 16:47

          clear와 delete

          프로시저 안에서 f8로 한줄씩 실행해보세요.

          clear은 셀은 제자리고,

          delete하면 셀이 지워지지 않나요?

          셀이 지워지면 인접셀이 움직입니다.

           


전체 4,045
번호 카테고리 제목 작성자 작성일 추천 조회
4029 기능/도구
New 자동화 달력 공휴일 등록 시 날짜말고 메모부분 빨간색 변경이 안되서 어렵습니다. (1)
거부기 | 14:30 | 추천 0 | 조회 22
거부기 14:30 0 22
4028 문서서식
New 엑셀 CTRL+G (이동) 질문드립니다. 첨부파일 (2)
월마리아 | 03:01 | 추천 0 | 조회 28
월마리아 03:01 0 28
4027 차트/그래프
New 오빠두 간트 차트에 대한 질문이 있습니다. 첨부파일 (4) 답변완료
치킨카뤠 | 01:22 | 추천 0 | 조회 23
치킨카뤠 01:22 0 23
4026 함수/공식
New 부서 자동 배정 프로그램 완성 요청합니다. 첨부파일
승재빠 | 2021.09.25 | 추천 0 | 조회 42
승재빠 2021.09.25 0 42
4025 함수/공식
New 질문있습니다.! 중복값 표시 및 데이터 숫자 세기. 첨부파일 (1)
Barcelona | 2021.09.25 | 추천 0 | 조회 24
Barcelona 2021.09.25 0 24
4024 기능/도구
New 엑셀 종료 대화창이 이상합니다 ㅜㅜ (3) 답변완료
어제부터VBA | 2021.09.25 | 추천 0 | 조회 27
어제부터VBA 2021.09.25 0 27
4023 함수/공식
New 특정단어만 변경 도와주세요. 첨부파일 (3)
블랑블랑 | 2021.09.25 | 추천 0 | 조회 38
블랑블랑 2021.09.25 0 38
4022 문서서식
New 엑셀 느림 현상 OLE 작업 (1)
원더우먼 | 2021.09.25 | 추천 0 | 조회 32
원더우먼 2021.09.25 0 32
4021 VBA
New 체크박스 첨부파일 (1)
미리내 | 2021.09.24 | 추천 0 | 조회 30
미리내 2021.09.24 0 30
4020 함수/공식
New 조건부 함수 도움 부탁드립니다. 첨부파일 (1)
액셀 공부 | 2021.09.24 | 추천 1 | 조회 19
액셀 공부 2021.09.24 1 19
4019 차트/그래프
New 2개 슬라이서에 대한 차트 연결 문의 (1)
please | 2021.09.24 | 추천 1 | 조회 16
please 2021.09.24 1 16
4018 함수/공식
New 다른시트 값을 조건부로 출력 (3)
KT | 2021.09.24 | 추천 0 | 조회 35
KT 2021.09.24 0 35
4017 함수/공식
New vlookup 여러조건 여러개 출력 관련 질문입니다 첨부파일 (1)
바스크 | 2021.09.24 | 추천 0 | 조회 32
바스크 2021.09.24 0 32
4016 VBA
New FOR 이용하여 파일 가져오기 첨부파일 (1)
ArkGie | 2021.09.24 | 추천 0 | 조회 24
ArkGie 2021.09.24 0 24
4015 VBA
New VBA 변수넣기 (2)
kimki**** | 2021.09.24 | 추천 1 | 조회 26
kimki**** 2021.09.24 1 26
4014 차트/그래프
New 차트관련문제 (4)
콩콩이0782 | 2021.09.24 | 추천 0 | 조회 24
콩콩이0782 2021.09.24 0 24
4013 함수/공식
New max(if) 부등호 사용 질문입니다 첨부파일 (4) 답변완료
Ivan Bae ඞ | 2021.09.24 | 추천 1 | 조회 39
Ivan Bae ඞ 2021.09.24 1 39
4012 VBA
엑셀 VBA 선택영역을 이미지로 추출에서 "일괄로" 추출하는 방법 문의드립니다.
태져리 | 2021.09.23 | 추천 0 | 조회 38
태져리 2021.09.23 0 38
4011 함수/공식
VLookup 다중조건 입력_배열함수_복사 첨부파일 (8)
hiv**** | 2021.09.23 | 추천 0 | 조회 65
hiv**** 2021.09.23 0 65
4010 기능/도구
엑셀2016인데 아이콘 창이 없어요 첨부파일 (2) 답변완료
빠꾸집사 | 2021.09.23 | 추천 1 | 조회 27
빠꾸집사 2021.09.23 1 27
4009 VBA
vba MATCH함수 오류 검색하는 값이 검색범위에 포함되지 않을 때 오류
kimki**** | 2021.09.23 | 추천 0 | 조회 44
kimki**** 2021.09.23 0 44
4008 VBA
중첩 for문의 해결 (next 컨트롤 변수 참조가 잘못되었습니다) (2)
kimki**** | 2021.09.23 | 추천 0 | 조회 34
kimki**** 2021.09.23 0 34
4007 함수/공식
자동입력 관련 문의드립니다. 첨부파일 (2)
성운 | 2021.09.23 | 추천 0 | 조회 34
성운 2021.09.23 0 34
4006 피벗테이블
피벗테이블에서 '값 행 표시' 질문드립니다. 첨부파일
월마리아 | 2021.09.23 | 추천 0 | 조회 32
월마리아 2021.09.23 0 32
4005 VBA
네이버 쇼핑 댓글 가져오기 (1)
아가늑대 | 2021.09.22 | 추천 1 | 조회 47
아가늑대 2021.09.22 1 47
4004 기능/도구
엑셀 비활성화된 링크들 활성방법 (3) 답변완료
N솔 | 2021.09.22 | 추천 0 | 조회 45
N솔 2021.09.22 0 45
4003 함수/공식
(수정 재업로드) 질문 다시 올립니다! (9) 답변완료
치운 | 2021.09.22 | 추천 0 | 조회 41
치운 2021.09.22 0 41
4002 함수/공식
다음과 같이 하려면 어떤 함수를 써야할까요? 아니면 노가다해야하나요? (7)
치운 | 2021.09.22 | 추천 0 | 조회 51
치운 2021.09.22 0 51
4001 VBA
Change이벤트관련 문의사항 첨부파일 (2) 답변완료
H.B | 2021.09.22 | 추천 0 | 조회 48
H.B 2021.09.22 0 48
4000 함수/공식
TEXTJOIN 표시 형식 (1)
제비제비 | 2021.09.22 | 추천 1 | 조회 45
제비제비 2021.09.22 1 45