VBA替换字体格式

替换字体格式

当一张数据表里有多种字体格式,比如有10号字体,11号,15号,那如何将10号字体转换成12号字体,并标记为红色。

也许有童鞋会说,那还不简单,一个个改就是了。

是的!这是一个方案。数据量少是很方便,倘若10号字体的数据有上千个,你会认为手动修改是最简便的吗?

分享个宏代码:

  1. Sub 替换字体格式()   
  2.   Application.FindFormat.Clear     
  3.   Application.ReplaceFormat.Clear     
  4.   Application.FindFormat.Font.Size = 10  ‘查找10号字体   
  5.   Application.ReplaceFormat.Font.ColorIndex = 3  ‘替换为红色字体色   
  6.   Application.ReplaceFormat.Font.Size = 12  ‘替换为12号字体   
  7.   [B:B].Replace What:="", Replacement:="", LookAt:=xlPart, SearchFormat:=True, ReplaceFormat:=True   
  8. End Sub  

B:B代表在B列的数据中查找并替换,上面的参数完全可以自定义,如表格均为同一字体时,那就代表全部替换。

当然执行这个代码,也可挂到控件按钮来执行!

发挥想象吧!

分享到: