[已解决]请有空的童鞋帮忙写个公式或VBA，三位数（数字+字母）全组合，谢谢

xhczq · 发表于 2014-1-14 10:45

本帖最后由 xhczq 于 2014-1-14 11:17 编辑

请有空的童鞋帮忙写个公式或VBA，三位数（数字+字母）全组合，谢谢

0-9
小写：a-z
大写：A-Z
三位数，所有组合

万分感谢

最佳答案

月排行榜 / 总排行榜

xdragon

2014-1-14 11:09

本帖最后由 xdragon 于 2014-1-14 14:20 编辑

Sub t()
Dim i%, j%, k%, arr(1 To 238328, 1 To 1), cnt&
For i = 48 To 122
If i < 58 Or (i > 64 And i < 91) Or i > 96 Then
For j = 48 To 122
If j < 58 Or (j > 64 And j < 91) Or j > 96 Then
For k = 48 To 122
If k < 58 Or (k > 64 And k < 91) Or k > 96 Then
cnt = cnt + 1
arr(cnt, 1) = Chr(i) & Chr(j) & Chr(k)
End If
Next
End If
Next
End If
Next
[a1].Resize(UBound(arr)) = arr
End Sub

复制代码

21w6000种组合。。。。

跳转到最佳答案楼层

yewei113 · 发表于 2014-1-14 10:48

有难度呀

CheryBTL · 发表于 2014-1-14 10:50

各取一位么？VBA用循环即可。

xhczq · 发表于 2014-1-14 10:57

CheryBTL 发表于 2014-1-14 10:50
各取一位么？VBA用循环即可。

循环
如果VBA就太方便了，做个按扭，一点所有组合全部产生
谢谢

CheryBTL · 发表于 2014-1-14 11:02

xhczq 发表于 2014-1-14 10:57
循环
如果VBA就太方便了，做个按扭，一点所有组合全部产生
谢谢

Sub ep()
Dim i As Integer, j As Integer, k As Integer, Rnum As Long
Dim re()
Dim X1, X2(0 To 25), X3(0 To 25)
X1 = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
ReDim re(1 To 10 * 26 * 26, 1 To 1)
For i = 0 To 25
      X2(i) = Chr(i + 65)
      X3(i) = Chr(i + 97)
Next i
For i = 0 To UBound(X1)
      For j = 0 To UBound(X2)
         For k = 0 To UBound(X3)
            Rnum = Rnum + 1
            re(Rnum, 1) = X1(i) & X2(j) & X3(k)
         Next k
      Next j
Next i
Sheets(1).[a1].Resize(Rnum) = re
End Sub

数字和字母的组合.rar (32.41 KB, 下载次数: 20)

xdragon · 发表于 2014-1-14 11:09

这个最佳答案由 xdragon 给出，感谢 xdragon 的回答。

单击隐藏图章

本帖最后由 xdragon 于 2014-1-14 14:20 编辑

Sub t()
Dim i%, j%, k%, arr(1 To 238328, 1 To 1), cnt&
For i = 48 To 122
If i < 58 Or (i > 64 And i < 91) Or i > 96 Then
For j = 48 To 122
If j < 58 Or (j > 64 And j < 91) Or j > 96 Then
For k = 48 To 122
If k < 58 Or (k > 64 And k < 91) Or k > 96 Then
cnt = cnt + 1
arr(cnt, 1) = Chr(i) & Chr(j) & Chr(k)
End If
Next
End If
Next
End If
Next
[a1].Resize(UBound(arr)) = arr
End Sub

复制代码

21w6000种组合。。。。

xhczq · 发表于 2014-1-14 11:10

CheryBTL 发表于 2014-1-14 11:02
Sub ep()
Dim i As Integer, j As Integer, k As Integer, Rnum As Long
Dim re()

谢谢老师，这样写我差不多可以看得明白，又学到东西了，非常高兴。
祝老师新年快乐

yewei113 · 发表于 2014-1-14 11:12

CheryBTL 发表于 2014-1-14 11:02
Sub ep()
Dim i As Integer, j As Integer, k As Integer, Rnum As Long
Dim re()

会vba就是好呀，

xhczq · 发表于 2014-1-14 11:16

xdragon 发表于 2014-1-14 11:09
21w6000种组合。。。。

谢谢

xhczq · 发表于 2014-1-14 11:23

xdragon 发表于 2014-1-14 11:09
21w6000种组合。。。。

您好，用了发现一个问题
没有00a,00b
所有数字带小写a、b都没

		自动登录	找回密码
密码			注册