银行日记账多个sheet合并，知道所有数据明细

abc11223345 · 发表于 2017-11-25 19:03

本帖最后由 abc11223345 于 2017-11-26 16:01 编辑

2016年工商银行存款日记账excel001.rar (9.07 KB, 下载次数: 146)

lufton · 发表于 2017-12-10 09:30

VBA合并工作表解决
Sub hz()
Dim sh As Worksheet, i%, rng As Range
For Each sh In Worksheets
If sh.Name <> "汇总" Then
i = sh.Range("a65536").End(xlUp).Row
Set rng = Worksheets("汇总").Range("a65536").End(xlUp).Offset(1, 0)
rng.Select
sh.Range("a3", "f" & i).Copy rng
End If
Next
End Sub

dhslxx · 发表于 2017-12-12 08:51

此类问题使用“EXCEL集成系统”可以一劳永逸的解决。

jevenjiang · 发表于 2017-12-13 15:30

lufton 发表于 2017-12-10 09:30
VBA合并工作表解决
Sub hz()
Dim sh As Worksheet, i%, rng As Range

最好是再加行代码，意思是再次汇总时则将原有的数据清空。

uulov · 发表于 2018-1-7 19:51

谢谢分享。

abc11223345 · 发表于 2018-3-15 15:11

lufton 发表于 2017-12-10 09:30
VBA合并工作表解决
Sub hz()
Dim sh As Worksheet, i%, rng As Range

谢谢了，完全ok的。祝您生活愉快，家庭幸福

lxs088 · 发表于 2018-3-16 08:08

谢谢楼主分享！

		自动登录	找回密码
密码			免费注册

[求助] 银行日记账多个sheet合并，知道所有数据明细