用下面的代码去执行,在该表的代码窗口粘贴下面代码: Sub aa() Dim c, n For Each c In ActiveSheet.Range(a1:a100) '假设数据范围为a1:a100,根据需要修改 If c Then n = Len(c.Value) If n = 4 Then c.Characters(Start:=1, Length:=n).Font.FontStyle = 加粗 Else: c.Characters(Start:=n - 4 + 1, Length:=4).Font.FontStyle = 加粗 End If End If Next c End Sub 右击表名 》查看代码,可以进入该表代码窗口,粘贴后,点击代码窗口上面的小绿色三角按钮