未分類

【VBA】Val関数でデータ分析を効率化：文字列から数値データを抽出する方法

【VBA】Val関数でデータ分析を効率化：文字列から数値データを抽出する方法

データ分析において、文字列として格納された数値データを扱う場面は少なくありません。特に、外部データを取り込んだ場合や、レガシーシステムから移行した場合などに多く見られます。このような場合、VBAのVal関数を利用することで、文字列から数値データのみを抽出し、効率的なデータ分析を実現できます。

Val関数の基本

Val関数は、文字列に含まれる数値を抽出するVBAの組み込み関数です。文字列の先頭から順に評価し、数値として認識できる部分を数値型（Double型）として返します。数値として認識できない文字が現れた時点で処理を停止します。

Val関数の構文

Val(string)

  • string：数値に変換する文字列

Val関数の例

Sub ValExample()
  Dim strValue As String
  Dim numValue As Double

  strValue = "123.45ABC"
  numValue = Val(strValue)  ' numValueは123.45になる

  Debug.Print numValue
End Sub

データ分析におけるVal関数の活用例

データ分析の現場では、以下のような場合にVal関数が役立ちます。

  • CSVファイルやテキストファイルから読み込んだデータ

  • Webサイトからスクレイピングしたデータ

  • レガシーシステムからエクスポートしたデータ

これらのデータには、数値データが文字列として格納されていることが多く、そのままでは数値計算に利用できません。Val関数を使用することで、これらの文字列データを数値に変換し、データ分析に活用できます。

例1：売上データの集計

売上データがCSVファイルに文字列として格納されている場合、Val関数を使って数値に変換し、合計売上を計算する例です。

Sub CalculateTotalSales()
  Dim filePath As String
  Dim fileNum As Integer
  Dim lineData As String
  Dim salesData As Variant
  Dim totalSales As Double
  Dim i As Integer

  filePath = "C:\sales_data.csv" ' CSVファイルのパスを指定
  fileNum = FreeFile

  Open filePath For Input As #fileNum
  Do While Not EOF(fileNum)
    Line Input #fileNum, lineData
    salesData = Split(lineData, ",") ' カンマ区切りで分割

    ' 売上データ（2列目）を数値に変換して合計
    totalSales = totalSales + Val(salesData(1))
  Loop
  Close #fileNum

  MsgBox "合計売上: " & totalSales
End Sub

例2：顧客データの分析

顧客データに年齢が文字列として格納されている場合、Val関数を使って年齢を数値に変換し、年齢層別の顧客数を分析する例です。

Sub AnalyzeCustomerAge()
  Dim ws As Worksheet
  Dim lastRow As Long
  Dim i As Integer
  Dim age As Integer
  Dim ageGroup(0 To 9) As Integer ' 10歳刻みの年齢層

  Set ws = ThisWorkbook.Sheets("顧客データ") ' シート名を指定
  lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' 最終行を取得

  ' 年齢層を初期化
  For i = 0 To 9
    ageGroup(i) = 0
  Next i

  ' 年齢層別にカウント
  For i = 2 To lastRow ' 2行目から最終行まで
    age = Val(ws.Cells(i, "B").Value) ' B列に年齢が格納されていると仮定
    If age >= 0 And age <= 99 Then
      ageGroup(Int(age / 10)) = ageGroup(Int(age / 10)) + 1
    End If
  Next i

  ' 結果を表示
  For i = 0 To 9
    Debug.Print i * 10 & "代: " & ageGroup(i) & "人"
  Next i
End Sub

実際の業務での応用例

Val関数は、以下のような業務で活用できます。

  • 会計処理： 請求書データから金額を抽出して集計

  • 在庫管理： 商品コードから数量を抽出して在庫数を計算

  • 品質管理： 測定データから数値を抽出して品質評価

トラブルシューティング

Val関数が0を返す場合

Val関数は、文字列の先頭が数値として認識できない場合、0を返します。例えば、Val(