原文链接 https://www.cnblogs.com/valor-xh/p/5919377.html
数字(Range.NumberFormatlocal 属性)
常规：Range.NumberFormatlocal = "G/通用格式"
数值：Range.NumberFormatlocal = "0.000_ " --保留小数位数为3
Range.NumberFormatlocal = "0" --不要小数
Range.NumberFormatlocal = "#,##0.000 " --保留小数位数为3，并使用千位分隔符
货币：Range.NumberFormatlocal = "$#,##0.000"
百分比：Range.NumberFormatlocal = "0.000%"
分数：Range.NumberFormatlocal = "# ?/?"
科学计数：Range.NumberFormatlocal = "0.00E+00"
文本：Range.NumberFormatlocal = "@"
特殊：Range.NumberFormatlocal = "000000"---邮政编码
Range.NumberFormatlocal = "[DBNum1]G/通用格式"---中文小写数字
Range.NumberFormatlocal = "[DBNum2]G/通用格式"---中文大写数字
Range.NumberFormatlocal = "[DBNum2][$RMB]G/通用格式"---人民币大写
对齐
水平对齐：Range.HorizontalAlignment = etHAlignCenter ---居中
垂直对齐：Range.VerticalAlignment = etVAlignCenter---居中
是否自动换行：Range.WrapText = True
是否缩小字体填充：Range.ShrinkToFit = True
是否合并单元格：Range.MergeCells = False
文字竖排：Range.Orientation = etVertical
文字倾斜度数：Range.Orientation = 45 -----倾斜45度
字体（Font对象）
字体名称：Font.Name = "华文行楷"
字形：Font.FontStyle = "常规"
字号：Font.Size = "10"
下划线：Font.Strikethrough = True; Font.Underline = etUnderlineStyleDouble ---双下划线
上标：Font.Superscript = True
下标：Font.SubScript = True
删除线：Font.OutlineFont = True
边框（Borders对象）
Borders.Item(etEdgeTop)：上边框
Borders.Item(etEdgeLeft)：左边框
Borders.Item(etEdgeRight)：右边框
Borders.Item(etEdgeBottom)：下边框
Borders.Item(etDiagonalDown)：左上--右下边框
Borders.Item(etDiagonalUp)：左下--右上边框
Border.LineStyle = etContinuous 线条样式