锐客网

  1. 首页 > 睿知 > >

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

经验知识睿知


先不看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代码 。

推荐阅读


上一篇：灰太狼烤羊事件_灰太狼烤羊腿电话

下一篇：水果胡萝卜怎么吃有营养