こちらに、実務でよく使われる「文字列処理のVBAサンプルコード集」をまとめました。
データ整形や検索・置換、CSV処理など、日常業務で役立つものを厳選しています。
実務でよくある文字列処理サンプルコード集
1. 前後の空白を削除（データクレンジング）
Sub TrimCells()
Dim c As Range
For Each c In Selection
If Not IsEmpty(c) Then
c.Value = Trim(c.Value)
End If
Next c
End Sub
👉 コピー＆ペーストしたデータの余分なスペースを一括削除。
2. 特定文字を削除（記号やハイフン除去）
Sub RemoveHyphen()
Dim c As Range
For Each c In Selection
c.Value = Replace(c.Value, "-", "")
Next c
End Sub
👉 郵便番号や電話番号から「-」を削除して数値化。
3. 部分文字列の抽出（商品コードやIDの切り出し）
Sub ExtractCode()
Dim c As Range
For Each c In Selection
c.Offset(0, 1).Value = Left(c.Value, 5) '先頭5文字を抽出
Next c
End Sub
👉 商品コードの先頭部分だけを別列に出力。
4. 文字列の検索（特定ワードを含むか判定）
Sub FindKeyword()
Dim c As Range
For Each c In Selection
If InStr(c.Value, "重要") > 0 Then
c.Interior.Color = vbYellow
End If
Next c
End Sub
👉 「重要」という文字を含むセルを黄色にマーキング。
5. 全角 → 半角変換（日本語処理）
Sub ConvertToHalfWidth()
Dim c As Range
For Each c In Selection
c.Value = StrConv(c.Value, vbNarrow)
Next c
End Sub
👉 全角数字や英字を半角に統一。
6. CSV文字列を分割してセルに展開
Sub SplitCSV()
Dim c As Range, arr As Variant, i As Integer
For Each c In Selection
arr = Split(c.Value, ",")
For i = LBound(arr) To UBound(arr)
c.Offset(0, i).Value = arr(i)
Next i
Next c
End Sub
👉 「A,B,C」を横方向に展開してセルに配置。
7. 配列を文字列に結合（リストを1セルにまとめる）
Sub JoinArray()
Dim arr As Variant
arr = Array("東京", "大阪", "名古屋")
Range("A1").Value = Join(arr, "・")
End Sub
👉 {“東京”,”大阪”,”名古屋”} → 「東京・大阪・名古屋」
ポイント
- Trim / Replace / StrConv はデータ整形で必須
- InStr / Left / Mid は検索や抽出で頻出
- Split / Join はCSVやリスト形式データ処理に便利
👉 これらを組み合わせれば、住所データの整形、商品コードの分解、CSVのインポート処理など、実務でよくある文字列処理を効率化できます。