哇哇哇(⊙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，如果买本专业书，从第一章看到最后一章，大多看了下段就忘了上段。
若是为了解决工作难题，就会根据问题学习某几个章节，不断优化改进，最后解决问题，成就感满满哒~
同理，带着问题去学习，针对性地根据自己在投资理财中遇到的问题，思考探索求教解决之道，成长岂非更快？
别做“好龙”的叶公，嘴上说着对“投资理财”感兴趣，想要实现“财务自由”，行动上却是畏缩不前。
面对所有的投资理财工具，无论新旧，都抱有开放心态。
了解更多，才能选择更好。
同为《后会无期》经典台词——你连世界都没有观过，哪来的世界观。
小明在《我的“大”理财观》中引用过陆游留给子女的一句诗“功夫在诗外”。
今天再引一句——“纸上得来终觉浅，绝知此事要躬行。”
与读者诸君共勉之~
欢迎留言讨论，关注转发打个赏，素质三连来一波。
还想了解更多？欢迎关注同名公众号“小明聚财”，与小明共奔财富自由之路吧(^∇^*)
