🔄
SplitCellData
データ処理選択セルの内容を区切り文字で分割して隣接するセルに展開します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 分割したいセルを選択してから SplitCellData を実行します
💻 VBAコード
' SplitCellData
' -----------------
' Macro Name: SplitCellData
' Description: 選択セルの内容を区切り文字で分割して隣接するセルに展開します
' Parameters: なし
' Returns: なし
' Usage: 分割したいセルを選択してから SplitCellData を実行します
' -----------------
Sub SplitCellData()
On Error GoTo ErrorHandler
Dim cell As Range
Dim delimiter As String
Dim parts() As String
Dim i As Long
If TypeName(Selection) <> "Range" Then
MsgBox "セルを選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set cell = Selection.Cells(1, 1)
If IsEmpty(cell) Then
MsgBox "選択したセルが空です", vbCritical, "エラー"
Exit Sub
End If
delimiter = InputBox("区切り文字を入力してください（例: , またはスペース）", "区切り文字", ",")
If delimiter = "" Then Exit Sub
parts = Split(CStr(cell.Value), delimiter)
For i = 0 To UBound(parts)
cell.Offset(0, i).Value = Trim(parts(i))
Next i
MsgBox (UBound(parts) + 1) & " 個のデータに分割しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub