现金日记账电子表格(现金日记账电子表格下载)
现金日记账电子表格(现金日记账电子表格下载)
原创作者： 卢子 转自：Excel不加班
那时的现金日记账汇总表，是用VBA+公式完成，分成了两步。现在卢子看了，有点多此一举，直接VBA一步到位，这样堪称完美。
每一家银行日记账格式都一样，余额都放在E列，现在要实现将银行还有对应的最后余额提取到汇总表。
先来看最终效果，点下汇总按钮，1秒钟就搞定，还给你一个提示对话框报告卢子，提取完毕。
今天就不录制宏了，教你如何在原来的基础上面改代码。
前面一直有提到目录的代码。
Sub 目录
Dim i As Integer
For i = 2 To 6
Range(a a 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 b E60000).End(xlUp).Value
Next
End Sub
如果要发给其他人使用，经常会加个提示对话框MsgBox 报告卢子，提取完毕，不加也行，没啥影响。
最终代码。
Sub 汇总
Dim i As Integer
For i = 2 To Sheets.Count
Range(a b E60000).End(xlUp).Value
Next
MsgBox 报告卢子，提取完毕
End Sub
将原来的内容清除掉，运行代码，验证效果。
会点技巧、公式，借鉴思路，从而实现写各种VBA代码。