행에 마지막 입력값 삭제하는 방법 문의 드림니다.

VBA
작성자
033cola
작성일
2022-07-02 17:36
조회
111
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

질문 요약 : 특정행의 마지막 값을 찾아서 삭제하는 방법.

D열에 데이터를 삭제할수 있는 방법을 알고싶습니다.

삭제는 삭제와 전체삭제가 있고 삭제는 맨 아래부터 하나씩 삭제가 됩니다.

단 D4 까지만 삭제가 되어야 합니다.

전체삭제는 D3 아래의 모든 데이터가 삭제됩니다.

 

삭제 : D열 맨아래부터 하나씩 삭제 (D4 까지만 삭제)

전체삭제 선택하면 d열에 D4 부터 모든데이터가 삭제하는 코드를 찾고 있습니다.

 

전체 5

  • 2022-07-05 09:16

    @033cola 님 더 간단한 식을 원하신다면

    Cells(Rows.Count, "D").End(3)

    대신에  Cells(r, "D").End(3)  로 사용해도 같은 결과를 도출할 수 있을거 같습니다.


    • 2022-07-05 09:21

      @이하늘 님 네 알려주신대로 하니 수식이 짧아지네요. ^^


  • 2022-07-02 21:18
    채택된 답변

    @033cola 님 아래코드를 사용하시면 될거 같습니다.

    Sub 삭제()
    r = Cells(Rows.Count, "D").End(xlUp).Row
    If r > 3 Then Cells(Rows.Count, "D").End(3).ClearContents
    End If
    End Sub

    Sub 전체삭제()
    Range("D4:D100").ClearContents
    End Sub


    • 2022-07-05 09:20

      @이하늘 님 감사합니다. 많은 도움이 되었습니다.


  • 2022-07-02 17:54

    @033cola 님  

    삭제실행으로 d열 아래서부터 한셀식 지우려면

    cells(rows.count,"d").end(3).clearcontents

    d열 4행부터 값이 있는 범위까지 지우려면(빈셀없는 연속범위)

    range(range("d4"),range("d4").end(xldown)).clearcontents

    또는 range("d4:d1000").clearcontents

    clear, clearcontents, delete 비교해보세요


전체 7,312
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 7 | 조회 890
오빠두엑셀 2022.07.31 7 890
공지사항 함수/공식
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 3 | 조회 64
오빠두엑셀 2022.08.04 3 64
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 116 | 조회 5977
오빠두엑셀 2021.10.28 116 5977
41024 VBA
New 무엇을 공부해야 만들 수 있을까요?? 첨부파일
뚝이 | 18:47 | 추천 0 | 조회 1
뚝이 18:47 - 1
41023 함수/공식
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다. 엑셀파일첨부파일
| 17:46 | 추천 1 | 조회 9
17:46 1 9
41017 함수/공식
New 카운트 관련 추가질의 드립니다. 엑셀파일 (1)
Thekey_guy | 16:31 | 추천 0 | 조회 20
Thekey_guy 16:31 - 20
41013 VBA
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
itaci | 15:17 | 추천 -2 | 조회 21
itaci 15:17 -2 21
41010 문서서식
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요 첨부파일 (5)
바람개비 | 14:40 | 추천 0 | 조회 21
바람개비 14:40 - 21
41007 VBA
New 체크박스를 이용한 PDF파일 저장 문제관련 엑셀파일
qkznl**** | 14:17 | 추천 0 | 조회 21
qkznl**** 14:17 - 21
41003 함수/공식
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법 첨부파일 (2)
마운틴 | 13:34 | 추천 0 | 조회 19
마운틴 13:34 - 19
41002 함수/공식
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기 엑셀파일 (2)
SELIA | 13:04 | 추천 0 | 조회 19
SELIA 13:04 - 19
40995 함수/공식
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법 첨부파일 (2)
juyoun**** | 10:49 | 추천 0 | 조회 34
juyoun**** 10:49 - 34
40994 함수/공식
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법 (6) 답변완료
콕콕이 | 09:30 | 추천 1 | 조회 40
콕콕이 09:30 1 40
40993 함수/공식
New 다른시트 데이터 가져오기 엑셀파일 (1)
포에버하윤둥이 | 09:17 | 추천 0 | 조회 41
포에버하윤둥이 09:17 - 41
40987 VBA
New 선택한 셀 근처에 차트 나타내기 엑셀파일첨부파일 (1)
eexcell | 2022.08.08 | 추천 0 | 조회 26
eexcell 2022.08.08 - 26
40982 VBA
New 입력 수량에 따른 버튼 또는 레이블 생성 첨부파일 (1)
늙은베짱이 | 2022.08.08 | 추천 -2 | 조회 30
늙은베짱이 2022.08.08 -2 30
40974 함수/공식
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법 첨부파일 (6) 답변완료
곡식창고 | 2022.08.08 | 추천 0 | 조회 52
곡식창고 2022.08.08 - 52
40971 기능/도구
New 이름 정의 범위 선택시 에러 발생 엑셀파일첨부파일 (2)
라운드티 | 2022.08.08 | 추천 0 | 조회 39
라운드티 2022.08.08 - 39
40966 함수/공식
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법 (8) 답변완료
마운틴 | 2022.08.08 | 추천 0 | 조회 47
마운틴 2022.08.08 - 47
40963 함수/공식
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다. 엑셀파일 (1)
rin**** | 2022.08.08 | 추천 0 | 조회 37
rin**** 2022.08.08 - 37
40961 기능/도구
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ? (1)
최사무엘 | 2022.08.08 | 추천 0 | 조회 38
최사무엘 2022.08.08 - 38
40960 기능/도구
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요? 첨부파일 (2) 답변완료
니가가라 하와이 | 2022.08.08 | 추천 0 | 조회 22
니가가라 하와이 2022.08.08 - 22
40958 차트/그래프
New 그래프 가로 축 레이블 설정 부분 첨부파일 (1)
성호 | 2022.08.08 | 추천 0 | 조회 30
성호 2022.08.08 - 30
40955 함수/공식
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다. 엑셀파일 (3)
낮은자 | 2022.08.08 | 추천 0 | 조회 49
낮은자 2022.08.08 - 49
40953 함수/공식
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다 엑셀파일첨부파일 (2)
행주 | 2022.08.07 | 추천 0 | 조회 36
행주 2022.08.07 - 36
40952 문서서식
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게? 첨부파일 (1)
두리둥 | 2022.08.07 | 추천 0 | 조회 30
두리둥 2022.08.07 - 30
40945 VBA
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ (2)
듀링e | 2022.08.07 | 추천 0 | 조회 60
듀링e 2022.08.07 - 60
40937 파워쿼리/피벗
New 시트별로 열이 다른 경우 시트를 통합하는 방법 첨부파일 (1)
곰도리 | 2022.08.07 | 추천 0 | 조회 37
곰도리 2022.08.07 - 37
40936 VBA
New 달력 유저폼 실행위치관련 질문 엑셀파일첨부파일 (7) 답변완료
033cola | 2022.08.07 | 추천 1 | 조회 50
033cola 2022.08.07 1 50
40921 함수/공식
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다. 첨부파일 (2) 답변완료
지용 | 2022.08.06 | 추천 0 | 조회 50
지용 2022.08.06 - 50
40916 문서서식
New 이동옵션에서 상수와 수식 첨부파일 (1)
황혼고래 | 2022.08.06 | 추천 0 | 조회 52
황혼고래 2022.08.06 - 52
40915 문서서식
New 셀 서식 중 "월", 월 차이 (2)
보라색양털 | 2022.08.06 | 추천 1 | 조회 48
보라색양털 2022.08.06 1 48
40912 함수/공식
New IF 조건문이 잘 되지 않습니다. 첨부파일 (5) 답변완료
비트리 | 2022.08.06 | 추천 0 | 조회 52
비트리 2022.08.06 - 52