특정 조건 셀 삭제하려고 하는데 형식 오류가 뜹니다 ㅠㅠ

VBA
작성자
월요일싫다
작성일
2024-07-01 13:29
조회
312
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : If InStr(1, currentCell.Value, "해당없음") > 0 Then 에서 형식오류가 납니다 ㅠㅠ

사회초년생 인턴입니다 ㅠㅠㅠ

회사에서 파일을 만들면 일이 편할거 같아서 만들고 있는데요

계속 형식 오류가 뜹니다 ㅠㅠㅠ

Sub 행삭제_개선()

Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim deleteRange As Range
Dim currentCell As Range

Application.ScreenUpdating = False

' 현재 활성화된 워크시트 설정
Set ws = ActiveSheet

' U열의 마지막 행 찾기
lastRow = ws.Cells(ws.Rows.Count, "U").End(xlUp).Row

' U6부터 마지막 행까지 순환하며, "해당없음"가 포함된 행 찾기
For i = 6 To lastRow
Set currentCell = ws.Cells(i, "u")
If InStr(1, currentCell.Value, "해당없음") > 0 Then
If deleteRange Is Nothing Then
Set deleteRange = currentCell
Else
Set deleteRange = Union(deleteRange, currentCell)
End If
End If
Next i

' 찾은 행이 있으면 삭제
If Not deleteRange Is Nothing Then
deleteRange.EntireRow.Delete
End If

Application.ScreenUpdating = True

End Sub

 

위의 빨간색 부분에서 오류가 뜨는거 같은데요 ㅠㅠㅠ

혹시 왜 오류가 나는지 알 수 있을까요?

혹여나 제가 Iferror를 사용해서 없는 값은 해당없음 으로 바꾸고

그걸 삭제하려고 하는데 그래서 오류가 나는걸까요?

고수님들 한번만 도와주십셔 ㅠㅠㅠ

신고
스크랩
공유
전체 6

  • 2024-07-01 13:39

    @월요일싫다 님 Instr함수에서는 웬만하면 에러가 나지 않습니다.
    만약 Cell 값이 Error일 경우 비교를 할 수 없으므로 형식이 일치하지 않는다고 오류가 나는 듯 합니다.
    아래 처럼 해당 셀값이 Error인지 확인하고 진행하세요.

    Set currentCell = ws.Cells(i, "u")
    If <strong><span style="color: #ff0000;">not IsError(currentCell)</span></strong> Then
     ...
    End IF

     


    • 2024-07-01 13:50

      @원조백수 님 친절한 답변 감사합니다! 혹시 이 수식을 어떻게 적용하면 될까요? 오류 난 수식을 삭제 후 알려주신 수식을 넣어봤는데요

      모든 행이 삭제됩니다 ㅠㅠㅠ


      • 2024-07-01 13:59

        @월요일싫다 님 수정한 코드는 어떻게 되나요?


        • 2024-07-01 14:02

          @원조백수 님 Sub 행삭제_개선()

          Dim ws As Worksheet
          Dim lastRow As Long
          Dim i As Long
          Dim deleteRange As Range
          Dim currentCell As Range

          Application.ScreenUpdating = False

          ' 현재 활성화된 워크시트 설정
          Set ws = ActiveSheet

          ' A열의 마지막 행 찾기
          lastRow = ws.Cells(ws.Rows.Count, "U").End(xlUp).Row

          ' A3부터 마지막 행까지 순환하며, "계"가 포함된 행 찾기
          For i = 6 To lastRow
          Set currentCell = ws.Cells(i, "u")
          If not IsError(currentCell) Then
          If deleteRange Is Nothing Then
          Set deleteRange = currentCell
          Else
          Set deleteRange = Union(deleteRange, currentCell)
          End If
          End If
          Next i

          ' 찾은 행이 있으면 삭제
          If Not deleteRange Is Nothing Then
          deleteRange.EntireRow.Delete
          End If

          Application.ScreenUpdating = True

          End Sub

          입니다!


          • 2024-07-01 14:04

            @월요일싫다 님 삭제가 아니라, 그 오류난 행 위에 IF문을 삽입해야,,,

            그 행에 나오는 오류를 방지하기 위한 조건을 추가한 것이니까요


  • 2024-07-02 13:15

    @월요일싫다 님 와 진짜 이런걸 어떻게 아는지 ㅠㅠ


전체 16,931
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 844312
오빠두엑셀 2022.02.03 554 844312
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31512
오빠두엑셀 2021.10.28 304 31512
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 32
배고픈짐승 2024.10.30 - 32
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 39
iwnqn 2024.10.30 - 39
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2)
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 33
퉁퉁이 2024.10.30 - 33
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (6) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 52
저도해볼게요 2024.10.30 - 52
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 42
스톤스톤 2024.10.30 - 42
74585 VBA
New UserForm 크기질문 첨부파일 (4) 답변완료
땡이 | 2024.10.30 | 추천 0 | 조회 55
땡이 2024.10.30 - 55
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (4)
qlcc**** | 2024.10.30 | 추천 0 | 조회 56
qlcc**** 2024.10.30 - 56
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 56
김은상 2024.10.30 - 56
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 41
2024.10.30 - 41
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 47
구리구리이 2024.10.30 - 47
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3)
서기 | 2024.10.30 | 추천 0 | 조회 42
서기 2024.10.30 - 42
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 46
문과적남자 2024.10.30 - 46
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 2024.10.30 | 추천 0 | 조회 59
라핼 2024.10.30 - 59
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 65
정재욱 2024.10.30 - 65
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 67
침착해 2024.10.30 - 67
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 54
ek02 2024.10.30 - 54
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 91
야만용사 2024.10.29 - 91
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 79
rarara 2024.10.29 - 79
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (10)
| 2024.10.29 | 추천 0 | 조회 113
2024.10.29 - 113
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 88
gys**** 2024.10.29 - 88
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 83
Moto 2024.10.29 - 83
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 74
ViVaViva 2024.10.29 - 74
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 87
TMOH 2024.10.29 - 87
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 92
말하지마00 2024.10.29 - 92
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 75
깐부 2024.10.29 - 75
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 77
Moto 2024.10.29 - 77
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 59
angelriun 2024.10.29 - 59
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 85
우파루파 2024.10.29 - 85
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 74
피망이 2024.10.29 - 74
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (8)
Ballad | 2024.10.29 | 추천 0 | 조회 102
Ballad 2024.10.29 - 102