哇哇哇(⊙o⊙)
现在已经是21世纪“智能时代”滴开端啦啦啦。
然鹅,有些小伙伴们还是停留在“农耕时代”,手动慢慢处理大批量数据吗吗吗~
由于职业原因(吾乃国内某股份行搬金砖运营,非程序猿,也不是攻城狮,关于中国银行业6大层级请参看“小明聚财”往期原创好文《the big ''BANK'' theory》),小明几乎每个工作日都要处理10w+的数据量。
还记得刚交接工作的时候,前同事还是采用最传统的方法处理,如一个一个Excel打开后复制粘贴、一个一个Sheet重复打公式填充,非常耗时。
更令小明抓狂的还有,处理某excel表格前,需要先做“B列移到K列”,“E列移到A列”等步骤。这些繁复步骤的记录用了小明整整一张双面A4纸。
加班几天后,小明感觉实在不是长久之计。
于是小明心想,Microsoft咁腻害(2019年4月30日收盘市值10000亿美元,重返世界之巅,勇夺全球上市公司之冠),Office咁牛X,Excel咁强大,肯定有更有效的方法处理大批量数据的,于是在网上搜索。
网络上提供了两条线索:一是利用同为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,如果买本专业书,从第一章看到最后一章,大多看了下段就忘了上段。
若是为了解决工作难题,就会根据问题学习某几个章节,不断优化改进,最后解决问题,成就感满满哒~
同理,带着问题去学习,针对性地根据自己在投资理财中遇到的问题,思考探索求教解决之道,成长岂非更快?
别做“好龙”的叶公,嘴上说着对“投资理财”感兴趣,想要实现“财务自由”,行动上却是畏缩不前。
面对所有的投资理财工具,无论新旧,都抱有开放心态。
了解更多,才能选择更好。
同为《后会无期》经典台词——你连世界都没有观过,哪来的世界观。
小明在《我的“大”理财观》中引用过陆游留给子女的一句诗“功夫在诗外”。
今天再引一句——“纸上得来终觉浅,绝知此事要躬行。”
与读者诸君共勉之~
欢迎留言讨论,关注转发打个赏,素质三连来一波。
还想了解更多?欢迎关注同名公众号“小明聚财”,与小明共奔财富自由之路吧(^∇^*)