如果这适合你,你可以继续工作Styles.更改工作簿的默认样式非常快,但可能有副作用.试试吧.
Styles
With ActiveWorkbook.Styles("Normal").Font .Name = "Aharoni" .Size = 11 End With