Trying to convert text into email with the help of neighbor cell

[chmohsin]

Hi everybody, plz help me

i have cells containing email addresses without "at" sign. now I have the website address or domain in the left neighbor cell. I want to use that cell's info to put "at" sign in the right place in the right cell.

example

prioritycargo.com.au nicholasprioritycargo.com.au
publiship.com.au greigrpubliship.com.au
fehlberg.com.au sdfehlbergfehlberg.com.au

also please note that sometimes the value in the left call might not contain the text containing domain. In that case, I want Excel to ignore that.
I hope I have explained it well.

So please advise me a formula or way to do that on entire columns otherwise it will take forever to put manually "at" sign in thousands of cells

 

[Takae]

Hope this helps.

Sub test()
Dim buf As String, buf2 As String
Dim i As Long

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    buf = Cells(i, 1).Value
    Cells(i, 3).Value = Replace(Cells(i, 2).Value, buf, "@" & buf)
Next
End Sub

 

[chmohsin]

Thanks a lot Takae. Its working like a charm. Hats off to you. but a little problem. its only working if domain is in A coulmn, email without @ is in B column and i am running it on C Coulmn.
Whereas in actual, my domain is in E Column, email without @ is in F Column and I want result in G Column. Plz advise or do the modification in code.

Thnaks & Regards

 

[Takae]

Please use this one.

Sub test()
Dim buf As String
Dim i As Long

For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row
    buf = Cells(i, 5).Value
    Cells(i, 7).Value = Replace(Cells(i, 6).Value, buf, "@" & buf)
Next
End Sub

 

[chmohsin]

Thanks a lot Takae once again. Its working perfectly fine now. Stay blessed.