vbscript 自动格式化Excel日志

Posted 2021-05-21

Sub format_pageviews_csv()

With ActiveWorkbook.ActiveSheet.Range("A1:B1, J1, L1:M1, P1:Q1, S1").EntireColumn
    .Delete
End With

ActiveWorkbook.ActiveSheet.Range("B1:K1").EntireColumn.AutoFit
ActiveWorkbook.ActiveSheet.Range("A1").EntireColumn.ColumnWidth = 140

With ActiveWorkbook.ActiveSheet.Range("A1:k1")
    .Font.Bold = True
    .AutoFilter
End With

End Sub