Excel Macro merge cell contents and separate by soft return

Hi, WesternGal,

merging cells means putting the cells together into one cell - you will have only one cell physically which stretches across two cells.

Maybe this code will lead you into the direction where you want to go. As it is working with ActiveCell please choose cell C3 before you run the code:

Sub WesternGal()
With ActiveCell
  MsgBox .Text & vbCrLf & .Offset(1, 0).Text
End With
End Sub

Ciao,
Holger

Hi, WesternGal,

still donīt get for which range this action should be taken. The difference bvetween your recorded macro and the sniplet is that you take the value and my code relates on what is shown in the cell.

To paste the contents into the active cell use

Sub WesternGal_2()
With ActiveCell
  .Value = .Text & vbCrLf & .Offset(1, 0).Text
End With
End Sub

The code will place the contents to the left of the cell (as this is a string thatīs put in) and it doesnīt change the formatting when I use it with Excel2013.

Ciao,
Holger

One final note for those newbies like myself . . . I didn't want to have to select a cell each time I need to merge cells since I have several tables, I added a line to select the cell, then combine the contents. Of course, this only works since the info is always in the set cells.

WesternGal_2()

Range("B3").Select
With ActiveCell
.Value = .Text & vbCrLf & .Offset(1, 0).Text
End With
End Sub

Hi, WesternGal,

maybe use these instead of changing the range for each individual cell, first uses a given range, second needs you to choose the range on which it should work prior to running the macro:

Sub WesternGal_3_Range()
Dim rngCell As Range
'change the range to suit
For Each rngCell In Range("B3:H3")
  With rngCell
    .Value = .Text & vbCrLf & .Offset(1, 0).Text
  End With
Next rngCell
End Sub

Sub WesternGal_3_Select()
Dim rngCell As Range
'select the range prior to running the macro
For Each rngCell In Selection
  With rngCell
    .Value = .Text & vbCrLf & .Offset(1, 0).Text
  End With
Next rngCell
End Sub

Ciao,
Holger