🔄
MergeCellContents
データ処理選択した複数セルの内容を区切り文字で結合し、先頭セルに出力します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 結合したいセル範囲を選択してから MergeCellContents を実行します
💻 VBAコード
' MergeCellContents
' -----------------
' Macro Name: MergeCellContents
' Description: 選択した複数セルの内容を区切り文字で結合し、先頭セルに出力します
' Parameters: なし
' Returns: なし
' Usage: 結合したいセル範囲を選択してから MergeCellContents を実行します
' -----------------
Sub MergeCellContents()
On Error GoTo ErrorHandler
Dim rng As Range
Dim cell As Range
Dim delimiter As String
Dim result As String
Dim isFirst As Boolean
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
delimiter = InputBox("区切り文字を入力してください（例: , またはスペース）", "区切り文字", ", ")
isFirst = True
For Each cell In rng
If Not IsEmpty(cell) Then
If isFirst Then
result = CStr(cell.Value)
isFirst = False
Else
result = result & delimiter & CStr(cell.Value)
End If
End If
Next cell
rng.Cells(1, 1).Value = result
MsgBox "セルの内容を結合しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub