终于搞定了: UserRow = (Maxrow - 5) Mod 45 '已经显示的记录数 NoNum = UserRow - Fix(UserRow / 44) * 44 If NoNum = 0 Then '满页时插入过次页、承前页 Range("F" & Maxrow + 1) = " 过 次 页" Range("F" & Maxrow + 2) = " 承 前 页" Maxrow = Maxrow + 3 '复制数据的行位置 End If Range("F" & Maxrow + 1) = " 本 月 合 计" '本月合计处理 Maxrow = Range("F65536").End(xlUp).Row UserRow = (Maxrow - 5) Mod 45 '已经显示的记录数 NoNum = UserRow - Fix(UserRow / 44) * 44 If NoNum = 0 Then '满页时插入过次页、承前页 Range("F" & Maxrow + 1) = " 过 次 页" Range("F" & Maxrow + 2) = " 承 前 页" Maxrow = Maxrow + 2 '复制数据的行位置 End If Range("F" & Maxrow + 1) = " 本 年 累 计" '本年累计处理 |