조건에 맞는 행 제거하기

VBA
작성자
ArkGie
작성일
2021-05-04 14:13
조회
60

우선 항상 도움을 주시는분들 감사합니다.

 

시트1의 A행의 있는 셀을 제거하고싶습니다.

조건은 시트2의 K행의 있는 셀의 값이 포함된 값입니다.

 

Sub 코드삭제()
 
    Dim A, I As Long
    Dim kil As String
 
    AIER = Sheets("sheet1").Range("a60000").End(xlUp).Offset(1).Row
    IER = Sheets("sheet2").Range("k60000").End(xlUp).Offset(1).Row
 
 
    For I = 1 To IER
        For A = AIER To 1 Step -1
            kil = Sheets("Sheet2").Range("k" & I)
 
            If Cells(A, "a") = kil Then
               Cells(A, "a").EntireRow.Delete
            End If
        Next A
    Next I
End Sub

아마 와일드 카드를 써주면되지않을까 했는데 안되서 질문드립니다.

어떻게 수정을 해야할지요?

전체 4

  • 2021-05-04 14:51
    If Cells(A, "a") = kil Then 
       Cells(A, "a").EntireRow.Delete 
       '여기의 셀이 ActiveSheet가 무엇이냐 따라 달라집니다. ' 
    End If 
    
    '[수정] 아래와 같이 변경 해보세요 
    If Worksheet("Sheet1").Cells(A, "a") = kil Then 
       Worksheet("Sheet1").Cells(A, "a").EntireRow.Delete 
    End If
    

     


    • 2021-05-04 20:07

      시트2의 셀값이 포함된 시트1의 셀은 삭제 안되는거 같습니다.

      모르겠네요 정말 ㅠ

       


  • 2021-05-04 21:06
    채택된 답변

    조건문이 아래와 같은 형식으로 구성됩니다.

    IF "신에츠 RTV 고무 실리콘 KE-45 카트리지 310ml 백색 신에츠실리콘 RTV실리콘 실리콘튜브 접착실리콘 실링" = "우하하" THEN
    Cells(A, "a").EntireRow.Delete
    END IF

    코드에는 이상이 없고
    조건문이 true 가 될 수 없기 때문에 삭제가 안되는 것입니다.

    find 함수를 적절히 사용하여야 할 듯 합니다.
    예)

    if (find(sheets("sheet2").range(k3),sheets("sheet1").range(a100))>0 then
    Cells(A, "a").EntireRow.Delete
    end if


전체 2,955
번호 카테고리 제목 작성자 작성일 추천 조회
2943 문서서식
New 사용자 지정 정렬 첨부파일
wbyu**** | 20:49 | 추천 0 | 조회 7
wbyu**** 20:49 0 7
2942 함수/공식
New 동적범위 적용 질문
두부 | 18:33 | 추천 0 | 조회 10
두부 18:33 0 10
2941 함수/공식
New 가로방향으로 수집되는 값을 세로방향으로 나열하는 법 첨부파일 (1)
녹차라면 | 14:29 | 추천 0 | 조회 26
녹차라면 14:29 0 26
2940 대시보드
New 간트차트 상 병합된 셀의 필터링 &진척도 표시 관련 첨부파일
asuka | 08:46 | 추천 0 | 조회 21
asuka 08:46 0 21
2939
New 안녕하세요 ~ VBA 카카오톡 관련문의 입니다 (1)
호기윤 | 02:00 | 추천 0 | 조회 25
호기윤 02:00 0 25
2938 함수/공식
New 교차판매 (cross-selling)분석을 위해 어떻게 가공해야하는지 모르겠습니다 ㅠ
동엽 | 2021.05.13 | 추천 0 | 조회 35
동엽 2021.05.13 0 35
2937 함수/공식
New 엑셀 함수질문있습니다. 첨부파일 (1)
BackGom | 2021.05.13 | 추천 1 | 조회 39
BackGom 2021.05.13 1 39
2936 함수/공식
New 전체직원에서 중복되지 않은 값을 다른곳에 추출 ! 도와주세요 ㅠ 첨부파일 (2) 답변완료
E | 2021.05.13 | 추천 0 | 조회 51
E 2021.05.13 0 51
2935 문서서식
New 데이터 정규화 도와주세요.... 첨부파일
닉뿡뿡 | 2021.05.13 | 추천 1 | 조회 48
닉뿡뿡 2021.05.13 1 48
2934 함수/공식
New 안녕하세요 이 함수식의 해석좀 부탁드려도 될까요 (2) 답변완료
Hynix | 2021.05.13 | 추천 0 | 조회 53
Hynix 2021.05.13 0 53
2933 문서서식
New 셀병합 세로로 병합된 범위 문제 (1)
엑셀고수왕소취 | 2021.05.13 | 추천 0 | 조회 37
엑셀고수왕소취 2021.05.13 0 37
2932 피벗테이블
New 피벗테이블 행 필드 순서변경 질문드립니다. 첨부파일 (1)
월마리아 | 2021.05.12 | 추천 0 | 조회 26
월마리아 2021.05.12 0 26
2931 VBA
New VBA 문제 관련 (VBA를 사용하여 사진 옮기기) 첨부파일 (7) 답변완료
철모대장 | 2021.05.12 | 추천 0 | 조회 57
철모대장 2021.05.12 0 57
2930 VBA
New 이건 VBA로 해결해야 할 것 같습니다. 첨부파일 (3) 답변완료
. | 2021.05.12 | 추천 1 | 조회 76
. 2021.05.12 1 76
2929 VBA
New 행방향 필터 문의드립니다 ( 가로필터) 첨부파일 (2)
김희주 | 2021.05.12 | 추천 0 | 조회 64
김희주 2021.05.12 0 64
2928 문서서식
New 도와주세요! 매크로 말고 서식 설정으로 숫자와 한글 같이 나오게 할 수 있나요? (2)
회계직원 | 2021.05.12 | 추천 0 | 조회 39
회계직원 2021.05.12 0 39
2927 차트/그래프
New 엑셀 간트차트 자동화 양식 (진행상황, 업무흐름 표시) 문의 (2) 답변완료
비엘 | 2021.05.12 | 추천 1 | 조회 68
비엘 2021.05.12 1 68
2926 함수/공식
New 날짜 일수별 사용현황 합계 분석이 가능할까요 (3)
쭈니준이 | 2021.05.12 | 추천 0 | 조회 47
쭈니준이 2021.05.12 0 47
2925 함수/공식
엑셀 수량 집계 함수 질문합니다. (1)
상길 | 2021.05.11 | 추천 1 | 조회 49
상길 2021.05.11 1 49
2924 함수/공식
다량의 데이터에서 특정값을 포함하는 행 추출방법 첨부파일 (1)
고래 | 2021.05.11 | 추천 0 | 조회 64
고래 2021.05.11 0 64
2923 함수/공식
엑셀 A라는 파일에 엑셀 1월, 2월,3월 각 파일을 가지고 A라는 파일에 매달 업데이트 하는 방법 도와주세요! (5)
jyk0077@hanmail.net | 2021.05.11 | 추천 2 | 조회 77
jyk0077@hanmail.net 2021.05.11 2 77
2922 VBA
이게 가능할까요 ? (2)
12394 | 2021.05.11 | 추천 0 | 조회 80
12394 2021.05.11 0 80
2921 VBA
패턴을 찾아 색칠해 주는 방법 문의 첨부파일 (4)
눈사람 | 2021.05.11 | 추천 0 | 조회 51
눈사람 2021.05.11 0 51
2920 파워쿼리/피벗
ximage 함수조정등으로 이미지링크외 기타 웹페이지캡쳐 다운
오재석 Diego | 2021.05.11 | 추천 1 | 조회 58
오재석 Diego 2021.05.11 1 58
2919 함수/공식
엑셀 다중조건을 만족하고 중복값 제거 후 고유값 개수 카운트 공식 문의 첨부파일 (1)
우와토넛 | 2021.05.10 | 추천 0 | 조회 64
우와토넛 2021.05.10 0 64
2918 VBA
자동 셀병합 함수 오류 (1)
꼬구마 | 2021.05.10 | 추천 0 | 조회 38
꼬구마 2021.05.10 0 38
2917 파워쿼리/피벗
엑셀로 카카오톡 대화내용을 읽어들여 올 수 있나요? (2) 답변완료
만법귀일 | 2021.05.10 | 추천 0 | 조회 100
만법귀일 2021.05.10 0 100
2916 함수/공식
추세 출력 공식이 알고 싶습니다. (3) 답변완료
index | 2021.05.10 | 추천 0 | 조회 54
index 2021.05.10 0 54
2915 함수/공식
이미지파일을 엑셀 셀에 불러오는 함수 알려주세요 첨부파일 (1) 답변완료
왕장 | 2021.05.09 | 추천 0 | 조회 66
왕장 2021.05.09 0 66
2914 기능/도구
맥북 엑셀 관련 (1)
naver_5f055a605ee7d | 2021.05.09 | 추천 1 | 조회 38
naver_5f055a605ee7d 2021.05.09 1 38