今天分享一个Excel小技巧 自动设置打印区域

【功能】
自动检测当前工作表中数据的最后一个非空单元格位置，并将打印区域设置为从 A1 到该位置的区域

【代码】
Sub 自动设置打印区域()
Dim lastRow As Long, lastCol As Long'声明两个变量 lastRow 和 lastCol，类型为 Long（长整型）
lastRow = Cells(Rows.Count, 1).End(xlUp).Row'找到第 A 列（即列 1）中最后一个非空单元格所在的行号
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column'找到第 1 行（即行 1）中最后一个非空单元格所在的列号
Dim printRange As String'声明一个字符串变量，用于存储打印区域的地址。
printRange = "A1:" & Cells(lastRow, lastCol).Address'将打印区域设置为从 A1 到 lastRow 行、lastCol 列的单元格
ActiveSheet.PageSetup.PrintArea = printRange'设置当前活动工作表的打印区域
MsgBox "打印区域已自动设置为：" & printRange'弹出一个消息框，显示设置好的打印区域。
End Sub

【缺点】
依赖 A 列和第 1 行有数据，否则会出错。不过大家主要是学习代码的功能，后续根据实际需要调整