EXCEL：宏命令释放同事每天两小时工作量

经沟通了解： 我公司数据组同事需要对系统导出的一些工作薄进行处理后打印。 每个工作薄内含N个工作表，合计近100张工作表。 系统导出的工作表格式相同，但表格中行数较多，直接打印会呈现右侧空白，多张打印的情况。 浪费纸张且核对数量体验较差。 所以需要将每一张表进行调整，将多出一页的数据拆分至首页右侧，调整字体大号，删除某一列数据等。 数据组每天每人需要处理90-120分钟。 经过反复确认需求，最终提供自动化操作V2.0版（终版），花了我近四小时完成（丢人~） 目前每天处理从下载表格到完成，只需要三分钟（前两分30秒下载表格） 代码如下：

Sub 批量处理()
'
' 批量处理 宏
'

'
    Worksheets.Select
    Sheets(1).Activate
    Range("A2:A200").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Range("A2").Activate
    Selection.ColumnWidth = 25
    Columns("B:B").Select
    Range("B2").Activate
    Selection.ColumnWidth = 4
    Columns("C:C").Select
    Range("C2").Activate
    Selection.ColumnWidth = 10
    ActiveWindow.SmallScroll Down:=0
    Range("A43:C83").Select
    ActiveWindow.SmallScroll Down:=-30
    Range("A43:C83").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-48
    Range("D2").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=63
    Range("A84:C113").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-57
    Range("A43").Select
    ActiveSheet.Paste
    Range("A46").Select
    ActiveWindow.SmallScroll Down:=-63
    Columns("A:F").Select
    Range("A2").Activate
    With Selection.Font
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16777216
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    ActiveWindow.SmallScroll Down:=-27
End Sub