複雑な表の作成を行う方は、クイックアクセスツールバーに入れておくと便利かもしれません。
単に連結させると、セル区切りで改行が入ってしまうので取り除いています。
*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