如何在Excel VBA中的单元格中find单词，并使用VBA代码将其颜色设置为红色（仅单词而非整个单元格）？

我在Excel中编写代码，其中的一部分需要在单元格中查找单词（不区分大小写），并将其颜色设为红色（仅单词不是整个单元格）。
例如;

细胞文本 – 你叫什么名字？ search文本 – IS

我需要在单元格文本中着色为“红”。

Answer 1

Theodora，下面有你所追求的基本组成部分。 当然，您将需要对其进行修改以适应您的特定需求：

 Sub ColorPart() searchString = " is " pos = InStr(Cells(1, 1), searchString) If pos > 0 Then Cells(1, 1).Characters(Start:=pos, Length:=Len(searchString)).Font.color = vbRed End If End Sub 

希望这可以帮助。 另外，平心而论@Peh，虽然我的回答不是基于他的评论，但是基本上巩固了他已经正确的布局。