VBA实现遍历CustomerSupport工作表I5-I84非空行复制至StandardMDForm并打印

嘿，我帮你把需求对应的VBA代码补全并整理好了，完全贴合你说的遍历、复制、打印逻辑，咱们来看具体内容：

完整VBA代码 #

Sub copyAndPrintMDs()
    Dim i As Long
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    ' 提前定义工作表对象，让代码更高效易读
    Set wsSource = ThisWorkbook.Worksheets("CustomerSupport")
    Set wsTarget = ThisWorkbook.Worksheets("StandardMDForm")
    
    ' 关闭屏幕更新，提升运行速度（避免频繁刷新界面）
    Application.ScreenUpdating = False
    
    ' 遍历第5行到第84行
    For i = 5 To 84
        ' 检查I列（第9列）单元格是否非空（存在姓名）
        If Not IsEmpty(wsSource.Cells(i, "I").Value) Then
            ' ---------- 这里替换成你的"指定单元格"复制逻辑 ----------
            ' 示例1：将源行的A到Z列内容复制到目标表的第2行（可根据实际调整）
            wsSource.Range("A" & i & ":Z" & i).Copy Destination:=wsTarget.Range("A2")
            
            ' 示例2：如果是复制到单个指定单元格，比如把源I列姓名放到目标C5单元格
            ' wsTarget.Range("C5").Value = wsSource.Cells(i, "I").Value
            ' 可以继续添加其他单元格的赋值，比如：
            ' wsTarget.Range("D6").Value = wsSource.Cells(i, "B").Value
            
            ' 打印目标工作表
            wsTarget.PrintOut
            
            ' 可选：打印后清空目标表动态内容，避免下一次复制时残留数据
            wsTarget.Range("A2:Z100").ClearContents ' 按需调整清空范围
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "所有符合条件的表单已完成复制并打印！", vbInformation
End Sub

关键代码说明 #

• 工作表对象定义：提前把CustomerSupport和StandardMDForm定义成工作表对象，比每次写Worksheets("xxx")更高效，也更便于后续维护。
• 非空判断：Not IsEmpty(wsSource.Cells(i, "I").Value)确保只处理有姓名的行，跳过空行。
• 复制逻辑：代码里给了两种常见的复制方式，你可以根据自己的"指定单元格"需求调整：
  • 如果是整行对应复制，用示例1的范围复制方法；
  • 如果是单个单元格精准赋值，用示例2的逐个单元格赋值方式。
• 屏幕更新控制：Application.ScreenUpdating = False可以避免代码运行时界面频繁闪烁，大幅提升运行速度，最后记得恢复为True。
• 打印操作：wsTarget.PrintOut会直接调用打印机打印目标工作表，如果你需要设置打印参数（比如打印份数、打印范围），可以给这个方法加参数，比如wsTarget.PrintOut Copies:=2表示打印2份。

注意事项 #

• 确保两个工作表名称和代码里的一致，别打错字；
• 如果目标工作表有固定模板格式，记得不要清空模板的固定内容，只清空动态复制的部分；
• 运行代码前最好保存一下文件，避免意外情况导致数据丢失。

内容的提问来源于stack exchange，提问作者Ahmed Afifi