【解説付】EXCEL-VBAで文字列から数字を除外する方法

非表示にできる< 目次 >

はじめに

EXCEL VBAで役に立つコードについて触れようと思います。
本ブログ記事は、Crowd Works で納品まで行い、実際にお金になったコードを元に紹介しますのでご安心いただければと思います。

本記事でできること

EXCEL-VBAにおけるDOM(Document Object Model)でのブラウザ制御などで格納したString変数から、
文字列から「文字列」のみを抽出することができます。

例えば、文字列と数字が混合している場合で「数字いらんないなー」というときに本記事のコードをお試し下さい。

今回はFunction〜End Functionとしての紹介ですが、
後述にSub〜End Sub内でのFunctionの使い方についても触れております。

参考：別記事

逆に、文字列から「数字」のみを抽出したい場合は、こちらの記事を参照ください。

: 【解説付】EXCEL-VBAで文字列から数字のみを抽出する方法

続きを見る

コード（解説はコード内のコメント）

コードはこんな感じです。

Functionで定義してあげることで、Sub〜End Sub内で簡単に呼び出すことができます。
呼び出し方は、後述しております。

'*******************************************************************
'*  名称： strExtract
'*  効果： 数字のみ抽出
'*  引数： numberValue:数字を除外したい対象文字列(String)
'******************************************************************
Function strExtract(numberValue As String) As String
 
  '変数の準備
  Dim i As Integer
  Dim strText As String
 
  'Len で文字数が分かる ＝ 1 to 文字列（最終文字）まで For Nextで影響させる。
  For i = 1 To Len(numberValue)
     'Midで文字列を左から順にstrTextに格納
      strText = Mid(numberValue, i, 1)
     
    'もしstrText[0-9]に該当する場合は無視。
      If strText Like "[0-9]" Then
       
    '[0-9]として認識しないものを変数strExtractに格納していく
      Else: strExtract = strExtract & strText
         
      End If
  Next i
 
End Function

'*******************************************************************

'* 名称： strExtract

'* 効果：数字のみ抽出

'* 引数： numberValue:数字を除外したい対象文字列(String)

'******************************************************************

Function strExtract(numberValue As String) As String

'変数の準備

Dim i As Integer

Dim strText As String

'Len で文字数が分かる＝ 1 to 文字列（最終文字）まで For Nextで影響させる。

For i = 1 To Len(numberValue)

'Midで文字列を左から順にstrTextに格納

strText = Mid(numberValue, i, 1)

'もしstrText[0-9]に該当する場合は無視。

If strText Like "[0-9]" Then

'[0-9]として認識しないものを変数strExtractに格納していく

Else: strExtract = strExtract & strText

End If

Next i

End Function

実際の使用方法

上記で挙げたコードは、Funcitonコードのため、
VBAで実際に使用するためには Sub 〜 End Sub 内で記載してあげる必要があります。

それが↓こんな感じ。

Sub 抽出してみる()

 Dim wb1 As Worksheet
 
  '適当にwb1 に格納
 Set wb1 = ActiveWorkbook.Worksheets("Sheet1")

 'Functionで作成したstrExtractを呼び出す方法
 'これにより Cells(1,1)=A1セル の 文字列から数字を除外できる
 wb1.Cells(1, 1) = strExtract(wb1.Cells(1, 1))


End Sub