Combine Two Colums

's Computer Specifications

Hello All
Need help with the script below or maybe a better one. I need to combine the
items in Column A and Column B into one Column
The one below will combine the data into one column but it is backward, I
need the text in column B to be added after the text in column A
Thanks for any help Scott

Sub addData()
For r = 2 To 100
Cells(r, "D").Value = "@website.com" & Cells(r, "D").Value
Next r
End Sub

This is what I have
A B C D
E
1 Jimmy @website.com
2 Jimmy @website.com
3 Jimmy @website.com
4 Jimmy @website.com
5
6
Sample of what I need

a b c
d e
1 (E-Mail Removed)
2 (E-Mail Removed)
3 (E-Mail Removed)
4 (E-Mail Removed)
5 (E-Mail Removed)
6
7
8

's Computer Specifications

You could just enter =A1&B1 in cell D1 and copy it down.

"Sawyer" wrote:

> Hello All
> Need help with the script below or maybe a better one. I need to combine the
> items in Column A and Column B into one Column
> The one below will combine the data into one column but it is backward, I
> need the text in column B to be added after the text in column A
> Thanks for any help Scott
>
> Sub addData()
> For r = 2 To 100
> Cells(r, "D").Value = "@website.com" & Cells(r, "D").Value
> Next r
> End Sub
>
>
> This is what I have
> A B C D
> E
> 1 Jimmy @website.com
> 2 Jimmy @website.com
> 3 Jimmy @website.com
> 4 Jimmy @website.com
> 5
> 6
> Sample of what I need
>
> a b c
> d e
> 1 (E-Mail Removed)
> 2 (E-Mail Removed)
> 3 (E-Mail Removed)
> 4 (E-Mail Removed)
> 5 (E-Mail Removed)
> 6
> 7
> 8
>
>
>

's Computer Specifications

Apply the formula said by JMB and after that hide the original columns if you
don't want them. Donot delete them.

"Sawyer" wrote:

> Hello All
> Need help with the script below or maybe a better one. I need to combine the
> items in Column A and Column B into one Column
> The one below will combine the data into one column but it is backward, I
> need the text in column B to be added after the text in column A
> Thanks for any help Scott
>
> Sub addData()
> For r = 2 To 100
> Cells(r, "D").Value = "@website.com" & Cells(r, "D").Value
> Next r
> End Sub
>
>
> This is what I have
> A B C D
> E
> 1 Jimmy @website.com
> 2 Jimmy @website.com
> 3 Jimmy @website.com
> 4 Jimmy @website.com
> 5
> 6
> Sample of what I need
>
> a b c
> d e
> 1 (E-Mail Removed)
> 2 (E-Mail Removed)
> 3 (E-Mail Removed)
> 4 (E-Mail Removed)
> 5 (E-Mail Removed)
> 6
> 7
> 8
>
>
>

's Computer Specifications

Sub addData2()
Dim r
For r = 2 To 100
Cells(r, 1).Value = Cells(r, 1).Value & Cells(r, 2)
Next r
End Sub

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I combine worksheets w/o enough rows to combine?	Amanda W.	Microsoft Excel Worksheet Functions	3	9th Jun 2009 07:26 AM
Combine cells with the same reference and combine quantities	brandon	Microsoft Excel Misc	2	17th Sep 2008 05:44 PM
Combine First and Last Name colums to create thrid column of full	=?Utf-8?B?TWFyayBN?=	Microsoft Excel Worksheet Functions	3	19th Nov 2007 01:29 AM
How do I combine 2 or more colums	=?Utf-8?B?anVzdG1l?=	Microsoft Excel New Users	2	16th Nov 2005 10:57 PM
2 colums	=?Utf-8?B?RGFycnlsIEEuIFdhbHNo?=	Microsoft Word New Users	3	17th May 2004 01:29 AM