Excel：基于内容进行高级搜索和替换

Question

在excel表中，我有三列。

• A栏包含感兴趣的词。
• B列包含定义。
• C列包含一个例句。

太阳|地球轨道周围的恒星|我们坐在外面晒太阳

我想用三个点（...）替换C列（例句）中的单词以创建一个关闭删除闪卡。

1. 从单元格A1“Sun”复制单词
2. 选择列C1
3. 用三个点（...）
替换相同的单词“Sun”
4. 转到单元格A2
5. 复制单元格A2中的单词
6. 移至C2单元格
7. 用三个点（...）
替换相同的单词
8. 转到单元格A3

Answer 1

公式解决方案

简单的公式解决方案需要一个包含以下代码的新列：

=SUBSTITUTE(C1,A1,"…")

“D”栏中公式的结果：

---

VBA解决方案

循环遍历范围内的每个单元格并替换感兴趣的单词，如下所示：

Sub Macro1()
    For Each cell In Range("A1:A3")
        cell.Offset(0, 2).Value = Replace(cell.Offset(0, 2).Value, cell.Value, "...")
    Next cell
End Sub

---

使用如下所示的数据进行测试：

运行宏后，它看起来像这样：