导读 今天来聊聊关于excel批量设置打印区域每一户表分开的文章,现在就为大家来简单介绍下excel批量设置打印区域每一户表分开,希望对各位小伙伴
今天来聊聊关于excel批量设置打印区域每一户表分开的文章,现在就为大家来简单介绍下excel批量设置打印区域每一户表分开,希望对各位小伙伴们有所帮助。
1、第一步:编写自动设置打印区域的宏。
2、代码如下:Sub 打印区域自动选择()Dim I1, J1, I2, J2 As IntegerDim mYrange As RangeI1 = ActiveCell.RowJ1 = ActiveCell.ColumnI2 = I1J2 = J1Do While Cells(I2, J1) <> ""I2 = I2 + 1LoopI2 = I2 - 1Do While Cells(I1, J2) <> ""J2 = J2 + 1LoopJ2 = J2 - 1Set mYrange = Range(Cells(I1, J1), Cells(I2, J2))ActiveSheet.PageSetup.PrintArea = mYrange.AddressEnd Sub注:该代码运行前需将选择当前单元格为起始单元格,即行号、列号为最小。
3、程序是从这个单元格开始向下和向右查找非空单元格,然后得到需要设置打印区域的范围。
4、第二步:设置打印区域A1:C12.如图:第三步:选择单元格A1后运行宏。
5、如图:运行后,结果如图:。
相信通过excel批量设置打印区域这篇文章能帮到你,在和好朋友分享的时候,也欢迎感兴趣小伙伴们一起来探讨。
标签:
免责声明:本文由用户上传,如有侵权请联系删除!