엑셀 – 특정 텍스트가 포함된 셀 한번에 제거하는 방법

안녕하세요 오늘은 엑셀 꿀팁에 관해 한가지 전달드리려 합니다! 엑셀을 사용하면서 특정 조건에서 제거해야할 때 개수가 적으면 모르겠지만 개수가 몇 백개가 되는 순간 일일이 선택해서 지우는 것은 막이 안되죠!! 그래서 오늘은 특정 텍스트가 포함된 셀을 한번에 제거하는 방법을 알려드리려합니다!

엑셀 한번에 지우기

엑셀 많은 데이터를 처리해야하는데 힘들어하는 회사원

VBA1
1. 보기 및 2. 매크로 보기
VBA2
3. 제목 입력 및 4. + 버튼 클릭

1) VBA 편집기 실행 방법 1

  1. 보기
  2. 매크로 보기
  3. 제목 입력
  4. + 버튼 클릭

2) VBA 편집기 실행 방법 2

  • 단축키 Alt + F11

사진에서 보시는 것 처럼 다자바라고 적힌 셀 중에서 @가 있는 셀만 선택해서 셀을 모두 지우려 합니다!

먼저 VBA를 통해 빈 셀로 만들고 빈셀을 선택해서 빈 셀이 있는 행을 지워보겠습니다.

이번 과정은 단축키로 편집기를 여신 분들을 위한 과정입니다

vba3
  • 삽입 – 모듈을 선택해 주세요

vba4
vba5
@가 있던 셀은 모두 제거되었습니다!

아래의 코드를 복사해서 붙여 넣어주세요

Sub DeleteCellsContainingText()
    Dim ws As Worksheet
    Dim cell As Range
    Dim searchText As String

    ' 제거할 텍스트 입력
    searchText = "제거할 텍스트"

    ' 현재 활성 워크시트 설정
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 필요한 경우 시트 이름 변경

    ' 데이터 범위 내 각 셀 검사
    For Each cell In ws.UsedRange
        If InStr(cell.Value, searchText) > 0 Then
            cell.ClearContents ' 셀 내용만 지우기
            ' cell.EntireRow.Delete ' 행 전체를 삭제하려면 주석 해제
        End If
    Next cell
End Sub

해당 코드에서 시트 이름과 제거할 텍스트를 변경하시면 됩니다!

  • 초록색 화살표를 누르거나 F5를 눌러 매크로를 실행해 주세요!

vba6
vba7
vba8
vba9
vba10
  1. 찾기 및 선택 – 이동옵션
  2. 빈 셀(윈도우), 필드 값 없음(맥) – 확인
  3. 삭제(제거) – 시트 행 삭제

이렇게 한번에 모두 제거할 수 있습니다!!

같이 보면 좋은 글

이 게시물이 유용하셨나요?

평점을 매겨주세요.

평균 평점 0 / 5. 투표수 0

이 게시물에 첫 평점을 남겨주세요!

Leave a Comment

error: 마우스 우클릭을 하실 수 없습니다.