【エクセルVBA】選択したセル内の文字を、削除、置換したい。

こんな感じでどうでしょう。

Sub edit_data()
    Set Map = CreateObject("Scripting.Dictionary")
    Set rep_sheet = Worksheets("置換")
    last_row = rep_sheet.Cells(Rows.Count, 1).End(xlUp).Row
    For r = 1 To last_row
        Map.Add rep_sheet.Cells(r, 1), rep_sheet.Cells(r, 2)
    Next

    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "\[[^\]]*\]"
    re.Global = True
    For Each cell In Selection
        s = cell.Value
        s = re.replace(s, "")
        For Each Key In Map
            s = replace(s, Key, Map.Item(Key))
        Next
        If cell.Value <> s Then
            cell.Value = s
        End If
    Next
End Sub

auc シートを選択した状態で、edit_data サブルーチンを実行してください。

• "置換" シートの A列に、[ ] で括られたデータがあると、期待した通りに置換できません
• "置換" シートの A列で、データの重複があるとエラーになります
• "置換" シートの行数が多いと、遅いかも