excelVBA 要随机的排序，要怎么写代码丫

Sub test()

Dim ar(), br(), cr(), tempr1(), tempr2()

Dim i, j, k, n As Long

ar = Array("Shell", "Case", "Cover", "Backcover", "Back Cover", "housing", "Skin", "protection", "protector", "Protective", "Pouch", "Flip", "Holster", "Wallet", "bumper")

br = Array("A", "B")

ReDim cr((UBound(ar) + 1)  (UBound(br) + 1) - 1)

ReDim tempr1((UBound(ar) + 1)  (UBound(br) + 1) - 1)

For i = 0 To UBound(ar)

    For j = 0 To UBound(br)

        tempr1(k) = ar(i) & " " & br(j)

        k = k + 1

    Next

Next

k = 0

Do While UBound(tempr1) >= 0

    Randomize

    cr(k) = tempr1(Int(Rnd()  (UBound(tempr1) + 1)))

    If UBound(tempr1) <> 0 Then GoSub Rtempr Else Exit Do

    k = k + 1

Loop

GoTo e

Rtempr:

n = 0

ReDim tempr2(UBound(tempr1) - 1)

For i = 0 To UBound(tempr1)

    If tempr1(i) <> cr(k) Then tempr2(n) = tempr1(i): n = n + 1

Next

ReDim tempr1(UBound(tempr2))

For i = 0 To UBound(tempr1)

    tempr1(i) = tempr2(i)

Next

Return

e:

Range("A1")Resize(UBound(cr) + 1, 1) = ApplicationWorksheetFunctionTranspose(cr)

End Sub

理论上可以，但是我只有EXCEL2003，不支持超过65535行的数据

你有2007的话可以试试

先是生成所有的排列组成

理论上有7×7×7×7×7×7×7＝823543种（包含重复）

第一列：第一行输入1第二行输入3。。。。，输完1345678后复制这7行，选择a8:a823543，粘贴

第二列：先输入7行1，再输入7行3。。。。。输完49行之后，选择b50:b823543，粘贴

第三列：先输入49行1，再输入49行3。。。。输完7×7×7行之后，选择c343:c823543，粘贴

第四、第五、第六、第七依样画葫芦。

然后就是去除重复。

在H1输入公式=COUNTIF(A1:G1,A1)COUNTIF(A1:G1,B1)COUNTIF(A1:G1,C1)COUNTIF(A1:G1,D1)

COUNTIF(A1:G1,E1)COUNTIF(A1:G1,F1)COUNTIF(A1:G1,G1)

向下复制粘贴，如果有重复，H的值就会大于1。

筛选H列，值为1，得到所有的排列组合。

复制筛选的内容，粘贴到别的工作表里。

然后就是把生成的排列组合进行随机排序

在I1输入=rand()，向下复制粘贴。

选中所有的数据区域，按菜单中的排序，根据i列排序就行了

1、增加适当的难度。就像锻炼肌肉一样，你训练得越努力，你就会变得越强壮。学习也是如此。你的大脑越努力回忆一段记忆，你学习能力的提高就越大。

2、改善你的睡眠和小睡。睡眠在包括学习在内的认知发展中起着至关重要的作用。当你的大脑处于睡眠状态时，大脑中脑脊液的流量就会增加，会清除你清醒时积聚的有害毒素。

3、简化并教授你所学到的东西。学习不仅仅是记忆。通常，学习复杂概念或主题的最佳方法反而是简化它。如果你不能简化它，你就不能理解它。

4、先着手一个大项目，遇到困难就停下来。你不是放弃，而是让你强大的头脑去做它应该做的工作——从新的角度来学习问题，用新发现来产生解决方案。

5、不要同时处理多个任务，而是选择一个单一的主题，在规定的时间内集中精力学习和练习。

6、间隔学习。学习知识并不是越快越好。复杂的技能需要时间间隔。我们学习各种技能，有时候会遇到一个短暂的“平台期”。

7、随机排序学习法比有规律训练更有效。比如说小孩学写字不要一个字写十遍，最好几个字穿插着写。再比如做数学题不要同一个题型反复练，最好混合起来练习，每次都有不一样的解题策略。

西安市民办学校“摇号”时间为2023年7月23日9时。

一、西安市民办学校摇号流程

1、检查准备

在公证人员监督下，对电脑随机派位系统的封存完整性和学生报名数据进行检查。由技术人员将封存的电脑随机派位系统安装到已准备好的电脑上，并导入学生报名数据。

2、随机排序

将学生报名数据导入电脑随机派位系统中然后选取学校，接着对报名学生的序号进行3次随机排序，以验证“电脑随机派位号”的随机性及无规律性。

3、正式派位

随机排序后，邀请现场监督人员代表按下随机派位键，开始派位，电脑随机派位结果随机依次产生。

4、备份结果

现场将电脑随机派位结果备份封存

5、查询结果

可以登录各大民办学校官网查询，或在西安市民办招生系统查询。也会以短信形式发送。

西安市民办学校摇号的介绍和注意事项

一、民办摇号的介绍

1、民办摇号是指想要进入这个民办学校，需要根据学校的招出情况来摇号选择，即随机选择，表明了公平性。

2、但并不是所有民办学校都一定需要摇号，如果孩子报了某所民办学校，报名人数没有超过招生计划，那就意味着不用摇号全都录取。

二、民办摇号注意事项：

1、看清网报截止时间，切勿错过。

2、及时关注，老师会第一时间同步，对比招生人数和网报人数，就可以算出目标学校的报录比。

3、直升，报名人数小于或等于招生计划的，直接全部录取。报名人数超过招生计划的，实行电脑随机录取。招生平台通过其微信公众号或手机短信告知学生家长录取结果，无论摇中或者没摇中都会通知。

4、没有摇中的家长如果还想上民办，可以参与补录，进行第二次摇号。需要家长关注补录学校的信息。

以上数据出自西安市中小学教育官网。