单元格格式VBA(3)

    前面PDF转出的数据在原有EXCEL文件里。结合成品表样式设置在转完数据后直接新建一个表格将数据搬过去；并设置好格式
用到的代码与注释（部分注释为查OFFICE官网解释)

Sub a1()
    Dim wb1 As Workbook            '定义一个工作本
    Dim ws1 As Worksheet, ws2 As Worksheet    '定义2个表
    Dim wb1name As String            '定义文本名
    Set wb1 = Workbooks.Add            '定义的工作本建创一个新的
    With wb1
        .Worksheets(1).Name = "数据源"        '由于本机EXCEL设置了新创表格文件默认带的表格为(1)个，新建的文本默认表格名更名
        Set ws1 = .Worksheets.Add        '定义的表1新建
            ws1.Name = "汇总表"                '更改表1名子
            ws1.Move after:=.Worksheets(.Worksheets.Count)        '表1放至后面
        Set ws2 = .Worksheets.Add        '定义的表2新建
            ws2.Name = "商品门店列表进口四证"        '更改表2名子
            ws2.Move after:=.Worksheets(.Worksheets.Count)        '表2放至后面
    End With
    wb1name = Month(Now()) & "-" & Day(Now())        '文件名更改为本机"月份"-"日期"
    wb1.SaveAs ("C:\Users\Administrator\Desktop\" & wb1name & ".xlsx")        '保存到桌面
    wb1.Close
End Sub
Sub AAAAA()
    Dim x1 As Integer
    .Columns("a").ColumnWidth = 7.5        '列宽设置
    .Columns("b:U").ColumnWidth = 5.5        
    .Rows("1:1").RowHeight = 80            '行高设置
    With .Range("a1:s1")
        .HorizontalAlignment = xlCenter        '单元格内对齐方式
    '常量 　　　　　　　　　　　水平位置
　　    'xlGeneral 　　　　　　　　　　　标准
　　    'xlLeft 　　　　　　　　　　　　靠左
　　    'xlCenter 　　　　　　　　　　　中央
　　    'xlRight 　　　　　　　　　　　　靠右
　　    'xlFill 　　　　　　　　　　　　　填充
　　    'xlJustify 　　　　　　　　　　　调节对齐
　　    'xlCenterAcrossSelection 　　　选择范围内中央对齐
　　    'xlDistributed 　　　　　　　　　平均对齐
        .VerticalAlignment = xlTop        '单元格内文本方式
    '常量 　　　　垂直位置
　　    'xlTop 　　　　　靠上
　　    'xlCenter 　　　　中央
　　    'xlBottom　　　　靠下
　　    'xlFill 　　　　　填充
　　    'xlJustify 　　　　调节对齐
　　    'xlDistributed 　　平均对齐
        .WrapText = True            '文本自动换行
    End With
    Application.Worksheets(1).Range("a2:s50").Font.Size = 13        '字体大小
    Application.Worksheets(1).Range("A2:S49").Font.Bold = True        '字体是否加粗
    ' Worksheets(1).Range("a1").CurrentRegion.Borders.LineStyle = xlNone        
   With Worksheets(1).Range("a1").CurrentRegion.Borders        '边框设置
        .LineStyle = xlDash
        'xlContinuous   为正常边框
        'xlDash     深色短线
        'xlDot      细点线
        'xlNone或者xlLineStyleNone    无边框
        .Weight = xlHairline
        'xlHairline 细线
        'xlThin 正常线
        .ColorIndex = 1
        '数字1黑色
    End With
    For x1 = 1 To Range("a1").End(xlDown).Row Step 2
            Range("a" & x1 & ":s" & x1).Interior.Color = RGB(187, 255, 255)    '设置底纹颜色
    Next
End Sub

'Range("a" & x1 & ":s" & x1).Interior.Color = RGB(187, 255, 255)    '设置底纹颜色
部分颜色代码对比图