Excel生成一列17位的字符！要求：需要2200组，前面6到11位是字母后面是数字（随机生成，不要重复）在线等

Excel里生成一列17位的字符！要求：需要2200组，前面6到11位是字母后面是数字（随机生成，不要重复）

在线等！秒采纳！！！谢谢！！
不好意思表达能力有限呵呵！
总共17个字符前面需要字母开头前面6-11个字母都行，后面数字补齐就行了！

如图

能生成出来发我吗

举报该问题

其他回答

第1个回答 2015-03-24

A1 = ABCDEFGHIJKLMNOPQRSTUVWXYZ
B1 =TEXT(RANDBETWEEN(0,99999999999),"00000000000")
C1 =MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1) & MID($A$1,RANDBETWEEN(1,26),1)
D1 =C1&B1
E1 =MID(D1,RANDBETWEEN(1,6),17)

BCDE四列往下复制2200份，E列就是你要的追问

能生成给我吗

不会弄

追答

打开一张新sheet，把我给你的直接复制填到ABCDE五个格里面，选中BCDE四个格，点中右下角往下拖

追问

你帮我做好我下载！我来采纳你的答案好吗大哥帮忙

追答

我这里不能上传东西到外网，这么简单的东西如果你不会，那么给你你也没法用啊

第2个回答 2015-03-24

如下VBA代码测试通过：

Sub CreateString()
Cells.ClearContents
For i = 1 To 2200
For j = 1 To 11
charx = Int(Rnd(j) * 100) Mod 26

Cells(i, 1) = Cells(i, 1) & ntc(charx)

Next
For j = 12 To 17
charx = Int(Rnd(j) * 100) Mod 10
Cells(i, 1) = Cells(i, 1) & charx

Next

Next

End Sub

Public Function ntc(number) As String
If number <= 26 Then ntc = Chr(number + 64) Else ntc = IIf(number Mod 26 = 0, Chr(Int(number / 26) + 63), Chr(Int(number / 26) + 64)) & IIf(number Mod 26 = 0, "Z", Chr(64 + number Mod 26))
End Function追问

不会用！能帮忙生成出来吗！我来下载

本回答被网友采纳

第3个回答 2015-03-24

问题表述不清，没看清什么规律追问

2200组，前面6到11位是字母后面是数字（随机生成，不要重复）

追答

前面5位呢?

追问

不好意思表达能力有限呵呵！总共17个字符前面需要字母开头 6-11个字母都行，后面数字补齐就行了！