用EXCEL VBA写一段代码吗：从10个指定数字当中随机挑选8个符合1到33范围内的数字

当然可以！以下是一个简单的Excel VBA代码，可以从给定的10个数字中随机选择8个数字，只选择1到33范围内的数字：

Sub RandomSelection()
Dim arr(1 To 10) As Integer
Dim i As Integer

'给定10个数字
arr(1) = 1
arr(2) = 2
arr(3) = 3
arr(4) = 4
arr(5) = 5
arr(6) = 6
arr(7) = 7
arr(8) = 8
arr(9) = 9
arr(10) = 10

'随机选择8个数字
For i = 1 To 8
Randomize
num = Int((10 - i + 1) * Rnd + i)
While arr(num) < 1 Or arr(num) > 33
Randomize
num = Int((10 - i + 1) * Rnd + i)
Wend
MsgBox arr(num)
arr(num) = -1
Next i
End Sub

希望这可以帮助你！