Adding data to existing cell

Question

Hey, I was just wondering if there is a formula or add-in that I can use to add data to a cell that already has data. For example, I have a bunch of usernames in a row and would like to append the&nbsp;@emailaddress.com to the end of them. I do not want to create a new row that has the usernames+@emailaddress&nbsp;I would ideally like to add the&nbsp;@emailaddress.com to the end of the usernames in the row that already exists

hansvogelaar · Answer

Sjefferson2118&nbsp;
Run this macro, after editing the constants at the beginning:
Sub AddEmail()
    Const TheRow = 2
    Const FirstCol = 2 ' column B
    Const ExtraString = "@domain.com"
    Dim LastCol As Long
    Dim TheCol As Long
    Application.ScreenUpdating = False
    LastCol = Cells(TheRow, Columns.Count).End(xlToLeft).Column
    For TheCol = FirstCol To LastCol
        With Cells(TheRow, TheCol)
            If InStr(.Value, "@") = 0 Then
                .Value = .Value &amp; ExtraString
            End If
        End With
    Next TheCol
    Application.ScreenUpdating = True
End Sub

Forum Discussion

Adding data to existing cell

Share

Resources