求EXCEL的VBA代码，用“1、2、3、4”四个字符，随机生成排列组合

如题所述

举报该问题

推荐答案 2017-03-22

1、排列组合需要多少位数字

2、这四个数字是否可以重复？

可以重复的，可以使用=RANDBETWEEN(1,4)

如果还有具体要求，请进一步明确

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WeBWWeXzvWBj7vtWXet.html

其他回答

第1个回答 2017-03-22

Sub suiji()
    s = Array(1, 2, 3, 4)
    For i = 0 To 3
        r = Int(Rnd() * 4)
        t = s(i)
        s(i) = s(r)
        s(r) = t
    Next
    shuchu = ""
    For i = 0 To 3
        shuchu = shuchu & s(i) & ","
    Next
    shuchu = Left(shuchu, Len(shuchu) - 1)
    Range("A" & Range("A65536").End(xlUp).Row + 1) = shuchu
End Sub

本回答被提问者采纳

相似回答

VBA实现排列组合,跪求!!!答：n1 + 1) + a.Cells(k + 2, n2 + 1) + a.Cells(k + 2, n3 + 1) If t > s Then s = t d = k End If Next k Range("

请教一下,用excel中的VBA如何实现排列组合的操作?答：For b = a + 1 To 12 For c = b + 1 To 12 For d = c + 1 To 12 For e = d + 1 To 12 For f = e + 1 To 12 Cells(i, 1) = a Cells(i, 2) = b Cells(i, 3) = c Cells(i, 4) = d Cells(i, 5) = e Cells(i, 6) = f i = i + 1 Next f N...

怎么用VBA在EXCEL中解决排列组合的问题答：Next c = 2 For a1 = 2 To b If Cells(1, a1) <> "" Then For a2 = 2 To b If Cells(2, a2) <> "" Then For a3 = 2 To b If Cells(3, a3) <> "" Then For a4 = 2 To b If Cells(4, a4) <> "" Then For a5 = 2 To b If Cells(5, a5) <> "" The...

请问怎么请EXCEL 0 1 2 3 4 5 6 7 8 9 四位数全部排列组合啊?答：VBA代码用法：'按alt+f11进入VBE编辑窗口，然后选择插入---模块---会打开一个模 '块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口 '按alt+f8打开运行宏窗口，会看到test宏，运行它就可以了 Option Explicit Sub test()Dim i As Integer, j As Integer, l As Integer, n As ...

excel中,实现排列组合,这个怎么弄?答：用VBA解决，ALT+F11打开VBA编辑器，插入模块，将以下代码粘贴，按F5运行，C列为“一：”的结果，D列为“二：”的结果。Sub sort()Dim i, j, k1, k2, k3, k4, m As Integer Sheet1.Activate Range("C:C").Clear i = Range("a65535").End(xlUp).Row j = Range("b65535").End(...

Excel vba编程怎么输出排列组合答：Dim i%, k%Sub s() arr = [a1].CurrentRegion For i = 1 To UBound(arr) k = 3 p arr(i, 1) NextEnd SubSub p(ByVal t1$, Optional ByVal t2$ = "") Dim l%, t$, tt1$, tt2$ l = Len(t1) If l = 1 Then Cells(i, k) = t2 & t1...

如何用excel做排列组合答：For z = 1 To 9 For a = 1 To 9 Cells(m, 1) = x: Cells(m, 2) = y: Cells(m, 3) = z: Cells(m, 4) = a: m = m + 1 Next Next Next Next End Sub 1、打开EXCEL 2、工具、宏、VB编辑器 3、点左边VBAProject Book1 4、插入模块 5、把上面的代码粘贴进去 6、运行...

求EXCEL的VBA代码,用“1、2、3、*”四个字符,生成14位排列组合,要求每 ...答：Sub 随机14位数() Dim A(1 To 14), B(1 To 14) As String Dim S As String Dim i, j As Integer Dim Dic As Object '填充数组A，先填1、2、3,4个*，其余的随机填充1、2、3【保证1、2、3至少出现一次，保证只有4个*】 '随机打乱数组A '判断结果是否包含4...

求EXCEL排列组合的方法答：你好公式是这样的：=IF(ROW()<491,OFFSET($A$1,INT((ROW()-1)/70),)&OFFSET($B$1,INT((MOD(ROW()-1,70))/7),)&OFFSET($C$1,MOD(ROW()-1,7),),"")如下图所示：请采纳！

大家正在搜

EXCEL表格VBA代码解释器 EXCEL用VBA增加行 VBA 表格的隐藏代码 VBA代码 accessVBA代码常用vba代码 vba多条件求和代码可以用vba编写宏代码 excel常用vba代码