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

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

如果语法如下所示：blabla@twitter.com（name）“我想从列中的所有单元格中删除“@twitter.com（name）”并在单元格中只保留“blabla”

有什么想法吗？

找到了解决方案：

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

找到了一个解决方案：

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

---

您不需要使用VBA在Excel中实现这一点

假设文本位于A列中，则每行相邻列中的以下公式将满足示例的需要

=左（A1，FIND（“@”，A1）-1）

---

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

您不需要在Excel中使用VBA来实现这一点

假设文本位于A列中，则每行相邻列中的以下公式将满足示例的需要

=左（A1，FIND（“@”，A1）-1）

---

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

我需要使用vba，因为单元格中的数据会定期更新。而更新后的数据需要进行修剪。有没有更简单的方法？编辑：现在文本中总是有一个@。但是如何修改它，使其在文本中没有@而忽略它呢？我需要使用vba，因为单元格中的数据会定期更新。而更新后的数据需要进行修剪。有没有更简单的方法？编辑：现在文本中总是有一个@。但是，如何修改它，以便在文本中没有@时忽略它？