如何编写循环VBA批量处理客户列表并自动生成PDF报告

下面是优化后的VBA代码，实现从「Client」工作表A4开始批量复制客户信息到「Recon」工作表M1，并自动执行现有生成PDF报告的VBA过程，直到处理完所有客户：

Sub BatchProcessClients()
    Dim wsClient As Worksheet
    Dim wsRecon As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 定义工作表对象，避免重复使用Select/Activate
    Set wsClient = ThisWorkbook.Sheets("Client")
    Set wsRecon = ThisWorkbook.Sheets("Recon")
    
    ' 获取Client表A列最后一行有数据的行号
    lastRow = wsClient.Cells(wsClient.Rows.Count, "A").End(xlUp).Row
    
    ' 从A4开始循环到最后一行客户数据
    For i = 4 To lastRow
        ' 复制Client表当前行的客户信息到Recon表M1
        wsRecon.Range("M1").Value = wsClient.Cells(i, "A").Value
        
        ' 执行你已有的生成PDF报告的VBA过程
        ' 请把下面的GenerateClientPDF替换成你实际的过程名称
        GenerateClientPDF
    Next i
    
    ' 释放对象变量
    Set wsClient = Nothing
    Set wsRecon = Nothing
End Sub

关键说明： #

• 避免使用Select/Activate：直接通过工作表对象引用单元格，比原代码更高效且不易出错
• 自动识别客户列表范围：通过End(xlUp)自动找到A列最后一行数据，无需手动指定结束行
• 调用现有VBA过程：将GenerateClientPDF替换为你实际用于生成PDF报告的过程名称即可
• 处理空行（可选）：如果客户列表中存在空行，可在循环内添加判断，跳过空单元格：

  If wsClient.Cells(i, "A").Value <> "" Then
      ' 复制和执行过程的代码
  End If
  

内容的提问来源于stack exchange，提问作者Craig Leo Dok the Ogre