公司会经常筹办一些内促赛,目的是激励销售去创造更多流水.抽奖是常用的以小博大的手段,例如下面方案

在2020年双十一期间,即11月1日-11日24点,销售每成交1单,即获得一份抽奖券.在双十一结束之后,也就是11月12日,将进行iPhone12的抽奖活动,届时,抽奖券的数量将会决定销售的中奖概率

例如公司有3个销售小红,小明,小张.他们期间成交的单数及抽奖概率如下表

我们在做模型的时候,一般是从数据库取数,会形成一张汇总表

但是在抽奖的时候,我们得每一张抽奖券生成一条记录数.因为抽奖系统比较bug,只能按照行数进行抽奖,所以我们要生成员工姓名*成单数这么多行数的记录,也就是100行数据.下面用两种方法在不脱离Excel环境的情况下实现

点击数据表,然后依次点击数据–>从表格,将数据加载到PowerQuery

依次点击添加列–>自定义列,在自定义列公式输入下面内容然后确定

Step 3 点击箭头,扩展到新行,完成

点击字段名右边的双向箭头,选择扩展到新行
点击主页–>关闭并上载就可以显示到Excel工作表中了

VBA的实现逻辑是这样的

实现代码如下,为了方便扩展,便将代码极可能的变量化

不知道如何运行VBA代码?参照下面这篇文章