Excel VBA：文字列中の指定文字列を全て削除する

文字列から指定した文字列をInstr関数で検索し削除するVBA

Excelシート画面

ボタンをクリックすると下記を実行します。

「100-4545」郵便番号から「-」を取り除く。

結果A7セルの「1004545」になっています。

「エクセルのVBAを使ったエクセルの小技」から「エクセルの」を取り除きます。

結果A9セルの「VBAを使った小技」になっています。

ExDeleteStrプロシージャの解説

引数

sSrc：元の文字列です。

sDel：削除する文字列

sc変数に元の文字列をセットします。
nLen変数に、Len関数で削除する文字列の長さをセットします。
n変数に、Instr関数で最初に見つかった位置をセットします。
n変数が0より大きい間、Doループを実行します。
s1変数に、Left関数で見つかった位置までの文字列をセットします。
sc変数に、見つかった文字列の残りの文字列をセットします。
n変数に、Instr関数で最初に見つかった位置をセットします。
見つからなくなるまで、これを繰り返します。

Excel VBA実行コード

Private Function ExDeleteStr(sSrc As String, sDel As String) As String
    Dim s1 As String
    Dim sc As String
    Dim n As Integer
    Dim nLen As Integer

    sc = sSrc
    s1 = ""

    nLen = Len(sDel)
    n = InStr(sc, sDel)
    Do While n > 0
        If n > 1 Then
            s1 = s1 & Left(sc, n - 1)
        End If
        sc = Mid(sc, n + nLen)
        n = InStr(sc, sDel)
    Loop

    ExDeleteStr = s1 & sc
End Function

Private Sub CommandButton1_Click()
    Dim s1 As String

    s1 = "100-4545"
    Range("A6") = s1
    Range("A7") = ExDeleteStr(s1, "-")

    s1 = "エクセルのVBAを使ったエクセルの小技"
    Range("A8") = s1
    Range("A9") = ExDeleteStr(s1, "エクセルの")

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel VBA：文字列中の指定文字列を全て削除する｜Instr関数

文字列から指定した文字列をInstr関数で検索し削除するVBAです。

文字列から指定した文字列をInstr関数で検索し削除するVBA