VBA基础知识整理（随机数）

Sub 随机挑选演示程序1()
  Dim arr
  Dim x As Integer, num As Integer, k As Integer
  Range("c1:c10") = ""
  Range("a1:a10") = Application.Transpose(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
  
  For x = 1 To 10
     num = (Rnd() * (10 - 1) + 1) \ 1
     Range("a1:a10").Interior.ColorIndex = xlNone
     Range("a" & num).Interior.ColorIndex = 6
     Range("c" & x) = Range("a" & num)
  Next x
  
End Sub

Sub 移形换位演示程序()
  Dim arr
  Dim x As Integer, num As Integer, k As Integer, sr As String
  Range("c1:c10") = ""
  Range("a1:a10") = Application.Transpose(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J"))
  
  For x = 1 To 10