1、Excel中原始数据如下图所示,利用VBA将A1:A4中的字体改为宋体,字号改为20号:

3、输入VBA代码,如下图所示:Sub 鱼木混猪()Range("钽吟篑瑜A1:A4").Font.Name = "稆糨孝汶;宋体"Range("A1:A4").Font.Size = 20End Sub

5、关闭VBE界面,,返回Excel中,可以看到字体和字号都改变了,如下图所示:

时间:2024-10-13 19:45:31
1、Excel中原始数据如下图所示,利用VBA将A1:A4中的字体改为宋体,字号改为20号:
3、输入VBA代码,如下图所示:Sub 鱼木混猪()Range("钽吟篑瑜A1:A4").Font.Name = "稆糨孝汶;宋体"Range("A1:A4").Font.Size = 20End Sub
5、关闭VBE界面,,返回Excel中,可以看到字体和字号都改变了,如下图所示: