江苏龙网

  1. 首页 > 资讯 > 资讯 > >

超完美的现金日记账汇总表，你值得拥有！( 二 )


超完美的现金日记账汇总表，你值得拥有！
文章图片


在最后余额的下方 ， 选一个没有内容的空单元格 。 比如E3000 ， E5000都行 ， 因为余额在哪个单元格不确定 ， 为了确保在这个单元格的下方 ， 直接写一个非常大的单元格 ， 比如E60000 ， 也就是Range("E60000")
。

方向有下左右上 ， xlup就是上 ， 也就是Range("E60000").End (xlUp)
。
超完美的现金日记账汇总表，你值得拥有！
文章图片


向上以后 ， 是要提取这个单元格的值Value
， 也就是Range("E60000").End(xlUp).Value
。
超完美的现金日记账汇总表，你值得拥有！
文章图片


到此 ， 需要的都有了 。
Sub 汇总()
Dim i As Integer
For i = 2 To Sheets.Count
Range("a" & i) = Sheets(i).Name
Range("b" & i) = Sheets(i).Range("E60000").End(xlUp).Value
Next
End Sub

如果要发给其他人使用 ， 经常会加个提示对话框MsgBox "报告卢子 ， 提取完毕"
， 不加也行 ， 没啥影响 。

最终代码 。
Sub 汇总()
Dim i As Integer
For i = 2 To Sheets.Count
Range("a" & i) = Sheets(i).Name
Range("b" & i) = Sheets(i).Range("E60000").End(xlUp).Value
Next
MsgBox "报告卢子 ， 提取完毕"
End Sub

将原来的内容清除掉 ， 运行代码 ， 验证效果 。
超完美的现金日记账汇总表，你值得拥有！
文章图片


会点技巧、公式 ， 借鉴思路 ， 从而实现写各种VBA代码 。

VIP
888
元 ， 一次报名 ， 所有视频课程 ， 终生免费学 ， 提供一年在线答疑服务 。


超完美的现金日记账汇总表，你值得拥有！
文章图片


报名后加卢子微信chenxilu2019
， 发送报名截图邀请进群 。

推荐：一键搞定！根据总表生成多个分表 ， 根据分表生成目录
上篇：日报、月报不发愁 ， 再也不用一个个操作 ， 一次全搞定
超完美的现金日记账汇总表，你值得拥有！
文章图片

学了5天VBA ， 有没感觉到 ， 其实VBA也不是很难 ， 以前那些很难实现或者很繁琐的事儿交给VBA就对了 ， 全自动生成 。

超完美的现金日记账汇总表，你值得拥有！
文章图片


作者：卢子 ， 清华畅销书作者 ， 《Excel效率手册 早做完 ， 不加班》系列丛书创始人 ， 个人公众号：Excel不加班（ID：Excelbujiaban）


推荐阅读


上一篇：上海一男子赤身裸体跨骑路牌拍照，警方：刑拘！

下一篇：孩子每乱丢一次东西，就悄悄聪明一点