横方向にセル連結

複雑な表の作成を行う方は、クイックアクセスツールバーに入れておくと便利かもしれません。

単に連結させると、セル区切りで改行が入ってしまうので取り除いています。
*1と*2の行を削除すると単にセルの連結のみ行ないます。

Sub 横セル連結()
    Application.ScreenUpdating = False
    Dim c As Cell
    Dim RowIndex As Long
    Dim FirstCell As Cell
    RowIndex = 0
    Set FirstCell = Selection.Cells(1)
    For Each c In Selection.Cells
        If RowIndex = c.RowIndex Then
            Dim Text As String
            Text = Chop(FirstCell.Range.Text) & " " & Chop(c.Range.Text) '*1
            FirstCell.Merge c
            FirstCell.Range.Text = Text ' *2 
        Else
            Set FirstCell = c
            RowIndex = c.RowIndex
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Function Chop(Str As String) As String
    Chop = Left(Str, Len(Str) - 2)
End Function