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

Question

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

如果语法如下：“blabla@twitter.com（名称名称）”，我想从列中的所有单元格中删除“@ twitter.com（名称名称）”，只留下“blabla”细胞

有什么想法吗？

Answer 1

找到解决方案：

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)

您可能需要根据输入数据详细说明，以解决文本中没有@字符的情况。