Excel做乱号数据

来源：百度知道 编辑：UC知道 时间：2024/06/15 04:49:08
我要做一个数据,由英文加数字组成,共1000个,每个6位数,如2D2555,D556F4F,......要随机乱排的,不要顺号,不能有重复,做的是一列密码,想学一下方法
要2位大写英文字母,四位数字,要乱排的,如A444D5,D4F554,45RH51...

用宏来解决,三步走:
1.alt+F11
2.双击左边工程框里的Sheet1,右边的编辑窗口中输入以下代码：

Sub yueliang()
Dim Six As String
Dim x,y,m,n as integer
Six = ""
For X = 1 To 1000
m = 0
N = 0
Do Until m > 1 And N > 3
If Rnd() < 0.5 And m < 2 Then
Six = Six & Chr(65 + Rnd * 25)
m = m + 1
ElseIf N < 4 Then
Six = Six & Int(Rnd * 9)
N = N + 1
End If
Loop
Cells(X, 1) = Six
Six = ""
Next
End Sub

3.分别将鼠标放到程序中，点F5即可
或alt+F8,运行这个宏

下面的公式可以产生六位数字随机数
=int(rand()*900000+100000)

至于如何产生包含字母的随机数,我也等待达者解惑

假设你要在A1:A1000产生1000个号码.
按下ALT+F11,菜单-插入-模块,复制下面代码,按下F5运行.
如果有错误发生.可以是没有加载宏(进行,工具-宏-加载宏-VBA函数)

Sub CODE()
Dim SUM As String
SUM = ""
For X = 1 To 1000
For Y = 1 To 6
If Rnd() > 0.5 Then
SUM = SUM & Chr(WorksheetFunction.RandBetween(65, 90))
Else
SUM = SU