Excel 如何找到打印区域的最后一行？

我有一个打印区域，我需要找到打印区域中的最后一行。感谢您的帮助

谢谢，这是我的套印区

ActiveSheet.PageSetup.PrintArea = "A1:F100"

---

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

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

---

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

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

---

您可以使用此功能：

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

---

您可以使用此功能：

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

---

@user3598756的代码不起作用吗？我只是好奇，因为在我看来，它更优雅，不那么笨重。虽然我建议先设定一个范围，但我只是好奇为什么我的答案会被选上。（不是投诉或任何明显的事情，只是想知道）@user3598756的代码不起作用吗？我只是好奇，因为在我看来，它更优雅，不那么笨重。虽然我建议先设定一个范围，但我只是好奇为什么我的答案会被选上。（不是抱怨或任何明显的事情，只是好奇）