文字列中の指定文字列を全て削除 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



Excel VBAで文字列の中から指定した一部の文字列を全て削除します。

Excelシート画面

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

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

「エクセルのVBAを使ったエクセルの小技」から「エクセルの」を取り除く

文字操作フォーム

スポンサーリンク



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 Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved