[已解决][求助] 如何把表一的表未数据批量复制到另一个表的尾行并....

superchenk

[求助] 如何把表一的表未数据批量复制到另一个表的尾行并且有三个单元格有求和。谢谢

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-4-5 17:00

看附件，点附件中的按钮就好了。

跳转到最佳答案楼层

superchenk

求助，有N多个表要加表尾~直接复制粘贴太麻烦了

gufengaoyue

看附件，点附件中的按钮就好了。

superchenk

gufengaoyue 发表于 2016-4-5 17:00
看附件，点附件中的按钮就好了。

谢谢，但是不是要合并啊，是将每个分表都加页尾那4行数据，并且每个分表都要求和~。

superchenk

superchenk 发表于 2016-4-5 17:20
谢谢，但是不是要合并啊，是将每个分表都加页尾那4行数据，并且每个分表都要求和~。

gufengaoyue

superchenk 发表于 2016-4-5 17:24

哦。知道了。
3楼附件已更新。你再看看吧。

superchenk

gufengaoyue 发表于 2016-4-5 17:40
哦。知道了。
3楼附件已更新。你再看看吧。

谢谢，非常感谢。~~

superchenk

gufengaoyue 发表于 2016-4-5 17:40
哦。知道了。
3楼附件已更新。你再看看吧。

谢谢您，
还有点不明白的地方，
如果求和的位置发生了变化，如图，中间有一个空格。
那么这一行该怎么改呢？
Sht.Cells(Rows.Count, "j").End(3).Offset(-1).Resize(1, 4) = "=sum(j3:j" & UBound(arr) & ")"



知道了~改成
Sht.Cells(Rows.Count, "e").End(3).Offset(1).Resize(1, 3) = "=sum(e3:e" & UBound(arr) & ")"            Sht.Cells(Rows.Count, "i").End(3).Offset(1).Resize(1, 1) = "=sum(i3:i" & UBound(arr) & ")"

gufengaoyue

superchenk 发表于 2016-4-6 09:54
谢谢您，
还有点不明白的地方，
如果求和的位置发生了变化，如图，中间有一个空格。

如果是从E列开始到I列，共5列，就把j改成e,把4改成5,H列的不要，最后一行的字段就写h
            Rw = Sht.[e2].End(4).Offset(1).Row
            Sht.Cells(Rw, "e").Resize(1, 5) = "=sum(e3:e" & UBound(arr) & ")"
            Sht.Cells(Rw, "h").ClearContents

superchenk

gufengaoyue 发表于 2016-4-6 10:47
如果是从E列开始到I列，共5列，就把j改成e,把4改成5,H列的不要，最后一行的字段就写h
            Rw =  ...

谢谢你~非常感谢