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

Question

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

我的情况如下：我在一列中排列了大约12个单元格。每个单元格中字符串的长度变化很大，一个单元格可能具有“abcccd”而另一个单元格具有“abcccdefghij”。在每个单元格中都有一串完全相同的文本，我希望从所有单元格中删除这部分字符串。例如，我可能想从所有单元格中删除“ccc”。通过这种方式，我将只留下每个单元格的独特开头。有没有一种快速的方法告诉Excel删除'单元格A1 ... A10'形式abcdefgh的所有字符串？

更新：除了下面的答案之外，正如pnuts所提到的，使用内置的查找和替换功能非常简单。例如。找到'ccc'替换为''。

Answer 1

在A栏中测试数据，得到B列。从每个条目中删除“fall”一词。

将此代码放在B1中并向下拖动。

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

**

... OR

**

如果您想使用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