"0"값만 지우기

VBA
작성자
RED HERO
작성일
2022-11-18 14:33
조회
71
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

 

제목대로 전체 범위에서 만약 셀값이 "0"이면

값만 지우려고 합니다.

그런데 중간에 0값이 아닌 값이 있어도 무시하고 0값은 다지우려고 하는데

Clearcontents활용해서 지우고 싶은데 너무 어렵네요 ㅜㅜ

관련해서 매크로 하단처럼 작성은 해봤는데 고수님들 도움 부탁드립니다!

 

 

 

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim co As Long, i As Long
Dim join As String
Dim buNum As String
Dim deletecell As Integer
Dim Lastcolum As Long

With ActiveSheet.UsedRange
Lastcolum = .Column + .Columns.Count + 1

End With

Cells(5, "a").Select

If join = "0" Then
Selection.ClearContents

End If

End Sub

스크랩
공유
회원등급 : 3레벨
포인트 : 109 EP
총질문 : 7 개 (마감율 : 71%)
채택답변 : 0 개
전체 6

  • 2022-11-18 15:05
    채택된 답변

    @RED HERO

    Sub 매크로1()
    
        Range("A:B").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    End Sub
    

     


    • 2022-11-21 09:46

      @마법의손 님 다른 PC에서 사용하니 FormulaVersion:=xlReplaceFormula2 해당인수를 찾을수 없다고 하는데

      버전 문제일까요??


      • 2022-11-21 10:12

        @RED HERO

        Sub 매크로1()
        
            Range("A:B").Replace What:="0", Replacement:="", LookAt:=xlWhole
        End Sub
        
        이렇게 해보세요

    • 2022-11-18 17:26

      @마법의손 님 알수록 너무 신기하네요!!
      도움 너무 감사합니다!


  • 2022-11-18 16:42

    @RED HERO

    Sub ClearZero()
        Dim r As Range
        
        For Each r In ActiveSheet.UsedRange
            If r.Value = 0 Then
                r.ClearContents
            End If
        Next r
     
    End Sub

     


    • 2022-11-18 17:27

      @김재규 님 답글 주셔서 감사합니다


전체 8,504
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7794
오빠두엑셀 2022.11.07 23 7794
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8505
오빠두엑셀 2021.10.28 135 8505
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일
야근쟁이 | 16:17 | 추천 0 | 조회 5
야근쟁이 16:17 - 5
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 14:11 | 추천 0 | 조회 21
2039290jf1 14:11 - 21
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의
원더우먼 | 12:53 | 추천 0 | 조회 23
원더우먼 12:53 - 23
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일
굿걸♡ | 11:57 | 추천 0 | 조회 18
굿걸♡ 11:57 - 18
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 11:50 | 추천 0 | 조회 29
지도현 11:50 - 29
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 16
나야 11:41 - 16
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기
고바마 | 11:02 | 추천 0 | 조회 25
고바마 11:02 - 25
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 10:26 | 추천 0 | 조회 35
코모 10:26 - 35
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 26
ak스타 10:22 - 26
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (1)
선크 | 10:18 | 추천 0 | 조회 25
선크 10:18 - 25
44916 함수/공식
New 엑셀 실시간으로 퍼센트가 변하는 시간계산기
KangU | 2022.11.27 | 추천 0 | 조회 38
KangU 2022.11.27 - 38
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 58
007 2022.11.27 - 58
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 28
엄기용 2022.11.27 - 28
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (3)
candle0723 | 2022.11.27 | 추천 0 | 조회 35
candle0723 2022.11.27 - 35
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 27
거꾸로문 2022.11.26 - 27
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 36
Jes 2022.11.26 - 36
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 60
007 2022.11.26 - 60
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 50
함수시르미 2022.11.25 - 50
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 33
H.B 2022.11.25 - 33
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (2)
네버 | 2022.11.25 | 추천 0 | 조회 50
네버 2022.11.25 - 50
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 26
엑셀왕이될거야22 2022.11.25 - 26
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (2)
야근쟁이 | 2022.11.25 | 추천 0 | 조회 44
야근쟁이 2022.11.25 - 44
44877 함수/공식
New 조건1,조건2를 만족할때 결과값을 가지고 오는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 51
보연아빠 2022.11.25 - 51
44876 함수/공식
New 같은 텍스트가 있을때 순번을 매기는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 45
보연아빠 2022.11.25 - 45
44875 VBA
New db 배열안에 날자 데이터가 포함되어 있는데 바로 전에 가장 가까운 날자를 선택할수 있을까요? 첨부파일
후훗 | 2022.11.25 | 추천 0 | 조회 29
후훗 2022.11.25 - 29
44873 함수/공식
New 바코드 찍었을때 번호 하나마다 값 불러오기 엑셀파일첨부파일
김영준 | 2022.11.25 | 추천 0 | 조회 34
김영준 2022.11.25 - 34
44871 함수/공식
New 병상수 변경시 엑셀 통계..너무 어려워요.. 엑셀파일첨부파일 (2)
tada**** | 2022.11.25 | 추천 0 | 조회 32
tada**** 2022.11.25 - 32
44870 차트/그래프
New 그래프 그리기 엑셀파일첨부파일
뉴비 신입사원 | 2022.11.25 | 추천 0 | 조회 42
뉴비 신입사원 2022.11.25 - 42