vba手机号码归属_EXCEL之VBA应用实例-自动生成指定数量随机手机号

可以把下面的代码直接复制到VBA编辑器里测试

Sub 生成随机手机号()

r = Selection.Row ‘获取当前选择的单元格的行号，如果选择的是一个区域则返回左上角第一个单元格的行号

col = Selection.Column '获取当前选择的单元格的列号，如果选择的是一个区域则返回左上角第一个单元格的列号

d = InputBox("请输入要生成的手机号数量：") '弹出一个输入框并把输入的值赋值给变量d

nd = IsNumeric(d) '判断变量d是不是数值，并把结果赋值给变量nd，如果是数值返回true,如果不是数值返回flase

If d = "" Or nd = flase Then '如果输入的值为空或不是数值则

MsgBox ("你没有输入数据或输入的不是数值") '弹出一个警告框

Exit Sub '并退出当前程序块

End If 'If语句结束

Randomize '以当前计时器初始化随机生成器

For t = 1 To d '循环语句开始，从选择的单元格开始生成随机手机号，循环的次数是从1到变量d，d是上面输入框输入的数值,后面不带参数step，默认步进值为1，就是每循环一次，自动+1，并把当前值赋值给变量t