没问题，这个需求完全可以实现！下面是一段专门针对你的场景写的VBA宏代码，既能遍历工作簿里的所有可见工作表，又能精准打印每个表中的可见单元格——不管行/列是否隐藏，也不管动态值怎么变化，每次运行都会基于当前工作表的状态识别可见区域。

宏代码实现 #

Sub PrintVisibleCellsOnly()
    Dim ws As Worksheet
    Dim originalPrintArea As String
    Dim visibleRange As Range
    
    ' 关闭屏幕刷新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 遍历工作簿中的每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 只处理可见的工作表（如果需要打印隐藏工作表，可以去掉这个判断）
        If ws.Visible = xlSheetVisible Then
            ' 保存当前工作表的原始打印区域，避免修改后影响用户设置
            originalPrintArea = ws.PageSetup.PrintArea
            
            On Error Resume Next ' 处理无可见单元格的情况
            ' 获取当前工作表已使用区域中的可见单元格
            Set visibleRange = ws.UsedRange.SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            
            If Not visibleRange Is Nothing Then
                ' 设置打印区域为可见单元格区域
                ws.PageSetup.PrintArea = visibleRange.Address
                ' 打印当前工作表（可以根据需求调整打印参数，比如是否打印预览）
                ws.PrintOut
                ' 恢复原始打印区域
                ws.PageSetup.PrintArea = originalPrintArea
            Else
                ' 如果该工作表没有可见单元格，给出提示（可选）
                MsgBox "工作表 '" & ws.Name & "' 没有可见单元格，跳过打印。", vbInformation
            End If
            
            Set visibleRange = Nothing ' 释放对象
        End If
    Next ws
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    MsgBox "所有可见工作表的可见单元格已打印完成！", vbInformation
End Sub

关键细节说明 #

• 动态值适配：每次运行宏时，UsedRange会自动识别当前工作表中包含数据的区域（不管动态值怎么变化），再通过SpecialCells(xlCellTypeVisible)筛选出其中的可见单元格，完全适配动态数据场景。
• 原始设置保护：代码会先保存每个工作表的原始打印区域，打印完成后恢复，不会破坏你原来的页面设置。
• 错误处理：加入了错误捕获，避免因工作表全隐藏（无可见单元格）导致宏崩溃，还会给出相应提示。
• 灵活调整：如果需要打印隐藏的工作表，只需要去掉If ws.Visible = xlSheetVisible Then这个判断即可；如果想先预览再打印，可以把ws.PrintOut改成ws.PrintPreview。

使用方法 #

1. 打开你的启用宏的工作簿，按下Alt + F11打开VBA编辑器。
2. 在左侧工程窗口中，右键点击你的工作簿名称，选择「插入」→「模块」。
3. 将上面的代码粘贴到新模块中。
4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择PrintVisibleCellsOnly运行。

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