给你个例子:
sub formatcell()
rangle("A1:C10").select
selection.rowheight=20
selection.columnwidth=20
with selection.font
.Name="幼圆"
.FontStyle="常规"
.Ssize=10
.StrikeThrough=false
.SuperScript=false
.OutlineFont=false
.StrikeThrough=false
.Shadow=false
.UnderLine=xlUnderLineStyleNone
.ColorIndex=4
end with
end sub
录制一个宏,改编VBA程序。