手机系统不正常:如何用VBA/VB来设置Excel的格式

告诉你一个最简单，最好用的办法。
打开Excel，点击工具菜单下宏--录制新宏。然后把你想要用程序实现，而自己又不会编程的操作都做一遍，停止录宏。然后再点击工具菜单下宏--宏，打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然，你也可以把每一个操作分别录宏，这样看起来就更清楚了。
就这么简单，祝你好运。^_^

Dim bl As Excel.Application '定义一个Excel应用
Dim wbook As Variant
Set bl = New Excel.Application '初始化
bl.Visible = True
bl.SheetsInNewWorkbook = 1 '页
Set wbook = bl.Workbooks.Add
Myexcel = True
.............................

With ActiveSheet.Cells(1, 2) '每个单元格叫
'做一个cell,cell(1,2)就是第一行第2列的单元格
.Font.Name = "宋体" '以下是设置字体什么的
.Font.Size = 20
.Font.Color = RGB(0, 0, 0)
.Font.Underline = xlUnderlineStyleDouble
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With