文字列から文字を削除するVBA

Question

文字と数字を含む文字列sStrがあります。文字列から文字を削除しようとしています。

例：sStr = "P441"または時にはsStr = "BK471"。

私はSSTRは時々、どのように私はVBAの文字を削除するには2つの文字（「BK471」）を含むことができ、文字列ので、私に441を与える Right(sStr,3)とsplit

を使用してみました。それはIsNumeric

Dim x as integer 
Dim sCleanedStr As String 
For x = 1 to Len(sStr) 
    If IsNumeric(Mid(sStr, x, 1)) then sCleanedStr = sCleanedStr & Mid(sStr, x, 1) 
Next 

Answer 1

あなたは、文字列の各文字をループをチェックすることができます。このために、あなたはあなたのマクロでの正規表現ライブラリを含める必要があります（[ツール] - [正規表現ライブラリを検索して選択し、>参照）

Sub test() 

sStr = "abc123" 
Dim regEx As New RegExp 
With regEx 
    .Pattern = "[a-z]+" 
    .Global = True 
    .IgnoreCase = True 
End With 
sStr = regEx.Replace(sStr, "") 
MsgBox (sStr) 

End Sub 

上記のコードはどこにでも単語内から任意の文字に置き換えられます。

Answer 2

あなたは任意の文字を削除するために正規表現を使用できるかどう