Concatenation of txt fields

Xarin · Mar 5th, 2002, 09:45 PM

I need a simple VBA routine to concatenate two cells of information, such as last name in A1 cell with first name B1 cell. Then need it to perform a loop to continue through the two columns - doing the same thing to all of the data present. Any help would be appreciated.

RichardS · Mar 5th, 2002, 10:39 PM

Do you need a VBA solution? Can't you just, in cell C1, put =A1&" "&B1, and copy down as far as you need?
Richard

Dave Hawley · Mar 5th, 2002, 10:49 PM

Hi Xarin

As has been said you don't have to use a macro, but if you do I wouldn't use a Loop. Try this instead.It assumes your 2 columns to join are "A" & "B" and you want them joined in "C"

Sub JoinIt()
With Range("B2", Range("B65536").End(xlUp)).Offset(0, 1)
.FormulaR1C1 = "=RC[-2] & "" "" &RC[-1]"
Range("B2", Range("B65536").End(xlUp)).Offset(0, 1) = .Value
End With

_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training
If it's Excel, then it's us!

[ This Message was edited by: Dave Hawley on 2002-03-05 21:50 ]

[ This Message was edited by: Dave Hawley on 2002-03-05 21:52 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 5th, 2002, 09:45 PM	#1
Xarin New Member Join Date: Mar 2002 Location: Dayton, Ohio Posts: 3	I need a simple VBA routine to concatenate two cells of information, such as last name in A1 cell with first name B1 cell. Then need it to perform a loop to continue through the two columns - doing the same thing to all of the data present. Any help would be appreciated.

Mar 5th, 2002, 10:39 PM	#2
RichardS Board Regular Join Date: Feb 2002 Location: Victoria, Australia Posts: 761	Do you need a VBA solution? Can't you just, in cell C1, put =A1&" "&B1, and copy down as far as you need? Richard

Mar 5th, 2002, 10:49 PM	#3
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Xarin As has been said you don't have to use a macro, but if you do I wouldn't use a Loop. Try this instead.It assumes your 2 columns to join are "A" & "B" and you want them joined in "C" Sub JoinIt() With Range("B2", Range("B65536").End(xlUp)).Offset(0, 1) .FormulaR1C1 = "=RC[-2] & "" "" &RC[-1]" Range("B2", Range("B65536").End(xlUp)).Offset(0, 1) = .Value End With _________________ Kind Regards Dave Hawley OzGrid Business Applications Microsoft Excel/VBA Training If it's Excel, then it's us! [ This Message was edited by: Dave Hawley on 2002-03-05 21:50 ] [ This Message was edited by: Dave Hawley on 2002-03-05 21:52 ]