Merge Cells

[craigwojo]

Hi everyone,

I need to merge cells with data in each cell and need to put an "-" in between the cell data.

Example:

Cell A1: PN01
Cell B1: V108a

I need the cell (one cell) to look like: PN01 - V108a. I have thousands of these and do not want to re-type them.

Thank you,
Craig

 

[Jonmo1]

Try

=A1&" - "&B1

Hope that helps...

 

[GMorris]

But that's not actually merging the cells, it's just a formula that will put the dash between the two. If you actually need the cells merged, a macro would be better and accomplish what was described. I got tired of having to go through the menus each time to merge cells and eventually made a small routine with a shortcut key to merge whatever cells I had selected, so I know this is not very difficult to do with code.

 

[Richard Schollar]

Hi Craig

If you really, really want to merge the cells then you could try this:

Sub test()
Dim v As Variant, i As Long, r As Range
Application.DisplayAlerts = False
Set r = Selection
v = Selection.Value
For i = 1 To UBound(v, 1)
    With r(i, 1).Resize(, 2)
        .Merge
        .Value = v(i, 1) & " - " & v(i, 2)
    End With
Next i
End Sub

Select the two columns of data eg A1:B1000 first before you run it.

 

[craigwojo]

Thank you all.