从Excel中删除相同的文本字符串

我有一个关于如何在Excel 2010中操作多个单元格中的文本的简短问题

我的情况如下：我有大约12个单元格排成一列。每个单元格中字符串的长度差异很大，一个单元格可能有“abcccd”，而另一个单元格可能有“abcccdefghij”。每个单元格中都有一个完全相同的文本字符串，我希望从所有单元格中删除字符串的这一部分。例如，我可能希望从所有单元格中删除“ccc”。这样我就只剩下每个细胞的开始，它们是独一无二的。例如，有没有一种快速方法可以告诉Excel删除“单元格A1…A10中所有abcdefgh格式的字符串”

---

更新：在下面的答案之上，正如pnuts提到的，使用内置的查找和替换功能将非常容易。例如，找到“ccc”替换为“”。

测试数据在A列，结果在B列。从每个条目中删除单词“fall”

将此代码放置在B1中并向下复制

=IF(ISERROR(FIND("fell",A1)),A1,SUBSTITUTE(A1,"fell",""))

**

或者

**

如果您想使用VBA，请尝试以下代码（请注意，我没有任何错误检查，我硬编码了单词'fall'）

---

太好了，这正是我要找的东西。谢谢

Sub LoopRange()
  Dim rCell As Range
  Dim rRng As Range
  Set rRng = Sheet1.Range("A1:A10")

  For Each rCell In rRng.Cells
    Debug.Print rCell.Address, rCell.Value
    rCell.Offset(0, 1).Value = Application.WorksheetFunction.Substitute(rCell.Value, "fell", "")
  Next rCell
End Sub