Excel VBA：打印范围内的数据单元格

Question

我想打印具有数据的单元格（范围）。在我的Sheet B：T是打印区域。如果在该范围内，则只有范围B8：T8（行）的值仍为空。所以我需要一个宏，它只打印B：T范围

Answer 1

下次尝试并做一些挖掘工作，因为这对您来说确实很容易编写和实践。您只需要查找范围中的最后一行并将打印区域设置为A1：T & lastrow。

setPrintArea() 
Dim LR As Long 
LR = Columns("B:T").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
ActiveSheet.PageSetup.printArea = "B1:T" & LR 
End Sub