Excel编写随机号码段手机号公式

输入以下公式，然后向右向下填充公式

=CHOOSE(RANDBETWEEN(1,3),1515204,1589525,1390522)&TEXT(RANDBETWEEN(0,10^4-1),"0000")

公式分成两部分，CHOOSE(RANDBETWEEN(1,3),1515204,1589525,1390522)表示随机从1515204,1589525,1390522三个数号选一；TEXT(RANDBETWEEN(0,10^4-1),"0000")表示，将0-9999之间的随机数以4位数显示。从而实现在给出的号段随机生成号码的效果。

详见附图

'按alt+f11进入VBE编辑窗口，然后选择插入----模块----会打开一个模

'块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口

'按alt+f8打开运行宏窗口，会看到lotto宏，运行它就可以了！

假如数据在A列，号码从A2开始，在B2单元格里输入公式“=IF(COUNTIF(A:A,A2)>1,"重复","不重复"）”，然后点击B2单元格，在该单元格的右下方出现一个黑十字，左键拖住它往下拉复制公式到需要的位置。

比如 A1输入
=CHOOSE(RAND()*2+1,15152040000,15895250000,13905220000)+ROUND(RAND()*10000,0)
下拉(要多少，就下拉多少行）
按F9刷新变化号码。

=CHOOSE(RAND()*3+1,15152040000,15895250000,13905220000)+INT(RAND()*10000)

怎么在Excel表格中生成1820557号段的所有手机号码，急用，谢谢