如何find打印区域的最后一行？

我有一个打印区域，我需要find打印区域中的最后一行。 任何帮助表示赞赏。

谢谢，这是我设置的打印区域。

ActiveSheet.PageSetup.PrintArea = "A1:F100" 

Answer 1

你可以设置一个范围，然后只计算范围内的行：

 Sub t() Dim printRng As Range, lastRow As Long Set printRng = Range("A1:F100") ActiveSheet.PageSetup.PrintArea = printRng lastRow = printRng.Row + printRng.Rows.Count - 1 Debug.Print "Last row of print area is: " & lastRow End Sub 

Answer 2

你可以使用这个function：

 Function PrintAreaLastRow() As Long With Range(ActiveSheet.PageSetup.PrintArea) PrintAreaLastRow = .Rows(.Rows.count).row End With End Function