【VBA】【一天的心血，收藏一下】一键生成报表

Sub crDelReport()

    t1 = Timer
    Application.ScreenUpdating = False
        Call importLog
        Call findBrokenStation
        Call nowCrReport
        Call crFile
    Application.ScreenUpdating = True
    t2 = Timer
    Debug.Print "运行时间 = " & (t2 - t1) * 1000 & " ms"

End Sub
Sub crFile()

    Worksheets("结果统计-删除").Copy
    With ActiveSheet
        .Select
        .Columns("A:E").Delete
        .Shapes.Range(Array("Picture 1")).Delete
        [G1] = "执行结果"
        [G2] = "断站"
        [G3] = "执行成功"
        [G4] = "总计"
        
        [H1] = "数量"
        [H2].formula = "=COUNTIF(E:E,G2)"
        [H3].formula = "=COUNTIF(E:E,G3)"
        [H4].formula = "=SUM(H2:H3)"
    End With
'    格式化
    Call formatting
    
    ActiveWorkbook.SaveAs "XXXX测量配置结果_" & Month(Date) & "月第四组.xlsx"
    
End Sub

Sub nowCrReport()
Application.ScreenUpdating = False
    Dim d As Object, rng As Range
    Set dCity = CreateObject("Scripting.Dictionary")
    Set dOSS = CreateObject("Scripting.Dictionary")
    With Worksheets("ip对应地市名工具")
    For i = 1 To .[A65536].End(xlUp).Row
        d