首页 > 解决方案 > 有没有办法创建一个 VBA 脚本来更改打印区域中使用的最后一行?

问题描述

因此,我正在尝试创建一个 VBA 代码,该代码将自动将 excel 工作表的打印区域更改为包含数据的最后一行。目前,我有办法记录工作表的最后一行,但没有办法将该值转换为范围的末尾。我的问题是这段代码的第二部分。我的想法是制作一个名为“Test”的字符串变量,将变量的值last_row与固定列结合起来O

目前,该行在 400 处结束,因此打印区域将是$B$2:$O$400 我需要 VBA 脚本知道何时添加了更多行并将打印区域调整为新图形。例子:$B$2:$O$434

Dim last_row as long

Sheets ("Main Tab").Select

last_row = cells(Rows.Count,1).end(xUp).Row

Dim Test as String

Test = "O$" & last_row

ActiveSheet.PageSetup.PrintArea = "$B$2:test"

标签: excelvbastringprinting

解决方案


如果您的其他事情还可以,那么问题就在于放入test双引号。所以,改变它像

ActiveSheet.PageSetup.PrintArea = "$B$2:" & test

推荐阅读