Excel随机生成手机号的三种方法

创作时间:

作者:

@小白创作中心

Excel随机生成手机号的三种方法

引用

来源

https://docs.pingcode.com/baike/5005977

在Excel中随机生成手机号码是一项实用的技能，无论是用于数据模拟、测试用例生成还是市场调查，都能派上用场。本文将详细介绍三种在Excel中生成随机手机号的方法：使用RAND函数、自定义函数以及VBA代码。

一、使用RAND函数生成随机手机号

创建基本格式

首先，我们需要确定手机号码的基本格式。在中国，手机号码通常是11位数字，以1开头，第二位为3、4、5、6、7、8或9。我们可以通过拼接函数和RAND函数来生成这个格式。

生成随机数

使用RAND函数生成一个随机数，然后乘以适当的倍数以获得所需的位数。例如，生成一个随机的8位数：

=INT(RAND()*90000000) + 10000000

组合完整的手机号

将前两位固定为常见的手机号开头（如13、15、18等），再加上生成的随机数：

="13"&INT(RAND()*90000000) + 10000000

这样就可以得到一个随机的11位手机号码。

二、利用自定义函数生成随机手机号

定义自定义函数

在Excel中，我们可以使用VBA来定义一个自定义函数，生成随机手机号。打开Excel，按下 Alt + F11 进入VBA编辑器，插入一个新的模块，并输入以下代码：

Function RandomPhoneNumber() As String
    Dim prefix As String
    Dim number As Long
    ' 随机选择一个前缀
    prefix = Choose(Int(Rnd() * 7) + 1, "13", "14", "15", "16", "17", "18", "19")
    ' 生成8位随机数
    number = Int((90000000 * Rnd) + 10000000)
    ' 组合完整的手机号
    RandomPhoneNumber = prefix & number
End Function

使用自定义函数

返回Excel工作表，在单元格中输入 =RandomPhoneNumber()，即可生成一个随机的手机号。

三、借助VBA代码生成大量随机手机号

编写VBA代码

如果需要批量生成随机手机号，可以使用VBA代码来完成。打开VBA编辑器，插入一个新的模块，并输入以下代码：

Sub GenerateRandomPhoneNumbers()
    Dim ws As Worksheet
    Dim i As Integer
    Dim prefix As String
    Dim number As Long
    Set ws = ThisWorkbook.Sheets(1) ' 选择要填充的工作表
    For i = 1 To 100 ' 生成100个随机手机号
        ' 随机选择一个前缀
        prefix = Choose(Int(Rnd() * 7) + 1, "13", "14", "15", "16", "17", "18", "19")
        ' 生成8位随机数
        number = Int((90000000 * Rnd) + 10000000)
        ' 填充到工作表
        ws.Cells(i, 1).Value = prefix & number
    Next i
End Sub