Vba: 文字列から特殊文字を削除する方法

VBA で次の基本構文を使用して、文字列から特殊文字を削除できます。

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

この特定の例では、セル範囲A2:A8の各文字列内の次の特殊文字を置換し、セルB2:B8に新しい文字列を生成します。

• ！
• @
• #

3 つのネストされたReplaceメソッドを使用して、これらの特殊文字を文字列からそれぞれ削除したことに注意してください。

さらに多くの特殊文字を削除するには、さらにネストされたReplaceメソッドを使用します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用して文字列から特殊文字を削除する

Excel に次の文字列リストがあるとします。

各文字列から次の特殊文字を削除するとします。

• ！
• @
• #

これを行うには、次のマクロを作成できます。

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

このマクロを実行すると、次の出力が表示されます。

列 B には、列 A の各文字列から特殊文字が削除されて表示されます。

注: VBA Replaceメソッドの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA を使用して他の一般的なタスクを実行する方法について説明します。

VBA: 文字列内の文字の出現を数える方法
VBA: 文字列に別の文字列が含まれているかどうかを確認する方法
VBA: 特定のテキストを含むセルを数える方法