암시적 교차 연산자 일괄 삭제

Sub 교체1()

    Dim ws As Worksheet
    Dim rng As Range
    Dim findText As String
    Dim replaceText As String

    ' 바꿀 문자열은 "@"입니다.
    findText = "@"
    ' 바꾸려는 문자열은 빈칸입니다.
    replaceText = ""

    ' 활성화된 시트를 가져옵니다.
    Set ws = ActiveSheet

    ' 범위를 A1:SF500으로 한정합니다.
    Set rng = ws.Range("A1:SF500")
    
    ' 범위 내에서 찾을 문자열이 포함된 수식을 바꿀 문자열로 대체합니다.
    rng.Replace What:=findText, Replacement:=replaceText, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

End Sub

Sub 교체2()

    Dim ws As Worksheet
    Dim rng As Range
    Dim findText As String
    Dim replaceText As String

    ' 바꿀 문자열은 "[@"입니다.
    findText = "[@"
    ' 바꾸려는 문자열은 "[AT표시"입니다.
    replaceText = "[AT표시"

    ' 활성화된 시트를 가져옵니다.
    Set ws = ActiveSheet

    ' 범위를 A1:SF500으로 한정합니다.
    Set rng = ws.Range("A1:SF500")
    
    ' 범위 내에서 찾을 문자열이 포함된 수식을 바꿀 문자열로 대체합니다.
    rng.Replace What:=findText, Replacement:=replaceText, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

End Sub