（含附件重开贴） 请教各位，有一汇总明细表，要指自动拆分并汇总求和。具体见内容

su45

把 ActiveCell.PrintOut
改为：

PrintOut

南柯梦否

microyip 发表于 2016-9-20 16:27
再次修正，已核对完全无误

因为我都不知道哪里有问题。。我就把每个表的总和加起来和母表对    不一样= =。。。这次真的对了！太感谢你了！！！而且连带母表的格式都有，谢谢！！

南柯梦否

su45 发表于 2016-9-20 16:35
把 ActiveCell.PrintOut
改为：

谢谢。已经能打印了。出现两个问题，打印的第一页打多打了一条数据（这个影响不大），打印最后一页的时候，求和结果不对。。。。

南柯梦否

microyip 发表于 2016-9-20 15:44
附件已修正错误

发现个衍生问题。 你这个已经能解决主要问题了。

我在母表里把格式列宽 行高 以及打印设置，全都设好了，这些也都能用。。。主要是 我把单元格边框加上之后，拆分后的表 边框还是和母表一样，并不是到当前数据截止。能解决吗？拜托了

（如果可以 把单元格全边框和打印设置水平居中 边距全为0，编在代码里。。。
行高 列宽如果有空也写在里面？ 学习下。。。）

microyip

南柯梦否 发表于 2016-9-20 17:16
发现个衍生问题。 你这个已经能解决主要问题了。

我在母表里把格式列宽 行高 以及打印设置，全都设好 ...

设置好第一张表，后面就自动跟母表一样，没必要设代码去做这些啊

南柯梦否

microyip 发表于 2016-9-20 17:33
设置好第一张表，后面就自动跟母表一样，没必要设代码去做这些啊

嗯。对。   

有个问题，你也看到了  我的母表里有很多行，我把母表所有有数据的都设置成了全边框，用你这个拆分之后，分表里的边框也是和母表的一样，母表到2000格，分表也是2000格。。而不是刚好分表50行 就只框到那里。。这个有没有办法处理呢？  没法的话  就算了。已经解决大的问题了。非常感谢！！

su45

01.zip (20.01 KB, 下载次数: 10)

2016-9-20 18:03 上传

点击文件名下载附件

南柯梦否

su45 发表于 2016-9-20 18:03

非常感谢。已经非常完美的解决了我的问题。

我把VB里面的代码复制到新建表里 去执行，就出问题了，打出来的结果是 第两页半的位置才开始有求和结果，此后都是在半页的位置求和。。不知道是怎么回事。

我复制的是这样：
Sub point()       “这里 我把名称改了”
Application.ScreenUpdating = False
rw = Cells(Rows.Count, 1).End(3).Row
a = 51: m = 2
Do While a < rw + b + 2
    Rows(a).Insert
    Cells(a, 1) = "合计"
    Cells(a, 3) = Application.Sum(Range(Cells(m, 3), Cells(a - 1, 3)))
    Cells(a, 4) = Application.Sum(Range(Cells(m, 4), Cells(a - 1, 4)))
    Cells(a, 6) = Application.Sum(Range(Cells(m, 6), Cells(a - 1, 6)))
    m = a + 1
    If a = rw + b + 1 Then Exit Do
    b = b + 1
    a = a + 50
    If a > rw + b Then a = rw + b + 1
Loop
PrintOut '打印表格
'下面是清除表中的合计行
a = 51
Do While Cells(a, 1) <> ""
    If Cells(a, 1) = "合计" Then
        Rows(a).Delete
    End If
    a = a + 1
Loop
End Sub
打印设置是全0.

su45

应该是你打印设置没设置好。你可以把改过的文件上传上来，我看下。

南柯梦否

su45 发表于 2016-9-21 09:51
应该是你打印设置没设置好。你可以把改过的文件上传上来，我看下。

我把名称‘piont’换了   求和又正常了。。。打印设置那里全0，打出来格式就不行。应该要用你设的那个格式才刚好恰当。还好我记下了。。