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

Question

这个代码有组合了，我想要把组合随机排序，比如原本是 A1,A2,B1,B2,C1,C2,我想随机排序，类似A1,B2,C3,A2,B1,C3,随机就是了，不需要特定的顺序，怎么补代码丫

Sub test()
Dim ar(), br(), cr()
Dim i, j, k 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))
For i = 0 To UBound(ar)
For j = 0 To UBound(br)
cr(k) = ar(i) & " " & br(j)
k = k + 1
Next
Next
Range("A1").Resize(UBound(cr) + 1, 1) = Application.WorksheetFunction.Transpose(cr)
End Sub

Answer 1

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) = Application.WorksheetFunction.Transpose(cr)
End Sub

来自：求助得到的回答

Answer 2

复制代码
出现对话框选择随机排序列的起始单元格位置

如果选择了一个单元格，那么从这个单元格开始直到数据末尾行进行随机排序。
如果选择了多个单元格，那么仅对这部分选中的单元格区域内进行单列随机排序。

其它解释略
Sub RndSort()

Dim rng As Range

GetRng:

Set rng = Application.InputBox("Please select Range:", , Selection.Address, Type:=8)

If rng.Columns.Count > 1 Then GoTo GetRng

n = rng.Count

If n = 1 Then

n = rng.End(4).Row - rng.Row + 1

Set rng = rng.Resize(n)

End If

arr = rng

Randomize

For i = 1 To n

r = Int(Rnd * (n - i + 1)) + i

t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t

Next

rng = arr

End Sub
复制代码

记住【数组洗牌法算法代码】，很有用的。

Randomize
For i = 1 To n
r = Int(Rnd * (n - i + 1)) + i
t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t
Next

一共就5行代码。请努力学习、记住这几句代码。

Answer 3

这个代码有组合了，我想要把组合随机排序，比如原本是 A1,A2,B1,B2,C1,C2,我想随机排序，类似A1,B2,C3,A2,B1,C3,随机就是了，不需要特定的顺序，怎么补代码丫

Sub test()
Dim ar(), br(), cr()
Dim i, j, k 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))
For i = 0 To UBound(ar)
For j = 0 To UBound(br)
cr(k) = ar(i) & " " & br(j)
k = k + 1
Next
Next
Range("A1").Resize(UBound(cr) + 1, 1) = Application.WorksheetFunction.Transpose(cr)
End Sub

Answer 4

具体要求是什么？