Excel VBA将打印区域设置为包含数据的最后一行

Question

我有一个带有表“CR”的Excel表，其中填充了列A到K，第一行是标题行。

行1-1000格式化（边框），列A包含一个公式，用于在输入F列中的数据时自动调整行数。

工作表“CR”受到保护，以防止用户输入A列（已锁定）中的数据。

使用Workbook_BeforePrint函数，我正在尝试将打印区域设置为A到K列以及包含数字的A列的最后一行。

我的代码（在对象'ThisWorkbook'中）如下：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Sheets("CR")

' find the last row with data in column A
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

ws.PageSetup.PrintArea = ws.Range("A1:K" & lastRow).Address
End Sub

但是，当我单击文件 - >打印时，将显示列A到K到行1000的范围，而不是仅显示在列A中有数字的行。我做错了什么？

Answer 1

更改：

lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

至：

lastRow = [LOOKUP(2,1/(A1:A65536<>""),ROW(A1:A65536))]

Answer 2

.End(...)行为类似于ctrl + arrow-key。 如果单元格有一个公式（由于公式看起来是空的，那么它仍将停在那里......另一种方式是使用evaluate（如果你不想循环），如下所示：

lastRow = .Evaluate("MAX(IFERROR(MATCH(1E+100,A:A,1),0),IFERROR(MATCH(""zzz"",A:A,1),0))")

这将给出最后一行（在A列中有一个值）。

还要检查是否存在隐藏值（看起来是空的到期数字格式或有直接看不到的字符。尝试在A列的第1000行下面（在A列中选择A1000后的单元格）并按ctrl +向上以验证在哪里它会停止（以及为什么）。

编辑：
（关于你的评论）

""仍然导致.End(...)命令的“停止”。 所以要么使用我的公式，将公式转换为vba，要么循环它获得最后一个值的单元格。 Find也是一个很好的工具（如果不是无数次地反复进行）。

lastRow = .Cells.Find("*", .Range("B1"), xlValues, , xlByColumns, xlPrevious).Row