Excel VBA实现根据B2单元格内容给A列数据标色-Excel教程

Excel VBA实现根据B2单元格内容给A列数据标红色的方法。

前期准备工作（包括相关工具或所使用的原料等）

Excel

VBA

详细的操作方法或具体步骤

ALT+F11，打开VBE编辑器，新建一个模块，粘贴如下代码：

Sub 清除字体颜色()

ActiveSheet.UsedRange.Select

Selection.Font.ColorIndex=0

End Sub

Sub 根据B2单元格内容给A列数据标色()

Dim countcz As Integer, countbz As Integer, tj As Integer, rgbz As String

Dim yxrow As Integer, rg As Range, str As String, i As Integer

yxrow=ActiveSheet.Range("a65535").End(xlUp).Row

countcz=Len(Range("b2").Value)

str=CStr(Range("b2").Value)

If countcz > 0 And yxrow > 1 Then

For Each rg In Range("a2:a" & yxrow)

countbz=Len(rg.Value)

rgbz=rg.Value

tj=countbz + 1 - countcz

If countcz <=countbz Then

For i=1 To tj

If str=Mid(rgbz, i, countcz) Then

rg.Characters(Start:=i, Length:=countcz).Font.ColorIndex=3

End If

Next i

End If

Next

End If

End Sub

利用窗体工具栏：按钮，拖拉2个按钮，分别改名为：查找加色、清除颜色，分别指定：“根据B2单元格内容给A列数据标色”宏，“清除字体颜色”宏，效果如下图。

随便输入一些内容，单击按钮查看效果如下：

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。