Combine Two Colums
 

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 = " & 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
2
3
4
5
6
7
8

Combine Two Colums
 

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 = " & 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
2
3
4
5
6
7
8

Combine Two Colums
 

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 = " & 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
2
3
4
5
6
7
8

Combine Two Colums
 

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