超完美的现金日记账汇总表，你值得拥有！
点击上方蓝字
「Excel不加班」
关注
，
看下一篇
文章图片
恭喜下面3个粉丝：自由人、A杨羽、赣兰熙
， 获得书籍 ， 加卢子微信chenxilu2019
， 发送姓名 ， 电话 ， 地址 。
为了活跃气氛 ，
在文末点亮“在看”+评论区留言 ， 我会从中抽取3名粉丝 ， 每人赠送一本《Excel效率手册 早做完 ， 不加班》 。
曾经写过一篇文章：
接近完美的现金日记账汇总表 ， 你值得拥有！
那时的现金日记账汇总表 ， 是用VBA+公式完成 ， 分成了两步 。 现在卢子看了 ， 有点多此一举 ， 直接VBA一步到位 ， 这样堪称完美 。
每一家银行日记账格式都一样 ， 余额都放在E列 ， 现在要实现将银行还有对应的最后余额提取到汇总表 。
文章图片
先来看最终效果 ， 点下汇总按钮 ， 1秒钟就搞定 ， 还给你一个提示对话框"报告卢子 ， 提取完毕" 。
文章图片
今天就不录制宏了 ， 教你如何在原来的基础上面改代码 。
前面一直有提到目录的代码 。
Sub 目录()
Dim i As Integer
For i = 2 To 6
Range("a" & i) = Sheets(i).Name
Next
End Sub
这个代码其实是不智能的 ， 需要每次都数一下有多少工作表 ， 将6改成Sheets.Count
， 让代码帮你数工作表 。 这样就可以智能的 ， 不管多少工作表都可以 。
更完美的目录提取代码就出来了 。
Sub 目录()
Dim i As Integer
For i = 2 To Sheets.Count
Range("a" & i) = Sheets(i).Name
Next
End Sub
接下来 ， 怎么提取每个银行的E列最后一个有金额的值 。
先不看VBA ， 用技巧实现 。 随便点E列下方空白单元格 ， 按一下Ctrl+↑ ， 就回到E列最后一个有金额的值了 。
推荐阅读
- 【地评线】大众锐评：“不当看客”“闻汛而动”是最美的青春模样
- app|提醒！长沙地铁app和购票机网络故障 请准备好现金购票
- 咪咪侃养生|最适合女人喝的养生茶，养颜美容顺带刮脂，爱美的你不能错过
- 顾佳|《三十而已》八面玲珑的顾佳：完美的全职太太全是伪装 我们都被她骗了
- 小偷|七旬老人家中8000余元现金被盗 小偷是楼上邻居
- 黄新淳|《完美的夏天》定档啦！阿云嘎黄新淳助阵不说，得知女嘉宾我爱了
- 《中国地理杂志》评选最美的地方，谢娜被美哭！不去后悔一辈子！
- 法制|车辆玻璃被砸 车内20万元现金被盗
- 社会的发展|老人电信缴费被拒收现金, 想把老人踢出局, 营业员: 拒收现金违法
- 壹号美食公馆|鲜香味美的黑椒脆皮五花肉，外脆里嫩，肥而不腻，大人小孩都爱吃