Question

用EXCEL VBA编程实现：有两组数据，奇数 1，3,5,7,9与偶数0,2，4,6,8。 详见问题补充。

用EXCEL VBA编程实现：有两组数据，奇数 1，3,5,7,9与偶数0,2，4,6,8。 从这两组数中分别从奇数组抽出两个数，偶数组抽出两个数组成一个新的四位数。一个数可以被重复抽到。如得出的结果为： 1102,1012,1300,1302之类的。
把所有的结果都输入到sheet1表格里面。。求助

Answer 1

Sub test()
arr1 = Split("1,3,5,7,9", ",")
arr2 = Split("0,2,4,6,8", ",")
A = QS(arr1)
b = QS(arr2)
MsgBox A & b
End Sub
Function QS(num)
Do While n < 2
    QS = QS & num(Int(Rnd() * 5))
    n = n + 1
Loop
End Function

追问

大神呀，还有个小小小的要求，这个程序能否改成把所有的结果直接输入到表格里面呢？求助了~

追答

Sub test()
Dim jg()
arr1 = Split("1,3,5,7,9", ",")
arr2 = Split("0,2,4,6,8", ",")
For i = 1 To 10 '生成10个数,根据需要修改
ReDim Preserve jg(1 To i)
jg(i) = QS(arr1) & QS(arr2)
Next
Range("A1").Resize(UBound(jg), 1) = WorksheetFunction.Transpose(jg) '这句是生成一列数 两句任选一句
Range("A1").Resize(1, UBound(jg)) = jg '这句是生成一行数 两句任选一句
End Sub
Function QS(num)
Do While n < 2
QS = QS & num(Int(Rnd() * 5))
n = n + 1
Loop
End Function

Answer 2

任意单元格中输入公式：
=INDEX({1,3,5,7,9},INT(RAND()*5+1))&INDEX({1,3,5,7,9},INT(RAND()*5+1))&INDEX({0,2,4,6,8},INT(RAND()*5+1))&INDEX({0,2,4,6,8},INT(RAND()*5+1))
下拉可填充出许多你想要的随机数。

Answer 3

这什么跟什么。。