代ç å¦ä¸ï¼
éExcel å
å¯ç¨å® 使ç¨ï¼Alt+F8è¿è¡
Sub randclear()
Set dic = CreateObject("scripting.dictionary")
num = Selection.Cells.Count
If num < 10 Then
MsgBox "éåºåå
æ ¼æ°å°äº10,请éæ°éæ©": Exit Sub
End If
Do
Randomize
n = Int(Rnd * num) + 1
dic(n) = ""
Loop Until dic.Count = 10
dk = dic.keys
For i = 0 To 9
Selection.Cells(dk(i)).ClearContents
Next
MsgBox "éæºæ¸
é¤å®æ"
End Sub