Combining two cells into One

[austenr]

I don't believe I have seen the code for this anywhere but if someone knows where it might be let me know.

I have two cells that have a last name and a first name in them. I need to combine them into one cell, last name then a space then the first name. If anyone has any ideas please let me know. Thanks

[Zack Barresse]

Hey,

You could use something like this ...

Option Explicit

Sub CreateFullName()
    Dim cel As Range, rng As Range
    Set rng = Range("A2:A10")
    For Each cel In rng
        cel.Offset(, 2).Value = cel.Value & " " & cel.Offset(, 1).Value
    Next cel
End Sub

This is assuming some things. 1) Your range of Last Names are in A2:A10. 2) Your first names are in the corresponding rows in column B. 3) You have nothing in the corresponding rows of column C as that's where the concatenated values go. A formula would look like ...

=A2&" "&B2

[Zack Barresse]

A possibly faster way also ...

Option Explicit

Sub CreateFullName()
    With Range("C2:C10")
        .FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
        .Value = .Value
    End With
End Sub

Making the same assumptions..