Combine Two Colums

  • Thread starter Thread starter Sawyer
  • Start date Start date
S

Sawyer

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 address removed)
2 (e-mail address removed)
3 (e-mail address removed)
4 (e-mail address removed)
5 (e-mail address removed)
6
7
8
 
Apply the formula said by JMB and after that hide the original columns if you
don't want them. Donot delete them.
 
Sub addData2()
Dim r
For r = 2 To 100
Cells(r, 1).Value = Cells(r, 1).Value & Cells(r, 2)
Next r
End Sub
 
Back
Top