请求优化VBA报表生成PDF代码：缩短执行时间

嘿，我完全懂你的痛点——那段能正常运行的VBA代码虽然实现了需求，但不仅冗长难维护，执行起来还慢吞吞的。咱们来把它重构得更高效、更整洁，同时大幅提升运行速度。先看优化后的完整代码，再拆解每一处优化细节：

Private Sub CommandButton1_Click()
    ' 声明变量：用Long替代Double（行号索引不需要浮点类型）
    Dim i As Long
    Dim finalRow As Long
    ' 直接绑定工作表变量，避免重复查找开销
    Dim wsRpT As Worksheet
    Dim wsPtr As Worksheet
    Dim pdfPath As String
    
    ' 错误处理：确保无论成功/失败都恢复Excel默认设置
    On Error GoTo Cleanup
    
    ' 关闭Excel后台冗余开销，大幅提速
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    ' 绑定目标工作表（提前校验存在性，避免运行报错）
    Set wsRpT = ThisWorkbook.Sheets("RpT")
    Set wsPtr = ThisWorkbook.Sheets("Ptr")
    
    ' 隐藏窗体并立即刷新界面，避免卡顿
    Me.Hide
    DoEvents
    
    ' --------------------------
    ' 核心逻辑：报表生成（替换原冗长循环）
    ' --------------------------
    ' 清空目标工作表旧数据
    wsPtr.Cells.Clear
    
    ' 获取RpT工作表的最后有效行
    finalRow = wsRpT.Cells(wsRpT.Rows.Count, "A").End(xlUp).Row
    
    ' 批量复制数据（比逐行循环快几十倍，根据实际需求调整范围）
    wsRpT.Range("A1:Z" & finalRow).Copy Destination:=wsPtr.Range("A1")
    
    ' 若需批量设置格式/公式，可在此补充（示例：统一字体）
    ' wsPtr.Range("A1:Z" & finalRow).Font.Name = "微软雅黑"
    
    ' --------------------------
    ' PDF导出与自动打开
    ' --------------------------
    ' 设置PDF保存路径（示例：桌面+时间戳命名，避免重名）
    pdfPath = Environ("USERPROFILE") & "\Desktop\报表_" & Format(Now(), "YYYYMMDD_HHMMSS") & ".pdf"
    
    ' 直接导出目标工作表为PDF，无需激活工作表
    wsPtr.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=pdfPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
    
    ' 自动打开生成的PDF文件
    Shell "explorer.exe """ & pdfPath & """", vbNormalFocus
    
Cleanup:
    ' 恢复Excel默认设置，避免后续操作异常
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    
    ' 释放对象变量，避免内存占用
    Set wsRpT = Nothing
    Set wsPtr = Nothing
    
    ' 若执行出错，弹出提示
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键优化点拆解 #

• 砍掉后台冗余开销：关闭屏幕更新、事件触发和自动计算，这是VBA提速最立竿见影的操作——避免代码执行时屏幕闪跳、重复计算单元格、触发不必要的工作表事件。
• 简化工作表引用：用wsRpT和wsPtr变量直接绑定目标工作表，不用每次写Sheets("RpT")，减少Excel反复查找工作表的时间，代码也更易读。
• 批量操作替代循环：如果原代码是逐行复制数据，改成批量复制/赋值，速度能提升几十甚至上百倍（循环操作是VBA性能杀手）。
• 完善错误处理：加了On Error GoTo Cleanup块，确保不管代码执行成功还是出错，都会恢复Excel的正常设置，不会让Excel一直处于“卡顿”状态。
• 变量类型优化：把i As Double改成i As Long——行号索引用整数类型足够，避免不必要的浮点运算开销。
• PDF导出优化：直接用工作表对象调用ExportAsFixedFormat，无需激活工作表，参数更清晰，避免冗余操作。

内容的提问来源于stack exchange，提问作者Tabib Riaz Hussain