实战课堂101|从“用VBA实例超级强化你的Excel效率”到“开启你的财务自由之路”

哇哇哇(⊙o⊙)

现在已经是21世纪“智能时代”滴开端啦啦啦。

然鹅,有些小伙伴们还是停留在“农耕时代”,手动慢慢处理大批量数据吗吗吗~

由于职业原因(吾乃国内某股份行搬金砖运营,非程序猿,也不是攻城狮,关于中国银行业6大层级请参看“小明聚财”往期原创好文《the big ''BANK'' theory》),小明几乎每个工作日都要处理10w+的数据量。

还记得刚交接工作的时候,前同事还是采用最传统的方法处理,如一个一个Excel打开后复制粘贴、一个一个Sheet重复打公式填充,非常耗时。

更令小明抓狂的还有,处理某excel表格前,需要先做“B列移到K列”,“E列移到A列”等步骤。这些繁复步骤的记录用了小明整整一张双面A4纸。

加班几天后,小明感觉实在不是长久之计。

于是小明心想,Microsoft咁腻害(2019年4月30日收盘市值10000亿美元,重返世界之巅,勇夺全球上市公司之冠),Office咁牛X,Excel咁强大,肯定有更有效的方法处理大批量数据的,于是在网上搜索。

图片发自App

网络上提供了两条线索:一是利用同为Office旗下的Access,二是Excel里自带的宏/VBA。

由于在大一基础课程简单学过VB和C编程语言,后者对小明而言更具可操作性,因此开始通过工作上的实例学习研究VBA。

下面是自编自导自演,亲测有效的一段VBA编码。

应用场景:一个Excel中有多个Sheet,现在需要将各个Sheet中的所有数据集中复制到一个新建Sheet上。

进阶功能:可以在各Sheet开启筛选模式,就会复制全部筛选数据。

使用方式:

①打开目标Excel。

②在Sheet上单击右键,选择“查看代码”

③复制以下代码,并粘贴到代码框。

④点击运行,坐等成功,哦耶Y(^o^)Y~

⑤若有疑问,关注“小明聚财”公众号留言添加小明微信交流切磋。

Sub 多Sheet合并()

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

MsgBox "OK啦啦啦,欢迎关注小明聚财"

End Sub

运用VBA后,极大提升了小明工作效率,这是可长期受益的实用技能。

编程改变世界,此言得之!

其实,学习投资理财何尝不是如此?

有小伙伴请教小明,TA也想学习投资理财,开启自己的财务自由之路。

TA的第一想法是“买相关书籍学习阅读,然后平时多看小明聚财等优秀理财公众号的文章”。

答曰:只做对了20%。

韩寒执导电影《后会无期》有句经典台词——听过很多大道理,但依旧过不好这一生。

那是因为你不去实践“大道理”吖,能怪谁~

看书固然重要,但如果木有实践场景,难免很快就遗忘得一干二净。

看文章的时候也不过是略略一扫,觉得跟自己也没啥关系。

如同学习VBA,如果买本专业书,从第一章看到最后一章,大多看了下段就忘了上段。

若是为了解决工作难题,就会根据问题学习某几个章节,不断优化改进,最后解决问题,成就感满满哒~

同理,带着问题去学习,针对性地根据自己在投资理财中遇到的问题,思考探索求教解决之道,成长岂非更快?

别做“好龙”的叶公,嘴上说着对“投资理财”感兴趣,想要实现“财务自由”,行动上却是畏缩不前。

面对所有的投资理财工具,无论新旧,都抱有开放心态。

了解更多,才能选择更好。

同为《后会无期》经典台词——你连世界都没有观过,哪来的世界观。

小明在《我的“大”理财观》中引用过陆游留给子女的一句诗“功夫在诗外”。

今天再引一句——“纸上得来终觉浅,绝知此事要躬行。”

与读者诸君共勉之~

欢迎留言讨论,关注转发打个赏,素质三连来一波。

还想了解更多?欢迎关注同名公众号“小明聚财”,与小明共奔财富自由之路吧(^∇^*)

你可能感兴趣的:(实战课堂101|从“用VBA实例超级强化你的Excel效率”到“开启你的财务自由之路”)