엑셀 vba 포함 문자 바꾸기/지우기

셀의 값중 일부를 바꾸거나 지우려면

Dim 셀 As Range
셀.Replace "대상문자", "바뀔문자" '바꾸기
셀.Replace "대상문자", "" '지우기

 

string 문자열의 일부를 바꾸거나 지우려면

Dim 문자열 As String
문자열 = Replace(문자열, "대상문자", "바뀔문자") '바꾸기
문자열 = Replace(문자열, "대상문자", "") '지우기

 

선택 범위 내에 ★만 지우기

Sub vba포함문자지우기()

Call 별_만_지우기(Selection)

End Sub




Function 별_만_지우기(적용범위 As Range)

Dim 셀 As Range

For Each 셀 In 적용범위
    If InStr(셀.Value, "★") > 0 Then
        셀.Replace "★", ""
    End If
Next

End Function

선택 범위 내에 ★만 지우기

 

선택 범위 내에 ★이 들어간 모든 셀 지우기

Sub vba포함문자지우기()

Call 별이들어간_모든셀_지우기(Selection)

End Sub




Function 별이들어간_모든셀_지우기(적용범위 As Range)

Dim 셀 As Range

For Each 셀 In 적용범위
    If InStr(셀.Value, "★") > 0 Then
        셀.Clear
    End If
Next

End Function

선택 범위 내에 ★이 들어간 모든 셀 지우기

 

선택 범위 내에 ★이 들어간 모든 행 지우기

Sub vba포함문자지우기()

Call 별이들어간모든_행_지우기(Selection)

End Sub




Function 별이들어간모든_행_지우기(적용범위 As Range)

Dim 셀 As Range
Dim 지울셀 As Range
Set 지울셀 = Nothing

For Each 셀 In 적용범위
    If InStr(셀.Value, "★") > 0 Then
        If 지울셀 Is Nothing Then
            Set 지울셀 = 셀
        Else
            Set 지울셀 = Union(지울셀, 셀)
        End If
    End If
Next

If Not 지울셀 Is Nothing Then
    지울셀.EntireRow.Delete
End If

End Function

선택 범위 내에 ★이 들어간 모든 행 지우기