现金日记账模板百度云现金日记账模板图片( 二 )

先不看VBA ，用技巧实现。随便点E列下方空白单元格，按一下Ctrl+↑ ，就回到E列最后一个有金额的值了。
在最后余额的下方，选一个没有内容的空单元格。比如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代码。

现金日记账模板百度云 现金日记账模板图片( 二 )

现金日记账模板百度云现金日记账模板图片( 二 )