Public Sub VbaSpeed(flag As Boolean)    'vba代码提速 用False加速 结束前True恢复
    Application.ScreenUpdating = flag
    'Application.DisplayStatusBar = flag
    Application.EnableEvents = flag
    If Not flag Then
        Application.Calculation = xlCalculationManual
    Else
        Application.Calculation = xlCalculationAutomatic
    End If
End Sub