工作被效率更高的机器抢了是什么体验？ - 知乎18957被浏览2637221分享邀请回答1.3K92 条评论分享收藏感谢收起1.7K210 条评论分享收藏感谢收起更多6 个回答被折叠（）与世界分享知识、经验和见解工作被效率更高的机器抢了是什么体验？
我的图书馆
工作被效率更高的机器抢了是什么体验？
科技的发展大幅度地解放了人力，大大提高了工作效率，原来十个人一天的工作量被机器一分钟完成，原来的工人或许需要面临失业，但是技术的发展也催生了新的工作岗位，带给人们更轻松的体验，也让人不由得担心，会不会有朝一日，我们所有的工作都被机器取代，到那个时候，我们又该何去何从？看看知友们是否有这样的经历：
Wicky Liang：第一感受就是，能者确实可以多劳，原先七个人的工作量现在被三个人分摊，大家还能带薪炒股群聊刷知乎。第二感受，能提高效率的工具层出不穷，于是这年代，可以不会做，但不能不会问、不会搜。第三感受，长江后浪推前浪，如果停止了学习，就不要怪后辈比自己强。
Xiuquan Yu：未来，你的薪水高低将取决于你能否和机器人默契配合。90% 的同事将会是看不见的机器，而没有他们，你的大部分工作将无法完成。这一切都是必然的。让机器人代替我们从事现在的工作，让我们在它们的帮助下去构想有意义的新工作吧。
冀钦：曾经校对员是技术含量相当高的工种，后来出现了一款软件叫黑马校对，可以自动从书稿里找出错别字、格式错误乃至民族宗教政治等方面的错误，能精确到领导人排序自动调整的水平，不清真的书稿在里面过一遍就清真了。一本书的全过程，除了必要的行政手续之外，策划、组稿、选题、立项、编辑加工、校对、排版、装帧设计、印刷、营销，我自己一个人全能做下来，多么有成就感！
闲者秋山简单的描述一下自己每天的主要工作。下载对账单，对账，检验下属店铺是否准时存款。（每个店铺的规则都不一样）整个团队，十多个人的工作。原本需要加班加点才能完成。（因为下载很费时间，下载后还是txt格式，要手工转成excel，或者人工拖到底看total数字核对。每个人每天要对40-50个店铺，用这种方法的确很费时间）我用VBA开发自动下载对账单和自动核对的程序。压缩到一个人10分钟可以完成所有人的工作量。并且可以完成做账。效率提升大概最少有400多倍的样子。。。但大家解脱后并没有想象中的欢欣雀跃。反而都有点怀疑自己的价值……我也没有迎来升职加薪，反而引起了上层的警惕……要求大家不能过分依赖技术……怕万一哪天我离职了，会导致一个部门的瘫痪……我想起来朋友圈那篇文章---------未来的穷人连剥削的价值都没有。。连我这样的非程序员的财务人员，都可以研究一些技术来取代一整个团队的工作。那么，其他一些行业的工作完全可能是故意留着饭碗给我们，以便我们不要被饿死罢了 。
未经允许不得转载： ?
馆藏&347939
TA的推荐TA的最新馆藏&img src=&/v2-38ec23e0d99d671f28a4_b.png& data-rawwidth=&1920& data-rawheight=&707& class=&origin_image zh-lightbox-thumb& width=&1920& data-original=&/v2-38ec23e0d99d671f28a4_r.png&&&p&想要制作一份优秀的幻灯片，需要掌握、运用的可不止PPT这一款软件，有些工具能帮我们迅速理清逻辑，有些效果在PPT中又无法实现，因此掌握系相关工具运用也十分重要。&/p&&p&&strong&【1】常用插件&/strong&&/p&&p&&strong&一、Nordri Tools&/strong&&/p&&p&NordriTools是PPT最常用插件之一。许多在PPT需几步完成的操作，NT一步就能完成。&/p&&img src=&/v2-9385223dbaf0f99f01683fdac1649af1_b.jpg& data-rawwidth=&2483& data-rawheight=&1420& class=&origin_image zh-lightbox-thumb& width=&2483& data-original=&/v2-9385223dbaf0f99f01683fdac1649af1_r.jpg&&&p&官网可以免费下载。&/p&&p&-----------------------------------&/p&&p&&strong&二、OneKey插件&/strong&&/p&&p&最好用的PPT设计插件，许多PS中效果现在用PPT就能直接完成。（下载微博@只为设计）&/p&&img src=&/v2-c33a999f3d5f88e1316fbdf60eb1c733_b.jpg& data-rawwidth=&635& data-rawheight=&361& class=&origin_image zh-lightbox-thumb& width=&635& data-original=&/v2-c33a999f3d5f88e1316fbdf60eb1c733_r.jpg&&&p&-----------------------------------&/p&&p&&strong&三、PPT美化大师&/strong&&/p&&p&美化大师也是非常好用的一款PPT插件，倚靠WPS平台在线素材、资源库里很丰富。还提供内容规划功能。&/p&&img src=&/v2-affacdf46de45e3b40d5_b.png& data-rawwidth=&1345& data-rawheight=&729& class=&origin_image zh-lightbox-thumb& width=&1345& data-original=&/v2-affacdf46de45e3b40d5_r.png&&&br&&p&&strong&四、PA口袋动画&/strong&&/p&&p&为PPT动画而生的一款插件。原本十分复杂的效果用PA去制作会高效许多。&/p&&img src=&/v2-3b16aa1010f19cfa1f57f0dd6f76d7af_b.png& data-rawwidth=&2736& data-rawheight=&329& class=&origin_image zh-lightbox-thumb& width=&2736& data-original=&/v2-3b16aa1010f19cfa1f57f0dd6f76d7af_r.png&&&img src=&/v2-da776e92833f85fef0b9a_b.png& data-rawwidth=&1436& data-rawheight=&706& class=&origin_image zh-lightbox-thumb& width=&1436& data-original=&/v2-da776e92833f85fef0b9a_r.png&&&p&-----------------------------------&/p&&p&&strong&【2】&/strong&&strong&内容整理&/strong&&/p&&p&评价一份PPT的优劣，最后还是回归内容，这也是PPT作为演示软件的初衷。所以内容简洁、逻辑清晰就显得十分重要了。推荐用思维导图或Markdown来整理内容。&/p&&p&&strong&一、思维导图&/strong&&/p&&p&做PPT之前，可以先用思维导图整理完内容再开始。制作思维导图工具有许多，以Xmind和幕布为例。&/p&&p&&strong&① Xmind&/strong&&br&&/p&&p&譬如做PPT之前，若是用思维导图整理好内容再开始，效率其实高很多。&br&&/p&&p&&img src=&/v2-51b71a0df4dbd6a2c096fc98_b.png& data-rawwidth=&1658& data-rawheight=&1941& class=&origin_image zh-lightbox-thumb& width=&1658& data-original=&/v2-51b71a0df4dbd6a2c096fc98_r.png&&&br&（↑之前医院小讲课所做）&/p&&p&-----------------------------------&/p&&p&&strong&② 幕布&/strong&&/p&&p&幕布是一款在线非常好用的思维概要整理工具，用来记笔记十分方便，还支持将笔记转成思维导图。用Markdown书写文档速度快很多，逻辑也更加清晰。&/p&&img src=&/v2-e846b03fa39f5f057b75_b.png& data-rawwidth=&1738& data-rawheight=&919& class=&origin_image zh-lightbox-thumb& width=&1738& data-original=&/v2-e846b03fa39f5f057b75_r.png&&&p&-----------------------------------&/p&&p&&strong&二、Markdown&/strong&&/p&&p&Markdown是一种简单的标记语言，通过简单的标记符号，它可以使普通文本内容具有一定的格式。&/p&&p&&strong&①
马克飞象&/strong&&/p&&p&Evernote的第三方工具，支持Markdown语法，还可随时同步笔记至Evernote。&/p&&img src=&/v2-cc521f2a0fd9bed5fb608_b.png& data-rawwidth=&2736& data-rawheight=&1744& class=&origin_image zh-lightbox-thumb& width=&2736& data-original=&/v2-cc521f2a0fd9bed5fb608_r.png&&&p&-----------------------------------&/p&&p&②
Cmd Markdown编辑阅读器&/p&&p&MD工具有很多，不一一列举，更多请看这篇：&/p&&p&&strong&&a href=&/?target=http%3A//mp./s%3F__biz%3DMzAxMTI2MDc0MQ%3D%3D%26mid%3D%26idx%3D1%26sn%3D6b9d697a0a302bchksm%3D80a4da38b7da7befe68af785ab4ca524b%26scene%3D21%23wechat_redirect& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&为什么要用Markdown写作？&i class=&icon-external&&&/i&&/a&&/strong&&/p&&p&-----------------------------------&/p&&p&&strong&【3】风格设计&/strong&&/p&&p&&strong&一、图标云&/strong&（&a href=&/?target=http%3A///& class=& external& target=&_blank& rel=&nofollow noreferrer&&&span class=&invisible&&http://&/span&&span class=&visible&&/&/span&&span class=&invisible&&&/span&&i class=&icon-external&&&/i&&/a&）&/p&&p&图标背景在线制作工具。&/p&&p&&strong&二、文字云&/strong&（&a href=&/?target=https%3A///& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&Tagul - Word Cloud Art&i class=&icon-external&&&/i&&/a&）&/p&&p&在线制作文字云的工具。&/p&&p&&strong&三、百度图说&/strong&&/p&&p&在线制作可视化图表工具。&/p&&img src=&/v2-20f5c82c00b_b.jpg& data-rawwidth=&2719& data-rawheight=&1315& class=&origin_image zh-lightbox-thumb& width=&2719& data-original=&/v2-20f5c82c00b_r.jpg&&&p&&strong&四、Lowpoly在线生成&/strong&（&a href=&/?target=http%3A///trianglify-generator/& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&Trianglify Generator&i class=&icon-external&&&/i&&/a&）&/p&&p&在线制作Lowpoly工具，可手动调节背景尺寸。&/p&&img src=&/v2-5cfce6fd1edb_b.jpg& data-rawwidth=&2702& data-rawheight=&1476& class=&origin_image zh-lightbox-thumb& width=&2702& data-original=&/v2-5cfce6fd1edb_r.jpg&&&p&&strong&五、蒙太奇风格工具&/strong&（AndreaMosaic）&/p&&p&蒙太奇是一种拼接手法，在平面中大致有这样效果。&/p&&img src=&/v2-ddef5d8e11a32a3b32fd_b.jpg& data-rawwidth=&1096& data-rawheight=&1116& class=&origin_image zh-lightbox-thumb& width=&1096& data-original=&/v2-ddef5d8e11a32a3b32fd_r.jpg&&&p&&br&这款工具使用也十分简单，之后写文章详细介绍。&/p&&p&&strong&六、Collagelt&/strong&&/p&&p&图片墙工具，用来制作背景、拼图等。&/p&&img src=&/v2-3c61db35c025a1b60e0a70a986c37650_b.jpg& data-rawwidth=&1270& data-rawheight=&1048& class=&origin_image zh-lightbox-thumb& width=&1270& data-original=&/v2-3c61db35c025a1b60e0a70a986c37650_r.jpg&&&p&-----------------------------------&/p&&p&当然除此之外，Photoshop、illustrator等也都是制作PPT常用工具，避免篇幅过长就不逐一叙述，之后慢慢讲。&/p&&br&&p&其他文章：&/p&&p&&a href=&/p/& class=&internal&&高手之路，一套基础的PPT视频教程~ - 大梦Power的文章 - 知乎专栏&/a&&br&&/p&&p&&a href=&/p/& class=&internal&&让人欲罢不能的马赛克神器：MagicVoxel - 高手之路 - 知乎专栏&/a&&br&&/p&&p&&a href=&/p/& class=&internal&&一分钟，照片轻松调出电影色调。 - 高手之路 - 知乎专栏&/a&&br&&/p&&p&&a href=&/p/& class=&internal&&私藏，老司机的素材库~（不定更新） - 高手之路 - 知乎专栏&/a&&br&&/p&&p&&br&感谢阅读，更多文章欢迎移步微信公众号：DAMEN_PPP，希望有帮助。&br&&br&顺颂时祺。&/p&
想要制作一份优秀的幻灯片，需要掌握、运用的可不止PPT这一款软件，有些工具能帮我们迅速理清逻辑，有些效果在PPT中又无法实现，因此掌握系相关工具运用也十分重要。【1】常用插件一、Nordri ToolsNordriTools是PPT最常用插件之一。许多在PPT需几步完成的操…
先说结论，VBA依旧是办公利器。以我的个人经历而言，在BCG做过三年咨询顾问，写了上万行的VBA程序，每个项目一千至几千行程序不等。最后将Excel用成了中控界面，类似EMACS，在Excel可以随意操控全公司的打印机、Word、Powerpoint等等，自动完成各种任务以及数据更新和抓取。依靠VBA，在效率上是一般同事的数倍甚至是高一个量级，你说VBA还是不是办公利器？&br&&br&不过题主得到的反馈也正常，许多高级程序员确实瞧不上VBA。因为程序员是有鄙视链的：汇编 &C &C++ &Python &Java及C#及PHP（这三者相互撕） &VB &HTML。在这长长的鄙视链中，甚至都没有VBA的位置。&br&&br&但是Office+VBA是图灵完备的，所以被程序员用来耍酷的各类性感语言能实现的大部分功能，VBA都能实现，而且往往是以更高效更快捷的方式，在这里不谈效率和优雅。较之Python等常用语言，VBA各有攻防各有优缺点。Python的优势当然是扩展性强、超越Office环境之后的适用性强、资源丰富以及效率高，而VBA的优点如下：&br&&ul&&li&环境不依赖，只需要打开装机自带的Office，然后按下Alt+F11就自动进入编程和执行环境&/li&&li&上手简单，学习曲线很平缓，甚至可以更简单的通过录制宏来解决写程序的问题，只需要在简单的代码基础上修修补补就可以执行，参考&a href=&/question//answer/& class=&internal&&Excel VBA 如何快速学习？ - 何明科的回答&/a&&br&&/li&&li&与办公环境完美兼容，在Excel/Word/Powerpoint/Outlook/Access之间随便穿梭，比胶水语言还要简单易用&/li&&li&分享性和移植性很强，几乎所有测试通过的程序放到别的机器上也可轻易执行（如果不考虑各种本地文件位置）&/li&&/ul&&br&基于以上的优劣势对比，VBA仍然是当之无愧的办公利器之王。而且大家不用太在乎手中的工具（VBA还是Python或者其他），核心还是使用工具的人以及人的思考。&br&&br&下面列举Office+VBA实现的若干功能，真正为职场人士省时省事省力。大部分内容在回答（&a href=&/question//answer/& class=&internal&&Excel 到底有多厉害？ - 何明科的回答&/a&）中已经出现过。不愿意点击过去阅读的，直接看下面的克隆内容。&br&&br&&b&1、批量修改格式&/b&&br&下图是利用Powerpoint中录制的宏再加上稍微修改的代码（甚至都称不上是改代码，大部分是改参数），将Powerpoint中所有的字体及字号进行统一修改。常做PPT而且需要根据老板的喜好改来改去的同学们，知道这个批处理功能有多么救命。&br&&img src=&/573d74cb3d835acefab6e_b.png& class=&content_image&&&br&&br&&b&2、批量完成打印&/b&&br&刚进职场的新人，只要爸爸不是李刚，基本都做过影帝影后（影=印，各种复印打印的体力劳动）。特别是咨询投行服务行业，在大忽悠会议之前之后，花数小时或者整晚来打印数个文件，并不是天方夜谭。而且这件事情是对着同样一堆不断修改的文件，会经常不断重复发生。&br&&br&我写的第一个VBA程序就是完成对100多张Excel表格的自动打印，因为是第一个VBA程序，所以比较挫，基本上是宏录制之后来改的，没有使用参考书及搜索引擎，全靠F1和自动提示，所以贴出来特别纪念一下。但也让大家清楚VBA上手也多么容易。实现的功能就是将每周都要做一次的100多张表格的按顺序打印让机器自动做一遍，而且需要防卡纸：按下一个“妞”，就慢慢美妙结果的发生。&br&&img src=&/e7cd68bf4a6f60b935a05f5_b.png& data-rawwidth=&676& data-rawheight=&424& class=&origin_image zh-lightbox-thumb& width=&676& data-original=&/e7cd68bf4a6f60b935a05f5_r.png&&后来这个程序的升级版是：调度多台打印机，进一步提高效率，以及将打印机卡纸造成队列错误的概率降到极小的范围内。&br&&br&&b&3、制作炫目视觉效果（图表、动画及油画）&/b&&br&图表制作是每个Office一族的必备任务，制得一手好表格，绝对是升职加薪和偷懒放风的利器。在回答（&a href=&/question//answer/& class=&internal&&黄焖鸡米饭是怎么火起来的？ - 何明科的回答&/a&），就利用Excel+VBA做出数张炫酷的信息地图，利用VBA为每个省的图形涂色。&br&&img src=&/71d4c477d5dcc8ced48cdd_b.png& data-rawwidth=&1373& data-rawheight=&584& class=&origin_image zh-lightbox-thumb& width=&1373& data-original=&/71d4c477d5dcc8ced48cdd_r.png&&（涂色部分来自于网上的一段程序，制作GIF动画的是自己完成的）&br&&br&同时，为了进一步增强炫酷结果，还利用VBA将这些连续变化的图表做成了GIF动画。&br&&img src=&/8a517ecb76ee9144e6beb_b.png& data-rawwidth=&1197& data-rawheight=&589& class=&origin_image zh-lightbox-thumb& width=&1197& data-original=&/8a517ecb76ee9144e6beb_r.png&&&br&另外还可以利用Excel，把心仪妹子的图片拿到手，然后用Excel化成点阵图并进行油画效果的处理，然后送给她撩一撩。&br&&img src=&/ae03578effcf9a205d0ad3c267d9eaa6_b.png& class=&content_image&&&br&&b&4、&/b&&b&撰写&/b&&b&八股文&/b&&br&这是帮朋友实现的一个项目，他们实验室是研究某类事故并对重大事故进行鉴定，最后发布word版的正式报告。之前的工作流程是在专业的软件中完成计算和仿真，最后按照正式报告八股文的行文，把各种关键信息填进去，最后写成Word文件。写报告的过程枯燥而没有技术含量，但却要反复进行。&br&&br&通过下图的Word+VBA，完成主要的交互界面并连接计算软件。在通过简单的交互获取主要信息后，在后台完成计算并将主要信息填写入八股文的Word模版，最终完成报告，同时将结构化的信息存入Access数据库。&br&&img src=&/7ad306a95db0a7197aa7_b.png& data-rawwidth=&866& data-rawheight=&521& class=&origin_image zh-lightbox-thumb& width=&866& data-original=&/7ad306a95db0a7197aa7_r.png&&&br&&b&5、管理项目及同步内容&/b&&br&这是协助某国际大型汽车制造厂完成新品牌及其新款车型上市，面临车型即将断档的窘境，该新车型的上市非常关键，不能错失时间节点。然而，新车型上市涉及到无数分支：制造、产品、市场、渠道、营销、公关、财务等等，同时还要协调欧洲的两个总部以及中国的两个分部。&br&&br&这次咨询的核心任务就是项目管理，总控整个大项目的进度，并每周向中国区的CEO汇报进度并发掘出易出现问题的关键节点以调配资源。我们4个咨询顾问分配下去各自负责几个部门或者项目分支，和团队一起规划流程、画甘特图、确认里程碑及时间点、安排负责人等等。当每天回到办公室大家将进度汇总在一起的时候发现了挑战及难点，每条任务线并不是独立发展的，而是各条任务线交织在一起并互相影响。&br&&ul&&li&某些核心人员在多个任务线出现。比如：负责预算的财务人员，几乎要出现在各条线中负责相关预算的审批环节&/li&&li&某些任务线的里程碑是其他任务线里程碑的必要条件而相互关联。比如：新车的下线时间影响发布会的时间，相关法规测试的通过又影响车辆的下线时间等等&/li&&/ul&&br&当任务线增多以及任务线之间的交叉越发频繁的时候，汇总的任务将会几何级数增加，这就是我们在项目过程中遇到的问题。于是我利用Excel+VBA完成了这个工作的自动化。主要实现的功能：&br&&ul&&li&自动将4个顾问手中分散的Excel文件汇集在一起形成一个大的总表，如下图&/li&&li&各顾问手中的表格是按照部门维度来划分的，汇总后需要按照不同的维度来输出不同类型的表格，比如：按任务线输出表格、按责任人输出表格、所有延误任务的表格、所有需要资源重点投入任务的表格等等&/li&&/ul&&img src=&/735d490e3ccd5ada806bc31_b.png& data-rawwidth=&921& data-rawheight=&663& class=&origin_image zh-lightbox-thumb& width=&921& data-original=&/735d490e3ccd5ada806bc31_r.png&&&br&在此基础之上，还要将上面提到的各种维度下的所有表格（大概有200多张），按要求格式粘贴到PPT中，每周提交给中国区的总部进行汇报和评估。密密麻麻的表格如下图。于是，我又写了一个程序将Excel中的表格输出到Powerpoint中，将一个秘书每次需要数小时才能完成的工作，简化成了一键发布，并可以在Excel中完成对PPT的更新。&br&&img src=&/532ae9df984_b.png& data-rawwidth=&1725& data-rawheight=&745& class=&origin_image zh-lightbox-thumb& width=&1725& data-original=&/532ae9df984_r.png&&&br&这个项目的程序量不小，近似于写了一个迷你版的Microsoft Project来进行项目管理。&br&&img src=&/d327e4e90bd0f33adbffa_b.png& data-rawwidth=&1841& data-rawheight=&813& class=&origin_image zh-lightbox-thumb& width=&1841& data-original=&/d327e4e90bd0f33adbffa_r.png&&&br&最后，下图中密密麻麻的PPT每周需要更新一次，每次都是快100张的工作量，然而基本上都是靠Excel来自动完成更新的。因为PPT的模版每次变化不大，我将这些模版记录下来，每周更新的时候只要根据Excel中最新的数据更改PPT中的数据即可。&br&&img src=&/14ce50e4e2fc80b04ac669d_b.png& data-rawwidth=&1709& data-rawheight=&757& class=&origin_image zh-lightbox-thumb& width=&1709& data-original=&/14ce50e4e2fc80b04ac669d_r.png&&&br&&br&&b&6、海量下载Bloomberg数据并完成分析&/b&&br&通过Bloomberg的VBA API，海量下载数百只目标股票的tick data以及order book。&br&&img src=&/dc2c5a0e7d339fed7ab5979_b.png& data-rawwidth=&930& data-rawheight=&273& class=&origin_image zh-lightbox-thumb& width=&930& data-original=&/dc2c5a0e7d339fed7ab5979_r.png&&&br&并根据实现构建好的数学模型，在后台完成计算，将上述的实时数据转化成每只股票实时的trading cost，实时展现在交易员最常用的Excel界面中，方便交易员评估当下的交易成本以便于优化交易策略。&br&&img src=&/c1ab8cb20657c8_b.png& data-rawwidth=&1205& data-rawheight=&222& class=&origin_image zh-lightbox-thumb& width=&1205& data-original=&/c1ab8cb20657c8_r.png&&&br&&br&&blockquote&更多文章请到&a href=&/hemingke& class=&internal&&数据冰山 - 知乎专栏&/a&&br&更多回答请看&a href=&/people/he-ming-ke& class=&internal&&何明科的主页&/a&&/blockquote&
先说结论，VBA依旧是办公利器。以我的个人经历而言，在BCG做过三年咨询顾问，写了上万行的VBA程序，每个项目一千至几千行程序不等。最后将Excel用成了中控界面，类似EMACS，在Excel可以随意操控全公司的打印机、Word、Powerpoint等等，自动完成各种任务以及…
&img src=&/v2-ca39f916d7d30dccf4ca2a2ef596077d_b.jpg& data-rawwidth=&640& data-rawheight=&273& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-ca39f916d7d30dccf4ca2a2ef596077d_r.jpg&&&p&其实复杂的东西都是可以简单化的，就算是PPT也一样，我们通常以为很复杂的图形，其实通过一个简单的辅助网站或者工具就可以轻松解决，所以，利兄今天就整理了6个非常好用的PPT辅助网站。&/p&&p&公众号：利兄日志
ID：yingxiaoxinren
&br&&/p&&p&&strong&1、Flat Surface Shader&/strong&&/p&&p&这是一个在线制作&strong&lowpoly背景&/strong&的网站，我们可以直接调节低面的多个参数来实现我们想要的效果，操作非常简单，用来做ppt的背景非常棒。&br&&/p&&img src=&/v2-f4af8eade3dc62a875f5e9_b.jpg& data-rawwidth=&903& data-rawheight=&465& class=&origin_image zh-lightbox-thumb& width=&903& data-original=&/v2-f4af8eade3dc62a875f5e9_r.jpg&&&img src=&/v2-dd98e5c90b78f5e43e6f104d98f95d9a_b.jpg& data-rawwidth=&640& data-rawheight=&414& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-dd98e5c90b78f5e43e6f104d98f95d9a_r.jpg&&&br&&p&&strong&2、Weavesilk&/strong&&br&&/p&&p&weavesilk是一个&strong&光线的绘画&/strong&网站，可以用鼠标绘制一些简单但是很科幻的图，支持直接保存为jpg，用做PPT的背景非常的合适~&br&&/p&&img src=&/v2-ca39f916d7d30dccf4ca2a2ef596077d_b.jpg& data-rawwidth=&640& data-rawheight=&273& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-ca39f916d7d30dccf4ca2a2ef596077d_r.jpg&&&img src=&/v2-3f113ce114cd38c679783d_b.jpg& data-rawwidth=&1264& data-rawheight=&493& class=&origin_image zh-lightbox-thumb& width=&1264& data-original=&/v2-3f113ce114cd38c679783d_r.jpg&&&br&&p&&strong&3、Uigradients&/strong&&br&&/p&&p&还有一个可以制作&strong&渐变色&/strong&的网站（&a href=&/?target=http%3A///& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&uiGradients - Beautiful colored gradients&i class=&icon-external&&&/i&&/a&），调整一下可以制作出很好看的PPT背景哦&br&&/p&&img src=&/v2-e2ed40d6988ffed1de92adc0d3be5b3b_b.jpg& data-rawwidth=&640& data-rawheight=&235& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-e2ed40d6988ffed1de92adc0d3be5b3b_r.jpg&&&br&&p&&b&4、smallpdf&/b&&br&&/p&&p&号称可以免费解决pdf的所有问题，其中包括PPT和PDF的互相转换，以及PDF文件的合并及分割。&/p&&img src=&/v2-a88c733d8ad96f2f3d51b2eff1efc48f_b.jpg& data-rawwidth=&640& data-rawheight=&287& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-a88c733d8ad96f2f3d51b2eff1efc48f_r.jpg&&&br&&p&&strong&5、Tagul&/strong&&/p&&p&Tagul是一个&strong&文字云&/strong&的在线生成网站，我们可以用它轻松实现我们想要的文字效果。&/p&&img src=&/v2-fd8fb7c8d22caeeeafc428_b.jpg& data-rawwidth=&640& data-rawheight=&569& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-fd8fb7c8d22caeeeafc428_r.jpg&&&img src=&/v2-42cbaa9cd7b41e0fa5c06f1_b.png& data-rawwidth=&705& data-rawheight=&367& class=&origin_image zh-lightbox-thumb& width=&705& data-original=&/v2-42cbaa9cd7b41e0fa5c06f1_r.png&&&br&&br&&p&&b&6、PPT遥控器&/b&&br&&/p&&p&全球最简单的PPT遥控器之一，无需安装APP，用微信扫面二维码可直接使用，通过上下滑动可以进行幻灯片的切换。&/p&&img src=&/v2-fb13019dccec_b.jpg& data-rawwidth=&640& data-rawheight=&291& class=&origin_image zh-lightbox-thumb& width=&640& data-original=&/v2-fb13019dccec_r.jpg&&&br&&br&&p&本文完&br&&/p&&p&公众号：利兄日志
ID：yingxiaoxinren&/p&&p&By：利兄，&/p&&br&&p&觉得有用的话，记得安利一下哦&br&&/p&&p&推荐阅读&/p&&p&&a href=&/p/?refer=chenglijian& class=&internal&&PPT图片的8种处理方法（完整版） - 玩转PPT - 知乎专栏&/a&&br&&/p&&p&&a href=&/p/?refer=chenglijian& class=&internal&&配色手册：PPT常见的5种配色方式 - 玩转PPT - 知乎专栏&/a&&/p&
其实复杂的东西都是可以简单化的，就算是PPT也一样，我们通常以为很复杂的图形，其实通过一个简单的辅助网站或者工具就可以轻松解决，所以，利兄今天就整理了6个非常好用的PPT辅助网站。公众号：利兄日志 ID：yingxiaoxinren 1、Flat Surface Shader这是一…
&img src=&/v2-dd5a8c067fc35ae3d4cffe224e5aaae0_b.png& data-rawwidth=&1080& data-rawheight=&650& class=&origin_image zh-lightbox-thumb& width=&1080& data-original=&/v2-dd5a8c067fc35ae3d4cffe224e5aaae0_r.png&&&p&第 058 期 | 如何又好又快的搜图&/p&&br&&br&&p&找图片可能是很多人幻灯片制作者非常头疼的一件事，很多人收集了一大堆网站，比如 Pixbay，Pexels，wallhaven 等等。然而，作为一个老司机可以负责任地告诉你，很多优秀的配图其实并不来源于这些网站。&/p&&p&这些网站在我眼里其实没有什么区别，都只是一个壁纸收集库而已。有时候挑一张用作壁纸还行，而要配出一张好图，这些网站真的难以承担重任，所以这些网站只能沦为第二选择。下次再看见人给你推荐高清壁纸库，你甚至可以直接判断，这人不够专业。&/p&&p&这些网站有些什么图呢？比如办公，运动，风景，城市这些广而泛的话题，会有很多图片。而当你具体搜索某一个主题时，瞬间就懵逼，不信你搜一搜基因（gene）。我给你们看一下吧：&/p&&br&&br&&img src=&/v2-95b59ad208a5a5a17ad150_b.png& data-rawwidth=&1184& data-rawheight=&464& class=&origin_image zh-lightbox-thumb& width=&1184& data-original=&/v2-95b59ad208a5a5a17ad150_r.png&&&img src=&/v2-d87c67a226fc5e4e1c8c350b9361aff9_b.png& data-rawwidth=&1148& data-rawheight=&530& class=&origin_image zh-lightbox-thumb& width=&1148& data-original=&/v2-d87c67a226fc5e4e1c8c350b9361aff9_r.png&&&img src=&/v2-87c0ee38deb871e43d0e18fa4ddca1fd_b.png& data-rawwidth=&1148& data-rawheight=&447& class=&origin_image zh-lightbox-thumb& width=&1148& data-original=&/v2-87c0ee38deb871e43d0e18fa4ddca1fd_r.png&&&br&&p&其中，PEXELS 直接说没找到一张，Pixabay 有一张但是质量一般，unsplash 找到一张无关图片。如果你觉得这是个例，你也可以试试其他的，比如关键词 presentation 等等。&/p&&p&找不到合适图片是很正常的，这是由这些网站的性质决定的。这些网站同质化严重，一些具体情境的图片往往会给你指向另一个地方——shutterstock，这是一个付费的图片库网站，普通幻灯片制作者是不会花上很多 money 去买一张图片的。&/p&&p&那有什么解决办法没有，对，这篇文章就是来谈谈这件事。让你摆脱这些高清壁纸收集库。&/p&&br&&br&&p&&strong& 搜图也要点智商 &/strong&&/p&&br&&br&&p&很多人搜图时没有逻辑的。比如搜索书籍封面，最佳的地方不搜索引擎，而是亚马逊。搜索电影，电视剧相关的图片，可以去豆瓣，有时候，电影海报或截图也可以成为不错的配图：&/p&&br&&br&&img src=&/v2-2cbe816dc548e3e950d79_b.png& data-rawwidth=&1792& data-rawheight=&640& class=&origin_image zh-lightbox-thumb& width=&1792& data-original=&/v2-2cbe816dc548e3e950d79_r.png&&&br&&p&这张图片是用于股权与合伙话题下。还有一些具体事物的图片，往往需要借助搜索引擎，比如某一个人物，logo 等。《时间的朋友》里边的人物图片肯定不是上图片网站搜，要么直接拍，要么在搜索引擎上找到然后处理：&/p&&br&&br&&img src=&/v2-2dbfddc751f838d5dbc0_b.jpg& data-rawwidth=&906& data-rawheight=&385& class=&origin_image zh-lightbox-thumb& width=&906& data-original=&/v2-2dbfddc751f838d5dbc0_r.jpg&&&img src=&/v2-7d663b4cbd5b92b78cc364d4b6a66ff2_b.jpg& data-rawwidth=&907& data-rawheight=&380& class=&origin_image zh-lightbox-thumb& width=&907& data-original=&/v2-7d663b4cbd5b92b78cc364d4b6a66ff2_r.jpg&&&br&&p&包括之前在&a href=&/?target=http%3A//mp./s%3F__biz%3DMzA3NjU4NDU0NQ%3D%3D%26mid%3D%26idx%3D1%26sn%3Dc17ff59a8bd4e226afd756ebe2e39ee4%26scene%3D21%23wechat_redirect& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&设计师是如何制作一张幻灯片的&i class=&icon-external&&&/i&&/a&这篇文章搜的松下幸之助，盛田昭夫，李健熙等人的图片，也不是通过图库搜的，而是搜索引擎。准确地说，其实就是 Google Chrome：&/p&&br&&br&&img src=&/v2-8e570a866b973b233c7fa804d061bca1_b.jpg& data-rawwidth=&1291& data-rawheight=&725& class=&origin_image zh-lightbox-thumb& width=&1291& data-original=&/v2-8e570a866b973b233c7fa804d061bca1_r.jpg&&&br&&p&&strong& 第一个工具：Google Chrome &/strong&&br&&/p&&br&&br&&p&我目前使用三个浏览器，Google Chrome + Firefox + Edge，最常用的就是 Chrome。上一篇文章介绍的 VPN 就是为了能使用 Chrome 的功能和访问一些网站 &a href=&/?target=http%3A//mp./s%3F__biz%3DMzA3NjU4NDU0NQ%3D%3D%26mid%3D%26idx%3D1%26sn%3D4d9f6ebeb2c7b2bdae5dc67e2aca2f8c%26chksm%3Dfa312bbffecc9cb6db6d8b379fc4fea6c24cd1f%26scene%3D21%23wechat_redirect& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&做好 PPT 绝对少不了的一个工具&i class=&icon-external&&&/i&&/a&，大家可以参考留言区炸出来的推荐来选择合适的 VPN。&/p&&p&Google Chrome 到底强在哪儿？我想我不需要用语言来形容，直接看行动，搜索关键词 volkswagen logo.png 就能看出什么叫做差距：&/p&&br&&br&&img src=&/v2-b5f9d4bdff8c_b.png& data-rawwidth=&1007& data-rawheight=&711& class=&origin_image zh-lightbox-thumb& width=&1007& data-original=&/v2-b5f9d4bdff8c_r.png&&&img src=&/v2-181aaf4f09eceee8488da_b.png& data-rawwidth=&1069& data-rawheight=&589& class=&origin_image zh-lightbox-thumb& width=&1069& data-original=&/v2-181aaf4f09eceee8488da_r.png&&&br&&p&Chrome 还有一个非常好用的功能叫做 &b&通过 Google 搜索图片&/b&，这个功能好用到不行，谁是谁知道。很多时候可以帮你找到同一张图片的高清版或者类似图片。在搜索得到的图片旁边会提供类似图片，我们来看一下，搜索 gene：&/p&&br&&br&&img src=&/v2-120b2f6d_b.png& data-rawwidth=&1801& data-rawheight=&883& class=&origin_image zh-lightbox-thumb& width=&1801& data-original=&/v2-120b2f6d_r.png&&&br&&p&我们找到了示意图，还有效果图，我们点开效果图，可以发现旁边有一个 查看更多相关图片，图中红色圈标记出的部分，我们点进去会弹出另一个网页：&br&&/p&&br&&br&&img src=&/v2-ee33f9e28d1adac223a9_b.png& data-rawwidth=&1801& data-rawheight=&719& class=&origin_image zh-lightbox-thumb& width=&1801& data-original=&/v2-ee33f9e28d1adac223a9_r.png&&&br&&p&然后发现了新的天地，我们在控制栏那里还可以选择图片尺寸的大小和颜色，&b&所以你该懂我为什么老叫谷歌爸爸了吧。我们现在享受的很多优秀产品和服务都要建立在代码之上，给辛苦的程序员们点一万个赞。&/b&&/p&&br&&br&&p&&strong& 第二个工具：500px &/strong&&/p&&br&&br&&p&这个图片网站在公众号出现了很多次。当别人问我有哪些图片网站可以推荐的时候，我往往直接将 500px 甩给他。这是我目前为止找到合适图片数量最多的图片网站，不过这个网站图片有版权限制，大家在小的场合试用一下还是可以的。这次看了这篇文章的朋友一定要用上这个屌炸的网站。&/p&&p&还是搜索 gene，你可以找到一系列图片及与其相关性很强的图片（&a href=&/?target=https%3A///& class=& wrap external& target=&_blank& rel=&nofollow noreferrer&&The Premier Photography Community / 500px&i class=&icon-external&&&/i&&/a&）：&/p&&br&&br&&img src=&/v2-6cf54e5cdbebab_b.jpg& data-rawwidth=&2000& data-rawheight=&1335& class=&origin_image zh-lightbox-thumb& width=&2000& data-original=&/v2-6cf54e5cdbebab_r.jpg&&&img src=&/v2-cf1e606bb08f96f71c3b02_b.jpg& data-rawwidth=&1998& data-rawheight=&1332& class=&origin_image zh-lightbox-thumb& width=&1998& data-original=&/v2-cf1e606bb08f96f71c3b02_r.jpg&&&br&&p&Perfect !&/p&&br&&br&&p&&strong& 第三个工具：PhotoZoom &/strong&&/p&&br&&br&&p&有不少朋友知道这个工具，但是可能没有尝试过，这个工具可以一定程度放大图片，当然不是无损啦，图片数据丢失后一般是不可逆转的，只能通过一定算法去弥补。&/p&&p&PhotoZoom 采用了比较复杂的算法，并有专利。给大家来个示范——将二哈的表情放大：&/p&&br&&img src=&/v2-eb2bebf0f0182d0fdf05e4_b.png& data-rawwidth=&104& data-rawheight=&101& class=&content_image& width=&104&&&img src=&/v2-dd5a8c067fc35ae3d4cffe224e5aaae0_b.png& data-rawwidth=&1080& data-rawheight=&650& class=&origin_image zh-lightbox-thumb& width=&1080& data-original=&/v2-dd5a8c067fc35ae3d4cffe224e5aaae0_r.png&&&br&&p&大家会发现二哈面部颜色分界线连续性保持很好，但是细节和外轮廓有噪点，这个难以避免还是建议大家用上这个软件。可以在江湖救急的时候用上。比如一张图片分辨率差了那么一点，就可以用它到。&/p&&p&&b&Google Chrome + 500px + PhotoZoom&/b&&/p&&br&&br&&p&&strong& One more thing &/strong&&br&&/p&&br&&br&&p&12 月 3 日，我将在知乎主讲一场 Live。这场 Live 的内容与公众号内容以及知乎上已有的回答几乎没有重叠，超过 99 分钟，99 张幻灯片和 9900 逐字稿的内容，目前已经有近 600人参与，其中也有不少大 V……参加 Live 的朋友注意以下两点：&/p&&p&1. 本次 Live 开始的时间为 12 月 3 日 21 点，开始之前，大家尽量先不要在 Live 中聊天，不然以后想重新进入 Live 回顾的朋友难以找到 Live 内容开始的节点；&/p&&p&2. 大家在 Live 之前，有任何问题都可以通过知乎私信我，我一般会在 24 小时之内针对问题内容和质量选择性地给出答复；&/p&&br&&br&&p&&strong&用一场电影的时间，重塑你的演示思维与技能！&/strong&&/p&&br&&br&&img src=&/v2-9bcfd7863ecf9dfd7a304e9_b.png& data-rawwidth=&1080& data-rawheight=&1748& class=&origin_image zh-lightbox-thumb& width=&1080& data-original=&/v2-9bcfd7863ecf9dfd7a304e9_r.png&&&p&识别以上二维码或点击 &a href=&/lives/257344& class=&internal&&演示的窍门 Live 入口&/a& 报名 Live，赞助费为￥9.9。错过 Live 时间后续也可以再次进入，内容数据均会保留。&/p&
第 058 期 | 如何又好又快的搜图 找图片可能是很多人幻灯片制作者非常头疼的一件事，很多人收集了一大堆网站，比如 Pixbay，Pexels，wallhaven 等等。然而，作为一个老司机可以负责任地告诉你，很多优秀的配图其实并不来源于这些网站。这些网站在我眼里其实…
更新：建议下载文件，链接：&a href=&///?target=http%3A///s/1dERLTPR& class=& external& target=&_blank& rel=&nofollow noreferrer&&&span class=&invisible&&http://&/span&&span class=&visible&&/s/1dERLTP&/span&&span class=&invisible&&R&/span&&span class=&ellipsis&&&/span&&i class=&icon-external&&&/i&&/a& 密码：0h3q&br&————————————————————————————————————————&br&看到这个话题，我决定送给职场新人一个福利~~&br&&br&&br&我刚毕业那会，Excel数据透视表都不会，后来进入DBA部门用得更少了。&br&工作过程中一个做excel的妹子找我抱怨，做一个表要花一两个小时，甚至三四个小时，请教我能否想想办法，我用R写个程序可以。考虑到妹子家里公司都要做事，不太想安装R。我想到了VBA，在大学时学过一点VB，正好练练手。&br&花一天整理妹子的需求，用一周学习，然后就写出了&br&3个自定义函数&br&2个自动更新数据&br&后来写着写着就顺手，经常帮妹子写报表自动化程序。&br&导致妹子对我产生依赖性，她每天就想按几个键然后工作都完成了。&br&我建议她可以看看我的代码，我都写好注释了，你可以按照注释去改参数，就不用天天问我了，但妹子看不懂，我教了几遍遂放弃。&br&&br&对了上面说的福利，当然是贴代码，这份福利给文职类的处理excel的新人，程序员不要捣乱。&br&&b&情景1&/b&：一个工作簿，你按照地区或者部门等你自己的需要拆成不同的工作簿（需求是不是很简单，nonono，单独做一个当然简单，但是我贴出来肯定是这个代码是通用的。比如你想拆第几行开始娜一列都可以，会有选项让你一步一步选择）&br&&b&情景2：&/b&比如拆完，有30张表，你想发给30个不同的人看？你是不是要同时写30封邮呢&br&关于情景1,的工作时间：如果一张总表有三十城市，要按照城市拆成三十个工作簿，不断复制+改工作簿名，个人觉得至少得二十分钟吧，还有容易出错的概率。&br&关于情景2的工作时间：这个就更麻烦了。三十个城市名，要下发给三十个不同分公司的人，而且不同分公司的人，不是只有一个人。你第一次发，如果邮箱有群组还好，但是你始终得写三十封邮件，还要注意选择工作簿不能出错，邮件主题内容不能出错。预估这个工作时间至少得一个小时，平均一封邮件2分钟。&br&&br&情景1+情景2时间=一小时二十分钟（据我观察，历史五个人做这件事出错率100%，不是城市名写错了，就发错工作簿了）&br&&br&不知道大家看懂了没= =&br&好了开始写步骤贴代码，我会尽量用最通俗的语言讲清逻辑关系&br&步骤1：建立两个sheet，点击sheet ，右击查看代码（先检查excel是否启用宏，要启用宏哦）&br&&img src=&/71ce4eb04bc_b.png& data-rawwidth=&174& data-rawheight=&37& class=&content_image& width=&174&&&br&&img src=&/98bfde513c_b.png& data-rawwidth=&231& data-rawheight=&258& class=&content_image& width=&231&&&br&&br&&img src=&/e77a6697abde2ecf39d3bb_b.png& data-rawwidth=&502& data-rawheight=&251& class=&origin_image zh-lightbox-thumb& width=&502& data-original=&/e77a6697abde2ecf39d3bb_r.png&&&br&插入窗体和模块，按模块，把以下这串代码复制进去&br&&img src=&/f011a647c1eb257ee09b43bae14d97c6_b.png& data-rawwidth=&612& data-rawheight=&438& class=&origin_image zh-lightbox-thumb& width=&612& data-original=&/f011a647c1eb257ee09b43bae14d97c6_r.png&&再按窗体，设置成这样&img src=&/ff74ea61d86d46b808440b_b.png& data-rawwidth=&534& data-rawheight=&279& class=&origin_image zh-lightbox-thumb& width=&534& data-original=&/ff74ea61d86d46b808440b_r.png&&&br&然后看到代码，拉到最后，能看到一个是邮件签名，一个是邮箱配置，你自己填上即可，邮件内容可以自己改&br&&img src=&/2e24e797c08328cee1a7_b.png& data-rawwidth=&657& data-rawheight=&542& class=&origin_image zh-lightbox-thumb& width=&657& data-original=&/2e24e797c08328cee1a7_r.png&&&br&截止到这步，代表所有准备工作都完成了，咱们开始测试吧^_^&br&29个城市，我拆成29个工作簿，点击宏&br&&img src=&/4ccdbcd8b10effbd86dc7_b.png& data-rawwidth=&975& data-rawheight=&476& class=&origin_image zh-lightbox-thumb& width=&975& data-original=&/4ccdbcd8b10effbd86dc7_r.png&&&br&&img src=&/3af254d33aa55b3edb16fa3_b.png& data-rawwidth=&389& data-rawheight=&415& class=&content_image& width=&389&&&br&&img src=&/c26bd752b89a5b7df8bb2_b.png& data-rawwidth=&244& data-rawheight=&228& class=&content_image& width=&244&&&img src=&/e2cfa90d3c3b52cafa3d61f_b.png& data-rawwidth=&500& data-rawheight=&273& class=&origin_image zh-lightbox-thumb& width=&500& data-original=&/e2cfa90d3c3b52cafa3d61f_r.png&&&br&&br&&img src=&/9fc7c3eeacc381f1840c_b.png& data-rawwidth=&405& data-rawheight=&160& class=&content_image& width=&405&&&br&按完确定大概10秒后，跟你excel同个文件夹内，会生成拆分的文件夹，你点进去&br&&br&&img src=&/573c9c14bd0ee11fe83c80_b.png& data-rawwidth=&615& data-rawheight=&106& class=&origin_image zh-lightbox-thumb& width=&615& data-original=&/573c9c14bd0ee11fe83c80_r.png&&已经生成了，如果没有想要发邮件的同学，在这里就可以结束啦。&br&&img src=&/928e8b78cc1a3cb5edad_b.png& data-rawwidth=&602& data-rawheight=&589& class=&origin_image zh-lightbox-thumb& width=&602& data-original=&/928e8b78cc1a3cb5edad_r.png&&打开工作簿看看，拆分如何&br&&img src=&/1f33add9aee1b63a1e630a7f5b97d425_b.png& data-rawwidth=&651& data-rawheight=&184& class=&origin_image zh-lightbox-thumb& width=&651& data-original=&/1f33add9aee1b63a1e630a7f5b97d425_r.png&&&br&想把三十个工作簿发送邮件的同学，注意看下面，转到通讯录的那个sheet，&br&&br&&img src=&/66e2ac27ff_b.png& data-rawwidth=&986& data-rawheight=&393& class=&origin_image zh-lightbox-thumb& width=&986& data-original=&/66e2ac27ff_r.png&&&br&&img src=&/aee1d2f4be44ddc32cd048ec78bc2890_b.png& data-rawwidth=&385& data-rawheight=&409& class=&content_image& width=&385&&&img src=&/8fe83022adc58a00cdb02c12_b.png& data-rawwidth=&503& data-rawheight=&340& class=&origin_image zh-lightbox-thumb& width=&503& data-original=&/8fe83022adc58a00cdb02c12_r.png&&这里点击一次文件夹，直接按确定，不用双击进入文件夹&img src=&/bca6ffedd_b.png& data-rawwidth=&800& data-rawheight=&414& class=&origin_image zh-lightbox-thumb& width=&800& data-original=&/bca6ffedd_r.png&&&br&&img src=&/adf67b064b32aeab79810_b.png& data-rawwidth=&398& data-rawheight=&193& class=&content_image& width=&398&&&br&按完确定后，这时候按照工作簿数来算时间，基本上每秒一个城市，也就是一个工作簿。等到这个提示出来之后，你就可以直接看到结果了。&br&&img src=&/ff44fb2b39b1dfacaf954_b.png& data-rawwidth=&1133& data-rawheight=&674& class=&origin_image zh-lightbox-thumb& width=&1133& data-original=&/ff44fb2b39b1dfacaf954_r.png&&&br&然后你在看，是否有收到邮件&br&打开你的邮箱&img src=&/37f39ed37d6a4dddfa1b0_b.png& data-rawwidth=&920& data-rawheight=&29& class=&origin_image zh-lightbox-thumb& width=&920& data-original=&/37f39ed37d6a4dddfa1b0_r.png&&&br&收到啦&br&&img src=&/40f4fb4a2dca641d193b64b_b.png& data-rawwidth=&480& data-rawheight=&585& class=&origin_image zh-lightbox-thumb& width=&480& data-original=&/40f4fb4a2dca641d193b64b_r.png&&&br&整套点击+运行大约三分钟&br&代码：&br&Sub 通用拆分()&br&'On Error Resume Next&br&Application.ScreenUpdating = False '关闭屏幕更新&br&Application.DisplayAlerts = False '关闭提示事件,防止删除表格时提示&br&&br&Dim Pro, Wb1, Wb2, St1, Sht, Rng, Itm, StRow, Pth&br&&br&Set Wb1 = ThisWorkbook&br&Set St1 = ActiveSheet&br&&br&a = MsgBox(&当前文件为：& & Wb1.Name & Chr(10) & &当前表格为：& & St1.Name & Chr(10) & Chr(10) & &点击 确定 继续运行，& & Chr(10) & &点击 取消 退出程序。&, 1)&br&If a = 2 Then '如果点了取消,就退出程序&br&
Exit Sub&br&End If&br&&br&b = InputBox(&请输入拆分列表头所在的单元格位置。& & Chr(10) & &例如：要拆分的列位于C列，表头是第3行，就输入“C3”&)&br&If b = && Then&br&
MsgBox (&未输入拆分表头，程序退出&)&br&
Exit Sub&br&End If&br&&br&rowx = St1.Range(b).Row&br&colx = St1.Range(b).Column&br&&br&Set Pro = CreateObject(&Scripting.Dictionary&) '建立一个以省份为关键字的字典&br&StRow = St1.Cells.Find(&*&, SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).EntireRow.Row '确定当前文件行数&br&&br&St1.Range(rowx & &:& & rowx).AutoFilter Field:=colx, Criteria1:=&*&
'取消筛选&br&For Each Rng In St1.Range(St1.Cells(rowx + 1, colx), St1.Cells(StRow, colx)) '&br&
If Not Pro.exists(Rng.Value) And Not IsError(Rng.Value) Then Pro.Add Rng.Value, Rng.Value '判断当前表格的值是否在字典内,如果不在,就添加到字典内&br&Next&br&&br&namex = InputBox(&请输入文件名的自定义字段，& & Chr(10) & &例如输入“收款明细”,就会生成“上海-收款明细.xlsx”文件&, &&, St1.Name)&br&&br&For Each Itm In Pro.Items '针对字典内的每个值进行一次操作(每个省份循环一次)&br&
St1.Copy&br&
Set Wb2 = ActiveWorkbook&br&
Set Sht = ActiveSheet&br&
Sht.Range(rowx & &:& & rowx).AutoFilter Field:=colx, Criteria1:=&&&& & Itm, Operator:=xlAnd
'筛选列,筛选值为不符合当前省份&br&
Sht.Range(Sht.Cells(rowx + 1, colx), Sht.Cells(StRow, colx)).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp '删除被筛选出来的行(删掉不为当前省份的行)&br&
Sht.Range(rowx & &:& & rowx).AutoFilter '取消筛选&br&
ActiveWindow.SmallScroll Down:=-StRow&br&
ActiveWindow.SmallScroll ToRight:=-100&br&&br&
If Dir(Wb1.Path & &\拆分\&, vbDirectory) = && Then MkDir ThisWorkbook.Path & &\拆分\& '看看当前文件夹内是否存在&拆分&文件夹,如果没有就创建一个&br&
Pth = Wb1.Path & &\拆分\& & Itm & &-& & namex & &.xls&&br&
Wb2.SaveAs Filename:=Pth, FileFormat:=xlExcel8, Password:=&&, WriteResPassword:=&&, ReadOnlyRecommended:=False, CreateBackup:=False&br&
Wb2.Close '关闭表格&br&&br&Next&br&&br&Set Pro = Nothing '释放变量&br&Set Wb1 = Nothing&br&Set Wb2 = Nothing&br&Set St1 = Nothing&br&Set Sht = Nothing&br&Set Rng = Nothing&br&Set Itm = Nothing&br&Set StRow = Nothing&br&Set Pth = Nothing&br&&br&Application.ScreenUpdating = True '打开屏幕更新&br&Application.DisplayAlerts = True '打开提示事件&br&End Sub&br&Sub 通用发送邮件()&br&'On Error Resume Next&br&Dim cm As Variant&br&&br&UserForm1.Show&br&UserName = boBox1&br&UserPass = UserForm1.TextBox1.Value&br&&br&With Application.FileDialog(msoFileDialogFolderPicker)&br&
.InitialFileName = ActiveWorkbook.Path & &\&&br&
If .Show = -1 Then&br&
Pth = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Item(1) & &\&&br&
End If&br&End With&br&&br&'定义文件夹&br&Dim FS, F, FF, Fil, BName, EName&br&Set FS = CreateObject(&Scripting.FileSystemObject&)&br&Set F = FS.GetFolder(Pth)&br&Set FF = F.Files&br&&br&If FF Is Nothing Or F Is Nothing Then&br&
MsgBox (&文件或文件夹错误,请查证在本文件目录内存在'拆分'文件夹,并且已经生成拆分文件&)&br&
Exit Sub&br&End If&br&'保存文件信息&br&Dim FN(1 To 10000, 1 To 3)&br&i = 0&br&For Each Fil In FF&br&
i = i + 1&br&
FN(i, 1) = FS.GetBaseName(Fil)&br&
FN(i, 2) = FS.GetExtensionName(Fil)&br&
FN(i, 3) = Left(FN(i, 1), InStr(1, FN(i, 1), &-&) - 1)&br&Next&br&&br&Set Sht = ThisWorkbook.Sheets(&邮件联系人&)&br&colnew = Sht.Cells(1, Columns.Count).End(xlToLeft).Column + 1 '联系人空白列(用于记录发送结果)&br&Sht.Cells(1, colnew).Value = Pth & Chr(10) & Date & & & & Time & & 发送结果&&br&&br&tex = InputBox(&请输入邮件正文自定义段&)&br&&br&For m = 1 To i&br&
Err.Clear&br&
linkman = &&&br&
emailx = &&&br&
Set bbb = Sht.Range(&a:a&).Find(FN(m, 3))&br&
If bbb Is Nothing Then&br&
rownew = Sht.Range(&a60000&).End(xlUp).Row + 1&br&
Sht.Cells(rownew, 1).Value = FN(m, 3)&br&
Sht.Cells(rownew, colnew).Value = &未找到发件人&&br&
mg = mg & FN(m, 3) & Left(&
&, 10 - Len(FN(m, 3)) * 2) & &未找到发件人& & Chr(13)&br&
GoTo line5&br&
End If&br&
For n = 1 To Sht.Range(&a60000&).End(xlUp).Row '循环查找联系人姓名和邮件地址&br&
If FN(m, 3) = Sht.Cells(n, 1).Value Then&br&
linkman = linkman & Sht.Cells(n, 2).Value & &、&&br&
emailx = emailx & Replace(Sht.Cells(n, 7).Value, &;&, &&) & &,&&br&
End If&br&
If Len(emailx) & 2 Then '如果邮件地址是空,那就不发送本城市&br&
bbb.Offset(0, colnew - 1).Value = &无邮件地址&&br&
mg = mg & FN(m, 3) & Left(&
&, 10 - Len(FN(m, 3)) * 2) & &无邮件地址& & Chr(13)&br&
GoTo line5&br&
End If&br&
linkman = Left(linkman, Len(linkman) - 1) '删掉最后一个符号&br&
emailx = Left(emailx, Len(emailx) - 1)&br&&br&&br&
Set cm = CreateObject(&CDO.Message&)
'创建对象&br&
cm.From = UserName
'设置发信人的邮箱&br&
cm.To = emailx
'设置收信人的邮箱&br&
cm.Subject = FN(m, 1)
'设定邮件的主题&br&&br&
cm.TextBody = &亲爱的********：& _&br&
& Chr(10) & &
附件为 & & FN(m, 1) & &，请查收。& & Chr(10) & tex _&br&
& Chr(10) & &谢谢！& _&br&
& Chr(10) & & _______________________________________________________& _&br&
& Chr(10) & & **部门
& Chr(10) & & 姓名
& Chr(10) & & 手机：*********
& Chr(10) & & 电话：*********
& Chr(10) & & Email：*********
& Chr(10) & & 地址：******************
'邮件正文&br&&br&
cm.AddAttachment Pth & FN(m, 1) & &.& & FN(m, 2)
'添加附件&br&
stUl = &&a href=&///?target=http%3A///cdo/configuration/& class=& external& target=&_blank& rel=&nofollow noreferrer&&&span class=&invisible&&http://&/span&&span class=&visible&&/c&/span&&span class=&invisible&&do/configuration/&/span&&span class=&ellipsis&&&/span&&i class=&icon-external&&&/i&&/a&&&br&
With cm.Configuration.Fields&br&
.Item(stUl & &smtpserver&) = &&a href=&///?target=http%3A//& class=& external& target=&_blank& rel=&nofollow noreferrer&&&span class=&invisible&&http://&/span&&span class=&visible&&&/span&&span class=&invisible&&&/span&&i class=&icon-external&&&/i&&/a&&
'SMTP服务器地址&br&
.Item(stUl & &smtpserverport&) = 25
'SMTP服务器端口&br&
.Item(stUl & &sendusing&) = 2
'发送端口&br&
.Item(stUl & &smtpauthenticate&) = 1&br&
.Item(stUl & &sendusername&) = UserName
'发送方邮箱名称&br&
.Item(stUl & &sendpassword&) = UserPass
'发送方邮箱密码&&br&
.Update&br&
End With&br&
'发送&br&&br&
'生成反馈信息&br&&br&
If Err.Number = 0 Then&br&
mg = mg & FN(m, 3) & Left(&
&, 10 - Len(FN(m, 3)) * 2) & &发送成功& & Chr(13)&br&
bbb.Offset(0, colnew - 1).Value = &发送成功&&br&
mg = mg & FN(m, 3) & Left(&
&, 10 - Len(FN(m, 3)) * 2) & &发送失败& & Chr(13)&br&
bbb.Offset(0, colnew - 1).Value = &发送失败&&br&
End If&br&
Set cm = Nothing
'发送成功后即时释放对象&br&line5:&br&Next&br&&br&MsgBox (Left(mg, Len(mg) - 1)) '确认结果&br&&br&End Sub&br&&br&——————————————————————————————————&br&谢谢大家的赞，那我就再贴一个给职场小白&br&前面拆分，肯定有合并，再贴一个合并工作簿的代码，也超级简单的哦。&br&&br&开始：&br&新建一个空白工作簿&br&还是一样右击sheet——查看代码，这次不用建立模块，直接把代码贴进去即可&br&&img src=&/04f6b816beb5cdff79a8db_b.png& data-rawwidth=&829& data-rawheight=&751& class=&origin_image zh-lightbox-thumb& width=&829& data-original=&/04f6b816beb5cdff79a8db_r.png&&&br&&img src=&/b619dea86e_b.png& data-rawwidth=&502& data-rawheight=&514& class=&origin_image zh-lightbox-thumb& width=&502& data-original=&/b619dea86e_r.png&&点击执行后，让你选择文件夹，你的先把要合并的所有工作簿放在一个文件夹内&br&&img src=&/c059ec89c7cc24b2c05b_b.png& data-rawwidth=&381& data-rawheight=&354& class=&content_image& width=&381&&数据是这样的&br&&img src=&/d05a8a953d4394cfceba8_b.png& data-rawwidth=&457& data-rawheight=&197& class=&origin_image zh-lightbox-thumb& width=&457& data-original=&/d05a8a953d4394cfceba8_r.png&&&br&&br&&img src=&/73cfafdc5f27d3f37acba3_b.png& data-rawwidth=&593& data-rawheight=&111& class=&origin_image zh-lightbox-thumb& width=&593& data-original=&/73cfafdc5f27d3f37acba3_r.png&&点击文件夹执行后&br&&img src=&/c9284cea7f6c1f5cad55d62ba38605bb_b.png& data-rawwidth=&201& data-rawheight=&189& class=&content_image& width=&201&&按确定后，数据就好了。&br&&img src=&/d1aa4a516f_b.png& data-rawwidth=&497& data-rawheight=&501& class=&origin_image zh-lightbox-thumb& width=&497& data-original=&/d1aa4a516f_r.png&&&br&对了，工作簿名称不一样也不要紧哦&br&比如这样....&br&&img src=&/bc8bdee3b96a32916b5da_b.png& data-rawwidth=&598& data-rawheight=&84& class=&origin_image zh-lightbox-thumb& width=&598& data-original=&/bc8bdee3b96a32916b5da_r.png&&代码：&br&Sub 文件合并()&br&&br&&br&Application.ScreenUpdating = False&br&'On Error Resume Next&br&&br&&br&Dim Pth As String&br&&br&Set wst1 = ActiveSheet&br&row1 = 0&br&wst1.Cells.Delete Shift:=xlUp&br&&br&&br&'打开文件夹&br&Dim shell, s&br&Set shell = CreateObject(&Shell.Application&)&br&Set fl = shell.BrowseForFolder(0, &请选择文件夹&, 0, Pth)&br&If fl Is Nothing Then Exit Sub&br&&br&Pth = fl.self.Path & &\&&br&&br&&br&'定义文件夹&br&Dim FS, F, FF, Fil, BName, EName&br&Set FS = CreateObject(&Scripting.FileSystemObject&)&br&Set F = FS.GetFolder(Pth)&br&Set FF = F.Files&br&&br&&br&For Each Fil In FF&br&
BName = FS.GetBaseName(Fil)&br&
EName = FS.GetExtensionName(Fil)&br&
If EName = &xls& Or EName = &xlsx& Or EName = &XLS& Or EName = &XLSX& Then&br&
Workbooks.Open (Fil)&br&
Set wst2 = ActiveSheet&br&
Set wb = ActiveWorkbook&br&
strow = wst2.UsedRange.Rows.Count&br&&br&
If row1 = 0 Then&br&
wst2.Rows(&1:& & strow).Copy wst1.Cells(row1 + 1, 1)&br&
row1 = row1 + strow&br&
wst2.Rows(&2:& & strow).Copy wst1.Cells(row1 + 1, 1)&br&
row1 = row1 + strow - 1&br&
End If&br&
Application.CutCopyMode = False&br&
wb.Close (False)&br&
End If&br&Next&br&&br&MsgBox (&完成&)&br&&br&End Sub&br&&br&&br&&br&——————————————————————————————————————&br&&br&拆分or合并or群发邮件，是三个独立的宏，都可以灵活运用。建议大家复制保存为TXT文档或者存到一个excel里面，作为工具使用，不用每次黏贴复制了。&br&&br&最后&br&1、我是女生&br&2、我早就从那家公司离职了，平时工作忙和妹子没再联系，走之前给她写了一堆程序，覆盖她工作中50%的excel处理&br&3、只是同事之间的帮忙，而且我也喜欢研究。为什么要扯到感情，大家那么喜欢童话故事？&br&4、我不是专业写VBA的&br&&br&花了两个小时一个一个截图+写注释，你能不能点个赞再走n(*≧▽≦*)n
更新：建议下载文件，链接： 密码：0h3q ———————————————————————————————————————— 看到这个话题，我决定送给职场新人一个福利~~ 我刚毕业那会，Excel数据透视表都不会，后来进入…
已有帐号？
无法登录？
社交帐号登录
147 人关注
254 人关注
145 条内容
7132 人关注
552 条内容
775 人关注
625 条内容