如何使用VBA – Excel修剪列中的文本

如何修剪列中每个单元格中的文本？

如果语法如下：“[e-mail]（name name）”，我想从单元格中只剩下“blabla”的列中的所有单元格中删除“@ twitter.com（name name）”。

有任何想法吗？

Answer 1

find了解决办法：

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 

Answer 2

您不需要使用VBA在Excel中执行此操作。

假设你的文本在列A中，每行的相邻列中的下列公式将做你所需要的例子。

=LEFT(A1,FIND("@",A1)-1)

您可能需要根据input数据详细说明文本中没有@字符的情况。