Excel VBA：打印范圍內的數據單元格

Question

我想打印有數據的單元格（范圍）。 在我的工作表中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