ExcelVBA セル内のデータから特定の文字を削除する3つの方法

ExcelVBA セル内のデータから特定の文字を削除する3つの方法。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 特定の文字を削除する｜シーン

Excel VBA 特定の文字を削除する｜使い方

Excel VBA 特定の文字を削除する｜サンプルコード

Replace関数を使う方法

Option Explicit

Sub DeleteText_Cells()
    With Sheets("Sheet1").Cells
        .Replace What:="(株)", Replacement:="", LookAt:=xlPart
    End With
End Sub

Forループで特定の範囲だけ文字を削除

Option Explicit

Sub DeleteText_Loop()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("A1:A100") ' A1:A100 の範囲のみ対象

    For Each cell In rng
        If InStr(cell.Value, "(株)") > 0 Then ' "(株)" が含まれている場合
            cell.Value = Replace(cell.Value, "(株)", "") ' 削除
        End If
    Next cell
End Sub

正規表現（RegExp）を使う方法

Option Explicit

Sub DeleteText_RegExp()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object

    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("A1:A100") ' A1:A100 の範囲のみ対象
    Set regEx = CreateObject("VBScript.RegExp")

    regEx.Pattern = "[^0-9]" ' 数字以外を削除
    regEx.Global = True ' すべてのマッチを削除
    regEx.IgnoreCase = True ' 大文字小文字を区別しない

    For Each cell In rng
        If regEx.Test(cell.Value) Then
            cell.Value = regEx.Replace(cell.Value, "") ' 数字以外を削除
        End If
    Next cell

    Set regEx = Nothing
End Sub

Excel VBA 特定の文字を削除する｜まとめ