Question

How can I trim a the text in each cell in a column?

If the syntax is like: “[e-mail] (name name)” and I want to delete “@twitter.com (name name)” from all cells in the column being left with only “blabla” in the cells.

Any ideas?

Answer 1

Found a solution:

Dim cellHolder As String
For Each cell In Range("A1:A10")
    cellHolder = cell.Value
    cellHolder = Left(cellHolder, InStr(cellHolder, "@") - 1)
    cell.Value = cellHolder
Next cell