目前我设置打印区域的代码如下，我希望最终打印出来的区域是最后一行非空值。但是我在B列输入了数组函数，函数延续到第300行，但是最终一行可能是300行，也有可能是200，1...
目前我设置打印区域的代码如下，我希望最终打印出来的区域是最后一行非空值。
但是我在B列输入了数组函数，函数延续到第300行，但是最终一行可能是300行，
也有可能是200，191行，各种可能。主要看数组根据源数据运行的情况。
但是如下代码似乎已经将区域设置到300行，能否将打印区域设置到最后单元格非空的一行呢，还不是已经有函数的区域？
Sub ABC()
Dim iCount As Integer
Dim MyPrintArea As String
iCount = Range("b65536").End(xlUp).Row
MyPrintArea = "$A$1:$O$" & iCount
Range("$A$1:$O$" & iCount).Select
Selection.Columns.AutoFit
Range("A8").Select
ActiveSheet.PageSetup.PrintArea = MyPrintArea
End Sub
Sub ABC()
Dim iCount As Integer
Dim MyPrintArea As String
For i = 300 To 1 Step -1
If Range("B" & i) <> "" Then
iCount = i
Exit For
End If
Next
MyPrintArea = "$A$1:$O$" & iCount
Range("$A$1:$O$" & iCount).Select
Selection.Columns.AutoFit
Range("A8").Select
ActiveSheet.PageSetup.PrintArea = MyPrintArea
End Sub
