&b&1.用【我选择，我负责】，代替【我恐惧、我逃避】&/b&&br&&br&&p&“我害怕写论文，我害怕写不好，我害怕答辩的时候评委老师刁难我。”&/p&&p&“我害怕见客户，我害怕说错话，我害怕自己吃亏，害怕被算计。”&/p&&br&&p&——如此是谓“我恐惧，我逃避”。&/p&&br&&p&“我选择写毕业论文，因为我想得到学位证”；&/p&&p&“我选择拿起电话，去联系那个令人头疼的客户，因为我想得到利润”；”&/p&&br&&p&——如此是谓“我选择，我负责”。&/p&&br&&p&&b&“我选择做XXX，因为我想得到XXX.&&/b&&/p&&br&&p&这个句式，可以帮助我们迅速地化被动为主动。&/p&&br&&br&&b&2.用【把比赛当成练习】，代替【等练好了再参赛】&/b&&br&&br&如果我们抱着“等我自己完美了再出手”的心态，那我们可能永远也出不了手。因为完美状态是不存在的。&br&&br&要敢于在不完美的状况下把自己亮出来，就像肥肥猫老师说的，要敢于&把一个虽然有诸多缺点但优点也不少的商品挂上货架”。&br&&br&成长就像造房子，大框架搭好了，就可以入住了——我住进来之后再慢慢添置桌椅碗筷，照样来得及。&br&&br&而事实上，我们需要添置什么样的桌子，什么样的椅子，恰恰是需要我们先住进来才会知道的，不住进来，就永远不会知道。&br&&br&我们可以把每一次考试、面试、比赛甚至选秀等考验，都视为一种练习——我就是来测试一下自己能力上限，就算失败又如何？见见真题也好嘛~！&br&&br&用“以赛代练”的方法来打怪，我们将会以惊人的速度升级过关。&br&&br&&b&3.用【高配版的自己】，代替【低配版的自己】&/b&&br&&br&假如你现在是一个便利店的店长，而你从小热爱写作，有一定文笔基础；你心里一直隐隐约约有一个愿望，想成为一个作家，那么现在可以怎么做？&br&&br&除了增长阅读量，锻炼文笔等等内功的修炼之外，我在此提供一个外在的助推方法：&br&&br&&b&——&/b&&b&站在此岸链接彼岸，用高配版的自己，来带动低配版的自己。&/b&&br&&br&什么意思呢？&br&&br&&b&直接活在一个作家的状态里。&/b&&br&&br&作家都有每天固定的写作时间，你也每天给自己规定一个写作时间；&br&&br&作家都有自己固定的作品输出平台，你也给自己弄一个作品输出平台，比如知乎；&br&&br&作家都有约稿联系方式，你也在自己的作品输出平台上留上“约稿请联系XX邮箱”；&br&&br&你甚至可以给自己弄一张电子版的名片，上面写着：“肖邦爱吃羊肉串；文字创意工作者；长期在知乎生产小说与机灵。”诸如此类。&br&&br&而且要像一个真的作家那样去回答问题，输出干货。要答出逻辑，答出深度，答出新意。被人赞了，关注了，也不必沾沾自喜；被人骂了，被人拉黑了，也不要顶撞缠斗；要像一个真的作家那样习以为常，宠辱不惊。&br&&br&如此坚持一年，看看生活会发生什么样的变化。&br&&br&当然，此方法只是一种外力助推，必须要搭配足够强大的内在实力才可发挥效果。&br&&br&&b&4.用【往前走走看】，代替【站在原地纠结】&/b&&br&&br&纠结犹豫，是自己跟自己内耗，非常损伤元气，浪费能量。&br&&br&破解纠结的方法，最稳妥的就是——停止思考，停止妄念，啥也不想，只管往前走！&br&&br&不管选择哪条路，只要下定决心往前走，任何一条路，都会被你走成一条好路。&br&&br&纠结犹豫的原因，是层级受限。我们站在一楼，无法想象五楼的风景，所以找不出解决路径。&br&&br&所以要往前走，不管选择哪条路走，只要能往前走，就会有成长，有提升，越走眼界越开阔，越走思路越开阔，越走越知道自己真正需要的是什么。&br&&br&这个观点，在本文中有更加详细的论述：&a href=&/p/& class=&internal&&经常陷入纠结犹豫，不敢做决定，如何破局？ - 庄典情绪管理 - 知乎专栏&/a&&br&&br&&b&5.用【我帮你解决问题】，代替【我替你打工卖命】&/b&&br&&br&商业的本质，不是赚钱；而是帮助。&br&&br&是你用自己的资源，技术，能力，去帮助他人解决问题，从而满足他们的需求。你不需要做太多事情，你只需要做好某一件事情，满足某一类人的某一种需求，把这一件事情做到顶尖，你就成了。&br&&br&而这时候，名和利，就会自然而然流动到你的生命中。&br&&br&去做创造价值的事，去做释放天赋的事，名和利，只是一种副产品。&br&&br&当我们保持这种心境的时候，才能真正体会到工作的成就感和快乐，而不是把工作看成是一种被逼无奈的苦役。&br&&br&这个观点在本文中有更加详细的论述：&a href=&/question//answer/& class=&internal&&该不该把兴趣当做事业？ - 巴赫爱喝胡辣汤的回答&/a&&br&&br&&b&6.用【温柔的坚持】，代替【激烈的反抗】&/b&&br&&br&以前，&br&&br&妈妈逼我穿秋裤，说“今天冷死了，赶紧把秋裤穿上再出门！”&br&我说：“能不能别管我！从小到大啥都管我，一点儿都不给我自由！能不能不要这么专制啊~！等我六十岁你还管我不管？！” &br&&br&——此谓激烈的反抗。&br&&br&批判对方，指责对方，只会引起对方更大的抗拒、不满和愤怒，最后演化成一通争吵，两败俱伤。&br&&br&今后，我换一种新模式。&br&&br&妈妈说：“冷死了，赶紧把秋裤穿上再出门！”&br&我说：“是啊，今天是有点儿冷啊。&b&并且我感觉&/b&今天的温度&b&还没到我需要&/b&穿秋裤的程度。”&br&&br&妈妈说：“不行，必须穿秋裤，不然老了会得关节炎！”&br&我说：“妈妈，我知道你关心我，&b&我是成年人，我会为我的身体健康负责。&/b&妈妈我爱你，么么么。”&br&&br&妈妈有点无奈，但也没什么话可说了。&br&&b&&br&温柔的坚持，就是如实地表达自己的感受：&/b&我感觉不冷，我感觉我不需要穿秋裤，我的感受我负责，你不要替我感受。&br&&b&&br&温柔的坚持，就是仅仅表达自己的感受，而不去批判对方：&/b&你的关心，我很感谢；你的意见，我不采纳；你的是非，我不论断。&br&&br&这个观点在本文中有更加详细的论述：&a href=&/question//answer/& class=&internal&&如何恰当地表示愤怒？ - 巴赫爱喝胡辣汤的回答&/a&&br&&br&好，最后我们回顾一下重点：&br&&br&&p&&b&1.用【我选择、我负责】，代替【我恐惧、我逃避】&/b&&/p&&br&&p&&b&2.用【把比赛当成练习】，代替【等练好了再参赛】&/b&&/p&&br&&p&&b&3.用【高配版的自己】，代替【低配版的自己】&/b&&/p&&br&&p&&b&4.用【先往前走走看】，代替【站在原地纠结】&/b&&/p&&br&&p&&b&5.用【我帮你解决问题】，代替【我替你打工卖命】&/b&&/p&&br&&p&&b&6.用【温柔的坚持】，代替【激烈的反抗】&/b&&/p&&br&&p&（注：微信公众号【巴赫爱喝胡辣汤】，第一时间收到我的情绪管理文章。为避免版权问题，本文谢绝任何形式的转发和转载，望见谅，谢谢。）&/p&
1.用【我选择，我负责】，代替【我恐惧、我逃避】 “我害怕写论文，我害怕写不好，我害怕答辩的时候评委老师刁难我。”“我害怕见客户，我害怕说错话，我害怕自己吃亏，害怕被算计。” ——如此是谓“我恐惧，我逃避”。 “我选择写毕业论文，因为我想得到…
&img src=&/50/v2-bd3b4d1c645d054f3da15df7c86a2e2d_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-bd3b4d1c645d054f3da15df7c86a2e2d_r.jpg&&PS：PPT是之前为我上次Live：&a href=&/p/& class=&internal&&庄明浩Live －－ 这资本寒冬，如你所愿 - 不吐不快 - 知乎专栏&/a& 而准备的。&img src=&/50/v2-2ccd31aaa32cf02059f90bb_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-2ccd31aaa32cf02059f90bb_r.jpg&&&img src=&/50/v2-67fdaf643d6d6f6b073ff_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-67fdaf643d6d6f6b073ff_r.jpg&&&img src=&/50/v2-a244e3f21ad0a09aae90dcf_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-a244e3f21ad0a09aae90dcf_r.jpg&&&img src=&/50/v2-7b8a6cf2ea4f906ce4d6041_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-7b8a6cf2ea4f906ce4d6041_r.jpg&&&img src=&/50/v2-df146a319e5cdcf0402b0_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-df146a319e5cdcf0402b0_r.jpg&&&img src=&/50/v2-da66684ba0feab97ed7f85_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-da66684ba0feab97ed7f85_r.jpg&&&img src=&/50/v2-a06ea0f11b26f944bac22e_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-a06ea0f11b26f944bac22e_r.jpg&&&img src=&/50/v2-47ba38f44c13d2e28bd6_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-47ba38f44c13d2e28bd6_r.jpg&&&img src=&/50/v2-bcd8f095a8_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-bcd8f095a8_r.jpg&&&img src=&/50/v2-9db66a14a5_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-9db66a14a5_r.jpg&&&img src=&/50/v2-5f1d028e90fed0e68d2d85_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-5f1d028e90fed0e68d2d85_r.jpg&&&img src=&/50/v2-1d625defdeebbf4d02cc1f8c_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-1d625defdeebbf4d02cc1f8c_r.jpg&&&img src=&/50/v2-794f1c3eef4addc2727e5_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-794f1c3eef4addc2727e5_r.jpg&&&img src=&/50/v2-fe00d519eea735ca3691_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-fe00d519eea735ca3691_r.jpg&&&img src=&/50/v2-f7bf021f7bd09b5fa2b0_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-f7bf021f7bd09b5fa2b0_r.jpg&&&img src=&/50/v2-1dcabef2a800fe9234813fbc_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-1dcabef2a800fe9234813fbc_r.jpg&&&p&&img src=&/50/v2-fe00d519eea735ca3691_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-fe00d519eea735ca3691_r.jpg&&&img src=&/50/v2-eadeb2c822aea4c71cdb61e0_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-eadeb2c822aea4c71cdb61e0_r.jpg&&&img src=&/50/v2-dcbff5ffb3f_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-dcbff5ffb3f_r.jpg&&&img src=&/50/v2-8d0eb3bce48e4ace360f56bc49f540e2_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-8d0eb3bce48e4ace360f56bc49f540e2_r.jpg&&&img src=&/50/v2-e522b958451fba4e1aaf11a5a7a30d88_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-e522b958451fba4e1aaf11a5a7a30d88_r.jpg&&&img src=&/50/v2-6a80f892beebf1c1b7667_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-6a80f892beebf1c1b7667_r.jpg&&&img src=&/50/v2-84e9df0f2ca447_b.jpg& data-rawwidth=&960& data-rawheight=&720& class=&origin_image zh-lightbox-thumb& width=&960& data-original=&/50/v2-84e9df0f2ca447_r.jpg&&文档下载地址：&/p&&p&&a href=&/?target=http%3A///s/1pL6f4aJ& class=& external& target=&_blank& rel=&nofollow noreferrer&&&span class=&invisible&&http://&/span&&span class=&visible&&/s/1pL6f4a&/span&&span class=&invisible&&J&/span&&span class=&ellipsis&&&/span&&i class=&icon-external&&&/i&&/a&&/p&
PS：PPT是之前为我上次Live： 而准备的。文档下载地址：
更新：建议下载文件，链接：&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数据透视表都不会，后来进入…
&img src=&/v2-126d29b73cbde6b_b.jpg& data-rawwidth=&1920& data-rawheight=&1080& class=&origin_image zh-lightbox-thumb& width=&1920& data-original=&/v2-126d29b73cbde6b_r.jpg&&&br&&p&&b&阅读提示：人们常开玩笑道，会说供给和需求，你也可以和别人聊聊经济学了。&/b&&/p&&p&&b&本文6500字，通过具体案例，深入浅出地为大家介绍了经济学中的供给和需求原理、产品需求弹性的入门基础知识，欢迎大家阅读。&/b&&/p&&p&以下文章内容搬运自我在这个题目中写的答案：&br&&/p&&p&&a href=&/question//answer/& class=&internal&&土豆丰收后价格下降，农民收入减少，那么他们为什么不销毁部分土豆，从而降低土豆产量，保证自己的收入？&/a&&br&&/p&原题：&blockquote&问题中的销毁指的不是一个农民销毁，而是一群。假设某地区土豆由该地区中某土豆种植地区提供，自给自足，该地区交通不便，从外面进土豆成本较高，今天土豆丰收后，土豆价格下降，农民收入随之下降。请用相关理论解释该现象;假设农民知道谷贱伤农，那么他为什么不销毁部分土豆，从而降低土豆产量，保证自己的收入？在历史上有没有过类似的事件呢？&/blockquote&&br&题主做了很多假设，那么我今天就从经济学层面为题主解答这些疑惑吧。&br&首先，我得说，题主的前提假设还是比较全面的，经济学的研究，一定要有明确的前提假设，假设不同，甚至会得出截然相反的结论，我们所熟知的马克思主义经济学和西方经济学，讲的其实都是对的，但为什么结论完全相反？就是因为前提假设不一样。&br&题主的疑问是：&br&&blockquote&“农民通过控制土豆的产量能否控制土豆售价：通过对土豆产量减产，使土豆价格上涨，实现收益最大化。”&/blockquote&首先，我把结论先亮出来：&br&&strong&对土豆产量减产，在一定条件下，可以使土豆价格回到原先的均衡价格；但是继续减产，甚至会小于减产前的收益。&/strong&&br&题主假设，这个地区的土豆完全由这些农民生产，并且交通不便，事实上形成了一个市场壁垒，外部的土豆并不会对这个区域内的土豆价格产生很大影响。&br&于是，农民们就开始思考，能否通过销毁部分土豆，降低土豆产量，从而提高土豆的价格。&br&我们的问题是：&br&这群种植土豆的农民，能否一致销毁自己所种的土豆，从而达到产量的共同降低。&br&这个销毁是按照比例进行的，比如大家商量好，各自销毁自己50%的土豆。&br&张三家种了5吨土豆，那就销毁2.5吨。&br&李四家种了4吨土豆，那就销毁2吨。&br&王五家种了3吨土豆，销毁1.5吨。&br&赵六家种了2吨土豆，销毁1吨。&br&我们假设这个区域内，就他们四家种植了土豆，那么，我们可以计算他们的总产量：&br&5+4+3+2=14吨&br&假设，土豆现在的市场价格是5000元/吨，那么他们这些土豆的总价值是：&br&00元&br&我们可以看到，张三家种的土豆最多，家里的地几乎全种土豆了，土豆价格下跌，他最着急，想赶快出手地里的土豆；赵六家种的土豆最少，由于他种的西红柿、茄子都卖的不错，所以土豆价格下跌，他的损失最少，不是特别着急。&br&我们可以看到，虽然大家都想让土豆卖个好价钱，但他们的利益诉求是不一样的，或者说，他们的风险承受能力是不一样的。&br&土豆价格下跌，张三家最受伤，由于种植目标过于集中，风险承受能力最弱；赵六家影响最小，由于种植目标分散，风险承受能力较强。&br&这就是我们通常所说的，鸡蛋不要放在同一个篮子里。&br&&b&出于风散风险的角度考量，应该多种植几个品种，东方不亮西方亮，不至于因为种植品种过于集中，当该品种价格出现大幅波动时，而引起种植收益的剧烈震荡。&/b&&br&可能去年土豆价格走高，你全种植土豆，能大赚一笔；今年土豆价格走低，你全种植土豆，就会大赔一笔。&br&收益的剧烈震荡，就是种植的风险。&br&赵六家同时种植西红柿，茄子，土豆。去年土豆价格走高，茄子价格走低，西红柿价格持平；今年土豆价格走低，西红柿、茄子价格走高，今年的收益要略微高于去年。&br&都是土豆价格下跌，张三赔大发了，而赵六还能比去年多赚一点。&br&所以，即使是按照50%的比例来销毁土豆，张三的损失是最大的，因为他要销毁2.5吨土豆，而赵六的损失是最小的，因为他只用销毁1吨土豆。&br&所以，大家就要进行博弈了，到底怎样的选择才是对自己最有利，同时又是别人能接受的。&br&我们可以看到，大家商量好的，按照50%的比例去销毁自家土豆，对整体是达不到最优状态的，因为张三销毁的太多，吃亏太多；赵六销毁的最少，吃亏最少。&br&因此，销毁50%的自家土豆，并不是一个完美的策略，不能让大家都接受。&br&按照50%的比例去销毁自家土豆，这个策略虽然不完美，但却是最公正（fair）的一种方式，但同时，这种方式不能保证各方都平等（equal）。&br&那么这里，我们再来介绍一下公正（fair）和平等（equal）的概念：&br&在很多人的印象里，公正和平等是放在一起说的，就是我们最常说的公平，而实际上，公平的“公”和“平”是相互制约的，就像矛盾的“矛”和“盾”是相互制约的一样，没有真正的公平存在。公正和平等，鱼和熊掌，不可得兼，你只能以一种最适合的方式去处理公正和平等的关系。&br&公正（fair），就是每个人都享受公正的权利。&br&例如：由于土豆价格走低，大家需要控制土豆产量，销毁土豆去影响价格，那么每个人都应该受到公正的对待，不能因为你种的土豆多，那就少销毁；也不能因为你种的土豆少，就多销毁，大家都按照50%的比例去销毁自己的土豆。&br&平等（equal），就是每个人都享受平等的对待。&br&例如：由于土豆价格走低，大家需要控制土豆产量，销毁土豆去影响价格，那么每个人都应该受到平等的对待，无论你种植了多少土豆，一律都销毁2吨。&br&按照公正原则，最痛苦的是张三，因为他需要销毁最多的土豆，最乐于接受的是赵六，因为他需要销毁最少的土豆，李四和王五居中。&br&按照平等原则，最痛苦的是赵六，因为他一共就种植了2吨土豆，全都要销毁，最乐于接受的是张三，因为他只需要销毁2吨土豆，还有3吨土豆可以卖个好价钱，李四和王五居中。&br&公正和平等，都是我们所追求的，然而他们产生的结果却是截然相反，所以，我说不存在绝对的公平，你只能以一种最适合的方式去处理公正和平等的关系。&br&所以，这片区域种植土豆的张三、李四、王五、赵六，他们很难达成一种价格联盟，以销毁土豆进行减产的方式，提高土豆的价格。&br&即使暂时达成了，无论是按照比例减产，还是按照数量减产，总会有人为了自己的私利，去破坏这一价格联盟。&br&因为没有报复，简要来说，就是大家都商量好要去减产，结果张三、李四、王五都减产了，价格也上去了，却发现赵六没减产，那么赵六就赚便宜了，要有一种报复机制去促使赵六不敢违反大家的商定，比如，如果谁家没减产，要是被发现了，要重罚三十大板。&br&好，我们假设以上一切都成立，大家都能按照减产办法去减产，而且每个人都严格遵守，那么能实现收益的最大化吗？&br&&strong&对土豆产量减产，在一定条件下，可以使土豆价格回到原先的均衡价格；但是继续减产，甚至会小于减产前的收益。&/strong&&br&&b&因为影响价格的，不仅有供需关系，还有产品弹性。&/b&&br&我们都知道，供需影响价格，供大于求，价格会下跌；供小于求，价格会上涨；土豆价格为什么会下跌？就是因为土豆大丰收，造成了供大于求。&br&我们先来看一条供需价格曲线。&br&需要说明的是，传统的教科书上，自变量价格（Price）是在纵轴上，应变量产量（Quantity）是在横轴上，如下面这张图：&br&&img src=&/dff7cb38aba603_b.jpg& data-rawheight=&337& data-rawwidth=&537& class=&origin_image zh-lightbox-thumb& width=&537& data-original=&/dff7cb38aba603_r.jpg&&&br&其中supply是供给曲线，demand是需求曲线，Price是价格，Quantity是产量。为了便于大家理解，我把自变量价格（Price）标记在横轴上，把应变量产量（Quantity）标记在纵轴上，为了方便进行参照，我把供给曲线和需求曲线都画为了一条直线，如下图：&br&&br&&img src=&/2e059e65215cfe0acf70afaf_b.jpg& data-rawheight=&330& data-rawwidth=&467& class=&origin_image zh-lightbox-thumb& width=&467& data-original=&/2e059e65215cfe0acf70afaf_r.jpg&&从这张图，我们可以看到，随着价格越来越高，供给量越来越多，需求量越来越少；随着价格越来越低，供给量越来越少，需求量越来越多，供给曲线和需求曲线相交的那一点就是均衡点，对应我们这道题来说，就是供需所决定的市场价格那一点的产量。&br&&br&由于今年土豆大丰收，然而周边居民对土豆的消费函数曲线并没有发生变化，所以供给曲线向上移动，新的供给曲线是supply1，它与需求曲线demand新的相交点，就是新的均衡点，均衡价格下跌。&br&&img src=&/cc752c939d871d89a7bc_b.jpg& data-rawheight=&330& data-rawwidth=&467& class=&origin_image zh-lightbox-thumb& width=&467& data-original=&/cc752c939d871d89a7bc_r.jpg&&&br&&br&&br&农民们进行减产，为的就是把供给曲线重新拉回到红线supply的附近，达到降低产量，提高价格的目的。&br&&br&然而，决定需求价格的不仅仅有供给量，还有&strong&需求弹性&/strong&&br&&blockquote&&em&需求的价格弹性(price elasticity of demand)的定义需求价格弹性简称为需求弹性或价格弹性，它表示在一定时期内一种商品的需求量变动对于该商品的价格变动的反应程度。或者说，表示在一定时期内当一种商品的价格变化百分之一时所引起的该商品的需求量变化的百分比。我们通常用价格弹性系数加以表示：需求价格弹性系数= 需求量变动的百分比/ 价格变动的百分比设：Q 表示一种商品的需求量；P 表示该商品的价格；DQ表示需求量变动值； DP表示价格变动的数值；Ed表示价格弹性系数，则： Ed=(△Q/Q)/(△P/P）。&/em&&/blockquote&以上名词解释来自百度百科。&br&简单来说，价格的需求弹性是指，价格每变动百分之一，需求量变化百分之几，如果价格每下降5%，需求量上升10%，那么需求弹性就是&b&-2&/b&；如果价格每下降10%，需求量上升5%，那么需求弹性就是&b&-0.5&/b&，注意，需求弹性的数值是负号，因为需求量和价格不是同向变动的，价格上升，需求量肯定会下降；供给弹性的数值是正号，因为供给量和价格是同向变动的，价格上升，供给量肯定会上升。&br&需要注意的是，我们在计算百分比时，要采用中点法。&br&我们以-1为界，小于-1的称为富有弹性，比如-2就富有弹性；大于-1的称为缺乏弹性，比如-0.5就缺乏弹性。&br&我们举个需求富有弹性的例子：&br&一家服装店，每件衣服卖10元，每天卖50件，这样一天的销售额就是10X50=500元，他想要赚更多钱，于是他想到了用提价的方式：&br&每件衣服涨10%到11元，但是每天的销量下降了20%到40件，一天的销售额就是11X40=440元。&br&因为需求弹性=-20%/10%=&b&-2&/b&，需求是富有弹性的，所以当价格只涨了10%时，销量下降了20%，反应剧烈，因此总的销售额反而下降了，从500元下降到了440元。&br&&br&还有一家手机店，每部手机卖4000元，每天卖20台，这样一天的销售额就是00元，他想要赚更多的钱，于是他想到了用降价的方式：&br&每部手机降10%到3600元，但是每天的销量却上涨了20%到24台，一天的销售额就是00元。&br&因为需求弹性=20%/-10%=&b&-2&/b&，需求是富有弹性的，所以当价格只下降了10%时，销量上升了20%，反应剧烈，因此总的销售额反而上升了，从80000元上升到了86400元。&br&&br&服装店和手机店的需求弹性系数都是一样的，都是&b&-2&/b&，选择了两种截然相反的销售策略，造成了截然相反的两种结果。&br&&strong&所以，当需求富有弹性时，应该通过降低价格的方式来扩大销量，直到达到最优价格和销量，从而使销售总额达到最大化。&/strong&&br&&br&我们再来举个缺乏弹性的例子。&br&你开了一家大米店，每公斤大米5元，每天卖100公斤，这样一天的销售额就是5X100=500元，你想要赚更多的钱，于是你想到了用提价的方式：&br&每公斤大米提价20%到6元，但是每天的销量只下降了10%到90公斤，一天的销售额就是6X90=540元。&br&需求弹性系数=-10%/20%=&b&-0.5&/b&，由于你提价，总销售额上升了，我们再来看看降价的结果：&br&每公斤大米降价20%到4元，每天的销量上升10%到110公斤，一天的销售额就是4X110=440元。&br&想降价促销，你的总销售额反而下降了。&br&&strong&所以，当需求缺乏弹性时，应该通过提高价格的方式，&/strong&&strong&直到达到最优价格和销量，&/strong&&strong&尽管会使销量下降，但会使总销售额达到最大化。&/strong&&br&那么，什么样的商品是富有弹性呢？&br&首先是可替代的商品，比如说上文中的土豆，土豆价格上涨，超过了原先的均衡水平，那么销量就会大降，因为大家可以去吃红薯，或者米面蔬菜；如果土豆价格相较于原先的均衡价格水平下跌，我们会选择多吃土豆，从而使土豆销量大涨。&br&其次是占据收入比重较大的商品，比如说手机，一个月工资就5000，买个手机就要花4000，如果手机价格上涨，涨到了6000，那我们就会暂缓购买手机的计划，手机销量就会大降；如果手机价格下降，降到了3000，那我们就会选择购买手机，手机销量就会大涨。所以我们经常看到手机通过降价促销的方式增加总销售额，很少看到通过涨价的方式增加总销售额，就是这个原因，个别手机除外。&br&还有其他影响因素，这里我们就先介绍这两种影响因素。&br&大家通过我上述分析过程，知道了供给影响需求，需求弹性影响总收入。&br&&b&我在这篇回答里提到了两个核心思想，一个是农民们不能通过博弈达到均衡，第二个就是由于土豆的需求富有弹性，即使是统一销毁土豆，也要考虑最优的销毁数量。&/b&&br&下面，我们就把商品的需求弹性问题，进行展开讨论，土豆到底要销毁多少才能达到收益的最大化。&br&&strong&商品的替代性越强，越富有需求弹性。&/strong&因为当该商品价格上涨时，消费者可以选择其替代商品，从而对该商品的需求（依赖性）不那么强。由于烟草没有合适的替代品，所以烟草的价格需求弹性较小。&br&下面我再贴一段我所学教材的截图：&br&&img src=&/5e7bd2bbccffd799d7e3ca06fb81de3d_b.jpg& data-rawheight=&262& data-rawwidth=&631& class=&origin_image zh-lightbox-thumb& width=&631& data-original=&/5e7bd2bbccffd799d7e3ca06fb81de3d_r.jpg&&&br&我简要给大家翻译一下：&br&&strong&当一个商品有很少或者没有替代品时，需求趋向于相对缺乏弹性。&/strong&试想一下，有一种能够维持你生命的治疗心脏病的药物，如果你每天吃两片，你不会因为药物价格上涨就减少购买量，也不会因为药物价格下跌就增加购买量。&br&&strong&当一个商品有一个或很多个替代品时，需求将会趋向于富有弹性。&/strong&试想一下，有两个加油站提供质量一样的汽油，如果一个加油站降低了油价，那么你会都在这里加油；当这里价格上涨，会导致你都在另一家加油站加油。记住，我们计算需求和弹性，假定相关物品的价格保持不变。&br&划线文字的翻译，我用黑体标了出来。&br&同时，我们应该知道，在一条线性需求曲线上，不同的点弹性是不一样的。&br&我们之前对需求弹性的数值作出过定义：&br&弹性=-1: 单位弹性&br&弹性&-1
缺乏弹性&br&弹性&-1
富有弹性&br&土豆有很多的替代品，比如其他薯类，比如米面菜，土豆并不是非吃不可的食物，所以土豆的需求是富有弹性的，弹性&-1.&br&下面，我截取我所用教材的一副图，为大家详细讲解在需求曲线上的不同点，弹性的分布概况：&br&&img src=&/ef4eaa3a99d0a_b.jpg& data-rawheight=&571& data-rawwidth=&633& class=&origin_image zh-lightbox-thumb& width=&633& data-original=&/ef4eaa3a99d0a_r.jpg&&&br&这副截图中，纵轴是自变量价格（Price），横轴是应变量产量（Quantity）,其中（b）点是单位弹性，（a）点在高弹性范围，（c）点在低弹性范围.&br&&br&我们来计算一下，需求曲线上，价格每增加1元钱，因为需求量变化而引起的总收益的变化。:&br&1X80=80&br&2X70=140&br&3X60=180&br&4X50=200&br&&strong&4.5X45=202.5&/strong&&br&5X40=200&br&6X30=180&br&7X20=140&br&8X10=80&br&我们可以看到，单价4.5元是一个分水岭，价格小于4.5元时，价格越高，总收益越大；价格大于4.5元时，价格越高，总收益越小。&br&价格小于4.5元，是在低弹性范围；价格大于4.5元，是在高弹性范围。&br&这里再引用一下之前我们得出的结论：&br&&strong&当需求缺乏弹性时，应该通过提高价格的方式，&/strong&&strong&直到达到最优价格和销量，&/strong&&strong&尽管会使销量下降，但会使总销售额达到最大化。&/strong&&br&&strong&当需求富有弹性时，应该通过降低价格的方式来扩大销量，&/strong&&strong&直到达到最优价格和销量，&/strong&&strong&从而使销售总额达到最大化。&/strong&&br&结合上面所列的数据，一目了然。&br&我们假设以上的需求曲线就是土豆的需求曲线，由于土豆今年大丰收，造成土豆产量上升，导致价格降低，我对上图添加了一些曲线，如下：&br&&img src=&/12e89baee3dd691da9cc965_b.jpg& data-rawheight=&344& data-rawwidth=&394& class=&content_image& width=&394&&&br&&br&蓝色为需求曲线，我们假设在这片区域，大众对土豆的需求量最高到90。&br&&strong&红色的供给曲线supply&/strong&与需求曲线demand相交的那一点，是最优供给点，供给量是45，能够达到最大的收益：&br&&strong&4.5X45=202.5&/strong&&br&&strong&黑色的供给曲线supply1&/strong&与需求曲线demand相交的那一点，是在需求曲线缺乏弹性的范围。由于今年大丰收，所以供给量上升，供给曲线向右移动，均衡点（相交点）的供给量是70，所以，能达到的收益是：&br&2X70=140&br&所以农民今年种土豆，会造成收入大幅下降。&br&于是农民开始思考，通过减产的方式，达到最大收益，那么要减产到多少呢？&br&减产到最优供给点，也就是供给量为45的那个位置。&br&由于&strong&黑色的供给曲线supply1&/strong&和需求曲线的交点在缺乏弹性的范围，所以此时，应该通过提高价格的方式，直到达到最优价格和销量，尽管会使销量下降，但会使总销售额达到最大化。&br&4.5X45=202.5&br&当减产到45产量达到最优供给点时，农民们的收益达到最大，如果继续减产，那将进入富有弹性的范围，会导致总收益减少。&br&如果农民们坚持继续减产，&strong&直到粉红色的需求曲线supply2&/strong&，那么总收益反而会降低：&br&6X30=180&br&所以即使农民减产，应该减产到最优供给量45就停止，因为继续减产会造成总收益降低。&br&以上的这些假设，都有个前提，就是农民们种植出来的土豆，都是完全能够卖出去的，因为我们设定了这片区域的土豆的总消费量最多到90，所以即使今年土豆大丰收，产量达到了70，如果万不得已，必须以极低的价格出售，土豆也都能完全售罄。&br&但是，还有另一种假设，我们假设这个区域内，大众对土豆的消费量是有上限的，比如每年最多消费40单位的土豆，那么，农民们应该怎么操作呢？&br&我们继续上图：&br&&img src=&/c48aae43af_b.jpg& data-rawheight=&344& data-rawwidth=&394& class=&content_image& width=&394&&由于农民对土豆的消费量最高只有40，所以我把产量大于40的的需求曲线给擦除了。&br&土豆的最高消费量只有40，小于最优供给产量45，我们要把供给量从70调回到最高消费量40.&br&由于土豆大丰收，供给曲线由原先红色的supply右移到粉红色supply1的位置，但我们发现，新的供给曲线和需求曲线并不相交，没有交点，那么，在这个供给水平下，是没有均衡点的。现在，农民们通过减产土豆的方式提高价格，本来能供应70单位的土豆，那么销毁30单位，把供给曲线重新拉回到红色的supply的位置，均衡供给量是40，对应的价格是5，总收益=50X4=200元.&br&在总需求量上限为40单位的情况下，农民们能够通过降低供给量的方式，提高土豆价格，从而把总收益拉回到原先水平。&br&&strong&我们注意，土豆的价格只是涨回到了原先的均衡价格水平，农民们通过销毁土豆的方式，使土豆的价格实现了回归。但如果农民们想继续销毁土豆，让价格继续上涨，那会触发替代效应，即消费者认为土豆的价格超过了均衡水平，他们可以选择其他的米面蔬菜，作为土豆的替代品，从而使得因为土豆的价格上涨，米面蔬菜的消费量升高。&/strong&&br&&br&以上就是全部的分析过程。&br&大家如果觉得读完还算有收获，那就点个赞吧*^_^*&p&谢谢&/p&&br&&p&想要了解财务金融的基础知识，请点开我的这篇文章：&br&&/p&&h2&&a class=&internal& href=&/p/&&不懂财务金融？看过这篇文章你就入门了&/a&&/h2&&p&想了解关于公司金融的基础知识，请点开我的这篇文章：&br&&/p&&h2&&a class=&internal& href=&/p/&&关于公司金融的那些事儿，其实没那么复杂&/a&&/h2&
阅读提示：人们常开玩笑道，会说供给和需求，你也可以和别人聊聊经济学了。本文6500字，通过具体案例，深入浅出地为大家介绍了经济学中的供给和需求原理、产品需求弹性的入门基础知识，欢迎大家阅读。以下文章内容搬运自我在这个题目中写的答案：
&p&人生最好五年就在一间公司过了，这五年就好像在我躺在铁轨边上，听见中国经济呼啸而过，回头看就觉得在中国做投行真的是可以在短时间内经历别人无法想象的巨变，因此想好好纪录一下我的生活。&/p&&br&&p&容我从2010年说起，当时刚入行，世界刚从海啸中复苏，四万亿遍地建桥造楼，当时做了AIA上市，那是金融危机之后AIG断臂还债的大项目，还做了各大国有商行的配股，当时的中国呈现出一种全球金融海啸都无法阻挡半分的巨大增长潜力。&/p&&br&&p&整个金融界都对中国的未来有一种前所未有的乐观情绪，每个人都在算中国人要穿多少西装（利郎项目），多少珠宝（周生生项目），买多少手机（乐语项目），上多少英语课（环球雅思），喝多少牛奶（雅士利），吃多少火锅（小肥羊），擦多少屁股（维达纸巾），每个人都觉得自己能在在这个巨大人口基数中挖到金子，市场上有非常强烈的乐观情绪。这市场有多好呢？我上班第三天瑞信就来挖人，我告诉猎头说我第三天上班，他们说知道没经验但就是要挖说中文的人。&br&&/p&&br&&p&美国欧洲的基金经理没有来过中国，但掐指一算就把身家性命押在中国上，后来的故事大家都知道了，上述的一半企业都只能残喘了。这一年我入行，也是工作以来最累的阶段，最夸张的时候就是五天定价四个项目，工作48小时睡5个小时再工作48小时。这一年也是红杉系企业大举进入市场的时刻，包括博纳，蓝讯，乡村基，诺亚全都是沈南鹏的企业，后来在很长的时间里我们都是为红杉系企业打工，那时候啊高瓴还是一个中型基金。&/p&&br&&p&这一年极其重要因为奠定我后来五年的很多工作方式以及世界观，直接改变了我的“金线”，教会了我什么叫大局观。&/p&&br&&p&2011年1月的时候，我们叫一个互联网公司卖旧股，因为股价从上市起已经翻了几倍，股东很贪心，两三分钱吵的不可开交，我印象很深因为他们说春节后再讨论。后来中概股危机发生了，股价大多腰斩，要卖也卖不出去了。东南融通啦，网秦啦，全都跌没了。中国人去美国路演就是被人当骗子看，CFO要银行存折带着走，世纪佳缘等上市都困难很多，这一年最大中概股项目是人人网的八亿美金上市，当时说中国的Facebook哦，现在回头看就不知道是什么了。（如今随便一个C轮公司就可以融这么多钱了吧？）当时中国消费股还是可以忽悠一下市场的，Esprit和李宁都是后来才垮掉的。&/p&&br&&p&其中我们为了争取凡客诚品这个项目，做了很多努力，我真的是熬了四五个通宵，为了讨好公司，我自己单独开了一个网店，截屏放在我们的计划书上。那就是当时的凡客达人网店，陈年说的凡客真正的互联网转型，也就是现在说的网红经济。后来的事情大家就都知道了。&/p&&br&&p&我觉得这一年我最感概的其实不是凡客，而是三一重工，当时还陪着向总开投资者会议，三一是极少数公司可以如此大牌（当时），可以不挪位置，让投资者络绎不绝上门来开会的。可现在三一也开始做手机了。&/p&&br&&p&项目的细节自然不方便说，可是主要的教训就是中国这个地方什么产业都会在资本的助力下催熟的很快，也会死的很快。周期比别国短，你要不就一直自我更新换代好像腾讯阿里，自己走在自己前面，否则在转瞬即逝的时势上稍微一个失手就前功尽弃。（还有一个例子就是优酷/土豆，也就差几个月啊）&/p&&br&&p&2012年的时候，中国市场非常差，神州租车的美国上市也失败了，公司裁了很多人，当时离开公司的小朋友们有些去了京东，Uber，Facebook，拿了科技公司的股权，还有同事创立了有利网，我居然一直留在投行。这年算是完全废了。如果那时决定做点什么，那今天也许已经财务自由了。当时阿里巴巴在支付宝事件后还出现过短时间融资困难，我的天，你可以想象马云需要钱拿不到的时候吗？如果说有什么教训的话，就是一定要逆势而为，要凑近了看，要敢赌大的。&/p&&br&&p&这一年我入行第三年，我自己第一次带队帮一个医药公司融了5000万美元，真的是第一次自己主导融资过程，面对并解决各种困难。当时还算是个菜鸟，这个项目轮得到我插手主要是因为没有人看得上，而且没有人认为做得成。我做成功不因为别的，我是刚好坚持下来了。这个项目给公司赚了钱，我在组里的地位也瞬间提高了，被认为是可以独挡一面的人，为后来的很多事铺了路。&/p&&br&&p&2013年我升了经理，那一年我是deal captain做了某服装公司的上市，与前几年的消费品不同，这已经是一个设计师品牌了。年底又已经做了几个矿业的项目，这时候资本市场已经有了非常恶劣的风气就是注重基石投资者，不了解的朋友可以找找知乎里的一些介绍。理论上基石投资者是帮助发行减低风险的，可是后来实际上变成发行人提前预售并控制定价的方式，其中猫腻不为外人所知。国企上市成了其他国企互相投资的机会。国企上市本来是privatization，结果上了后大小锁定股东还是国企。这个事情让我对当时的工作性质产生强烈厌倦，当事人应该都记得人保集团上市项目给我们工作体验和生活带来的影响。当时啊以为这就是极致，后来发现更多公司做了更多次一样的事情。这一年开始，我对帮公司找基石投资者有强烈的反感。&/p&&br&&p&2014年主要就是京东了，这个时候中国互联网大潮已经开始了。我经常在想中国互联网到底是一个什么样的存在？我对企业的早期判断真的是错的离谱，我曾经觉得奇虎这公司要倒闭了，我曾经觉得豆瓣是明日的太阳。因为我看康熙一直用当时的PPS，所以我对其他网站就视而不见，当时我觉得唯品会就是卖福建小牌子的网站，别人和我提到美团，我还在反问拉手糯米窝窝在哪，2014年我第一次见到王兴的时候，他已经是个意志坚定并且有明确想法的人，当时我不理解美团，也意识不到后来的趋势。如果可以预期后来的发展，我就应该跪在地上要一份工作呢。我在很多事情上都错的离谱，真的应该自残双眼。&/p&&br&&p&也许就是这些错误的判断，让我对未来有更加谦虚的态度，让我后来愿意走得更近，看得更细，更能够识破别人的吹嘘与谎言。&br&&/p&&br&&p&这一年下半年就花在中广核上了，这是教科书般的成功案例，我职业生涯中非常高兴能够做到这样的案子，可以吹一辈子。&/p&&br&&p&2015年发生了很多人事变动，原来的部门和新去的部门人员变动起码60%，过去五年搭好的伙就要拆了。每天在办公室都会想到那些为离别而创作的唐诗宋词。这一年也真正开始把兴趣和事业集中在科技行业上，上半年一窝蜂的私募融资，并购还有私有化。这是分水岭的一年，我真正开始成为一个idea generator，就是能提供客户欣赏的想法建议。投行的人说白就是谋士，你的想法一定要有人觉得有价值，而我这一年不论是想法或者是想法的表述上都得到了很大的提升。我觉得自己真的很幸运，怎么总是有那么多人相信我，给我那么多机会试错，来快速提高自己。&/p&&br&&p&但这一年也是焦虑的一年：&br&&/p&&br&&p&“TMT深深改变了我们的生活，我同一届进投行的人里现在好多都去了Facebook，Apple，Uber，乐视，京东，春雨医生等，留在金融圈的人都少了。剩下我还在投行，不过做的也是TMT。而我每天早上醒来都在面对自己的无知，不知道手机里某半导体芯片的2020年价格预测，不知道女性月经app如何转化到女性电商，不知道土耳其的logistics是不是像中国一样好可以短时间送货，不知道银监会对各种P2P的监管方向，不知道VR产品研发量产的时间表，不知道二次元的a股公司有没有兴趣做跨国动漫IP并购，不知道太子妃对乐视订阅会员的转化率数据，不知道二线城市按摩店的GMV take rate，不知道印尼政府对于打车软件的看法，不知道锤子手机的最新出货量，不知道gopro的股东平均成本是多少，不知道蜘蛛人在法律上如何重新加入复联，每天早上起来就掉进知识带来的巨大焦虑之中，以夸父追日的姿态去抵抗这个变化太快的世界。思维啊框架啊总是需要一点点东西来填补的。”&br&&/p&&br&&p&回顾我的五年，从早期的工业，地产，零售消费到后期的新能源，互联网，金融科技，我的职业生涯就是一个被高度浓缩的中国现代经济发展史。我仿佛坐在第一排的位置上看了一场前所未有的大戏，我见过亲手上市的企业半年内就被人收购，我写过国企的MEMO后来收信人都进了监狱，我曾经有项目失败后CEO去出家的，我还有见过上市第三次失败的公司，我因为三分钱的定价当着客户的面和自己的MD吵起来，也曾经因为三分钱的事被客户困在办公室24小时睡不了觉，我曾经在美国收市香港开市前的半夜中几个小时做了一个14亿涉及两个上市公司项目，我曾经被客户骂的体无完肤后来那客户两年内关了一半店，我还曾经为了做一个项目每天带人去看海豚和白鲸，而更重要的是，令人印象深刻的不是成功的项目，而是那些失败的项目。我时时想起那些失败的人，想想自己的错误，客户的误判，市场的不可测，遇到这样的情况，就总是思考是否还有另一种可能。&/p&&br&&p&我们用非常短的时间走了别人很长的路，而这条路还是继续快速地往前延伸，我们不知道自己将去向何处，我们努力追赶，就是希望能够不要被时代甩的太远。这五年给我的体会就是世界是如此之大，每一个人包括创业者也好，投行人也罢，都要抱持谦卑，以求寸进。&/p&
人生最好五年就在一间公司过了，这五年就好像在我躺在铁轨边上，听见中国经济呼啸而过，回头看就觉得在中国做投行真的是可以在短时间内经历别人无法想象的巨变，因此想好好纪录一下我的生活。 容我从2010年说起，当时刚入行，世界刚从海啸中复苏，四万亿遍…
已有帐号？
无法登录？
社交帐号登录
111 人关注
175 条内容
1699 人关注
281 条内容
1790 人关注
357 条内容
960 人关注
341 条内容}