Vba:셀에 특정 값이 포함된 경우 내용을 지우는 방법

다음 기본 구문을 사용하여 Excel 워크시트의 각 셀 내용을 특정 값과 동일하게 지울 수 있습니다.

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

이 특정 매크로는 “Mavs”와 동일한 A2:A11 범위에 있는 각 셀의 내용을 지웁니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: 셀에 특정 값이 포함된 경우 VBA를 사용하여 내용 지우기

다양한 농구 선수에 대한 정보가 포함된 Excel 시트가 있다고 가정해 보겠습니다.

“Mavs”와 동일한 Team 열의 각 셀 내용을 지우고 싶다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

이 매크로가 실행되면 Team 열에 “Mavs” 값이 있는 모든 셀이 지워집니다.

대신 Team 열에 “Mavs” 값이 있는 각 행의 모든 셀을 지우려면 다음 구문을 사용할 수 있습니다.

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

이 매크로를 실행하면 다음과 같은 출력이 표시됩니다.

Team 열에 “Mavs”가 포함된 각 행의 모든 셀이 지워졌습니다.

참고 : 여기에서 VBA의 ClearContents 메서드에 대한 전체 문서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA:마지막으로 사용한 줄을 찾는 방법
VBA:마지막으로 사용한 열을 찾는 방법
VBA: 모든 시트를 표시하는 방법