求两段vba代码 在b5至c19（BC列为合并单元格）中生成1-70随机且不重复的整数。

来源：蜘蛛抓取(WebSpider) 时间：2022-05-08 22:46 标签： 生成一定范围随机不重复整数

最近几天帮助几位小朋友解决Excel问题，遇到最经典的问题就是需要拆分一对一的内容到一对多，数据截图如下：

通过上图可以看到数据有2列，【订单编号】和【物流单号】，其中【订单编号】一列中包含多个以逗号分隔的订单，也就是说该列中每一个单元格包含至少一个订单，也可能包含多个订单，要求是变为如下所示的一对多关系：

可以很清楚的看出，A2单元格的两个订单分别拆分到D1和D2单元格，物流编号都是一样的。究竟需要如何去做才能得到上图效果呢？

刚刚接触到该问题，我在想能否不适用VBA来达到，通过一段时间的思考，是可以通过数据分列+数据透视表来完成。但由于订单编号列不知道数据具体长度，但每一个订单都超过15位，所以直接分列会出现变为科学计数法，可以在分列的时候设置为文本即可。

由于该方法比编写VBA代码更加繁琐，在此处就不介绍了。
使用VBA解决该问题的思路是使用循环从A2单元格一直向下，直到单元格为空值，每一次循环就使用函数Split把订单编号拆分，然后放入二维数组中即可。等循环完成后，再把二维数组放入到D和E列即可，具体实现代码如下：

'过程作用：实现数据一对多 '定义一个二维数组，用来存放数据 '生成的二维数组数据保存到单元格

为了更加方便调用宏，特地通过插入形状并绑定宏，可以通过单击图形即可执行宏代码。

如果【调试代码】按钮不会设置，请查看文章。

为了更加直观的演示，特地使用LICEcap录制如下动态图：

如果对代码还不够理解，可以逐步调试，就可以理解代码的含义了。为了让大家对该类问题更加了解，我还为大家准备了案例二（来自EH论坛），案例二的要求如下：

这两个案例非常类似，都是需要把数据由一对一变为一对多，具体实现代码如下：

'过程作用：实现数据一对多 '重新定义sutBrr为二维数组

今天为大家介绍的两个案例都是对数据进行拆分，如果需要合并相同属性区域请移步我的另一篇文章。还有一位小伙伴咨询我也一并解答了，具体问题和解答方法请见下图：

上一期为大家介绍了强大的动态看板，不知道大家都会制作了吗？如果学习过程中遇到任何问题，欢迎加群（QQ群：）交流，想要素材的小伙伴可以在公众号回复“”得到哦~后期文章附带的素材，大家都可以通过在公众号回复该文档发送的日期得到，欢迎下载学习^_^Written by Steven in ^_^

SUT学习交流群：，入群审核人：Steven

关注公众号，提高效率，节约您的时间！

微信时代的今天，短信同样不可缺席，大系统都有集成短信接口。
若只是临时用一下，若可以直接在Excel上加工好内容就能够直接发送，这些假设在此篇批量群发短信功能中都为你们带来完美答案。数据库

很少说，发送短信人人都有需求，本身云思考如何使用这个短信的好工具就好。安全

此篇仅对众多短信接口中的腾讯云短信功能给予支持，其余接口没有开发，原理也类似，实在有其余接口需求时，可给予赞助下，Excel催化剂将其实现出来。服务器

要批量发送短信，在如今工信部对短信垃圾严查的时代，就没那么容易了，须要本身在各大短信平台里注册，并按平台要求进行内容审核才可正常使用。微信

腾讯云短信接口申请流程

腾讯云每个月提供100条免费短信供使用，临时性需求应该够用。不够用时能够购买付费短信套餐。数据结构

简单对腾讯云短信接口的申请流程做一下描述。函数

  1. 先有腾讯云账号，有微信、QQ、手机号等都很轻松能够注册成功
    具体的注册流程，自行搜索相关内容进行实操。工具

  2. 在腾讯云上注册短信应用
    申请开通应用的前提是须要实名认证，按提示操做便可。
     尝试在这个网址上做下应用申请。学习

  3. 申请发送短信的签名与短信正文模板
    点击申请好的应用，跳转到以下图，按提示填写申请签名与申请短信正文模板。人工智能

经过以上申请好腾讯云的短信接口及短信签名、正文模板后，便可在Excel催化剂上实现批量发送短信的操做。加密

步骤一：按要求整理好数据源，最终生成一列用于引用的单元格区域并选定。

格式为：短信签名+短信正文模板ID+短信引用的变量（变量可多个，但须要和模板的变量数量及顺序一致）

步骤二：点击【批量发送短信】按钮调出配置窗体

将本身在腾讯云上申请到的AppID和AppKey填写进来。

按本身内容的设置，将短信内容分隔符填写进来，再将发送后的状态结果要保存到的单元格位置给填写上（相对引用内容列的偏移量）

步骤三：点击【发送】按钮便可完成。

发送后，若出现异常可随时按停止键中止。

在Excel催化剂上发送短信的优点所在

从以上步骤可知，Excel催化剂插件的方式发送短信，所须要的配置信息最小，无需频繁地切换Excel文件和短信平台要求的模板文件，可直接使用简单的函数公式，在现有数据源中进行加工，仅需按指定要求构造好引用内容列便可。

以上演示数据中，其实未能让你们感觉到其真正的灵活性，若须要对多种相似状态的用户进行多种的短信模板的发送，在其余平台上，确定须要屡次设置短信模板，再屡次进行系统发送动做。

在Excel催化剂上，再次见证了其与Excel紧密结合的极大好处，仅需按要求，按不一样条件写几个IF函数嵌套一下，生成所需的内容列便可批量一次性发送多个短信模板、多个短信签名，多个变量共存的短信内容发送，灵活性大大加强。

Excel和Excel催化剂的结合，可以发挥的做用，是无穷无尽的，在各类系统里繁琐操做的业务过程，其实很大程度上均可以分离到Excel环境上更方便、更灵活地完成。

特别是对一些临时性的需求，没有什么其余方案能够和在Excel上做简单的二次开发所带来的效率上的提高和成本上的节约相提并论的。

Excel催化剂一直等待着众位的企业级的需求的激活，相信Excel催化剂手中的数据应用方案，一定能带给众企业主满意的答案。


Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周可以上线一个大功能模块。Excel催化剂插件承诺我的用户永久性无偿使用！

Excel催化剂插件使用最新的布署技术，实现一次安装，往后全部更新自动更新完成，无需重复关注更新动态，手动下载安装包从新安装，只需一次安装便可随时保持最新版本！

Excel催化剂插件下载连接：

因插件使用VSTO开发技术完成，插件的安装须要电脑知足相关的环境配置才能运行，且需可链接外网的方式实现自动更新机制，若下载安装过程当中有任何疑问或须要离线版安装等，尽可能不单独私聊询问，加QQ群可高效解决（群内已聚集了VSTO开发、Powerbi技术、Sqlserver商业智能等方面的国内顶尖大牛人物，进群的好处不用多说了）

Excel催化剂插件交流群群二维码

取名催化剂，因Excel自己的强大，并不是全部人可以立马享受到，大部分人仍是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，并且高手们也已经实现出来，就是本身怎么弄都弄不出来，或者更糟的是还不知道Excel可以作什么而停留在不断地重复、机械、手工地在作着数据，耗费着无数的青春年华岁月。因此催生了是否能够做为一种媒介，让广大的Excel用户们能够瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。

最后Excel功能强大，其实还需树立一个观点，不是全部事情都要交给Excel去完成，也不是全部事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其余更多一样精彩强大的技术、工具等。*Excel催化剂也将借力这些其余技术，让Excel可以发挥更强大的爆发！

关于Excel催化剂做者

姓名：李伟坚，从事数据分析工做多年（BI方向），一名一样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、惟品会）

技术路线从一名普通用户，经过Excel软件的学习，今后走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识再也不太吃力，同时也造成了本身的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展现等）。

2018年开始职业生涯做了重大调整，从原来的正职工做，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦从新回到正职工做，对Excel催化剂的运营和开发一定受到很大的影响（正职工做时间内不可能维护也不可能随便把工做时间内的成果公布于外，工做外的时间也十分有限，因已而立之年，家庭责任重大）。

和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们可以给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的能够和所在公司及同行推荐推荐，让个人技术能够在贵司发挥价值，实现共赢（初步设想能够数据顾问的方式或一些小型项目开发的方式合做）。

我要回帖

更多关于 生成一定范围随机不重复整数 的文章

 

随机推荐