Excel是许多职场人士常用的烦恼之源,学习相关技巧需耗费大量时间。简道云作为一款办公神器,能很好地替代Excel。它是一个在线表单和数据管理工具,支持PC端和手机微信浏览器操作。除此之外,简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理,满足不同需求。
在Excel中,默认情况下,它将设置整个工作表,直到最后一行以数据作为打印区域。 但是在这种情况下,我想从A列打印到C列,直到最后一行显示数据,如下图所示,有什么方法可以处理?
在Excel中,默认情况下,它将设置整个工作表,直到最后一行以数据作为打印区域。 但是在这种情况下,我想从A列打印到C列,直到最后一行显示数据,如下图所示,有什么方法可以处理?
通过打印选择将打印区域设置为最后一行数据
通过VBA将打印区域设置为最后一行的数据
通过打印选择将打印区域设置为最后一行数据要将选择内容打印到数据的最后一行,可以在打印之前将打印区域更改为指定的选择。
1.按住 按Ctrl
键,然后选择要打印的列。 看截图:
2。 点击 文件 > 打印,然后选择 打印选择 来自 设置
部分。 看截图:
将打印区域设置为数据的最后一行在这里,我也介绍了执行此操作的宏代码。
1.启用您使用的工作表,然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口,然后单击 插页 > 模块
。 查看截图。
2.将以下代码粘贴到 模块 脚本,然后按 F5 运行的关键。
VBA:将区域设置为最后一行
UpdatebyExtendoffice20170811 Dim xRg As Range Dim xRgLRow As Long Dim xRgAddress As String On Error Resume Next xRgAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8) xRg.Select xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2) xRgAddress = xRgAddress & xRgLRow ActiveSheet.PageSetup.PrintArea = xRgAddress End Sub3.弹出一个对话框,提醒您选择要使用的列范围。 看截图:
4。 点击 OK,已设置打印区域。
准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!
⏱️ 高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。
***