#Private Sub test()
Dim result As String '包含0到9這十個號碼的隨機數字
Dim randomValue As Integer
##Dim randomData(10) As IntegerDim flag As 布林值
For i = 0 To 9
flag = True
While flag = True
Randomize
randomValue = Int((9 - 0 1) * Rnd 0)
If i = 0 Or search(randomValue, randomData, i) = False Then
result = result & CStr(randomValue)
randomData(i) = randomValue #flag = False
End If
Wend
Next
End Sub
Private Function search(ByVal key As Integer, ByRef data() As Integer, ByVal length As Integer) As Boolean
##If length = 0 Then
search = True
Exit Function
End If
search = False
For i = 0 To length - 1
If data(i) = key Then
search = True
Exit Function
End If
Next
寫好了，這個是產生隨機數的，你把它放到點擊按鈕的事件裡
一段EXCEL巨集程式碼請幫忙謝謝！
用字典物件 會快很多.程式碼如下：（如果覺得還不夠快 就把sheet3的A列全部讀入一個數組，來減少頻繁讀工作表的次數也會加速不少）
Sub 挑重複（）
Dim Sht2Dic, CongFuArr()
Dim N As Long
Dim Rng2 As Range, Rng3 As Range
Set Sht2Dic = CreateObject(＂Scripting.Dictionary＂)
For Each Rng2 In Sheet2.Range(＂A1:A＂ & Sheet2.UsedRange.Rows.Count)
Sht2Dic(Rng2.Value) = Sht2Dic(Rng2.Value) 1
Next
For Each Rng3 In Sheet3.Range(＂A1:A＂ & Sheet3.UsedRange.Rows.Count)
If Sht2Dic.exists(Rng3.Value) Then
N = N 1
ReDim Preserve CongFuArr(1 To N)
CongFuArr(N) = Rng3.Value
End If
Next
Sheet1.Columns(＂A＂) = ＂＂
End Sub
excel怎麼對一張表格使用巨集
點選開發工具--錄製巨集，設定一個有意義的巨集名稱，設定使用該巨集的快捷鍵，如果有需要，可以輸入該巨集的詳細說明，點選確定
從此刻開始，你的每一步操作就要保證是符合你的要的，因為excel已經開始錄製你的操作步驟了，現在發現工具列錄製巨集的位置變成了停止錄製。
那麼按照範例要，我們全選表格，字體設定為楷體，字體大小設定為16號，背景顏色設定為青綠色，如圖所示，每一步都正確設定。
步驟完成以後，點擊停止錄製，這樣批量設定表格格式的宏就錄製完成了，我們點擊宏，就可以發現已經保存了我們剛剛錄製的宏。
###當需要對其他表格設定相同的格式時，我們只需要呼叫這個巨集就可以了，如圖所示，呼叫巨集之前的格式。 ### ###選擇你想要設定格式的表格，然後點擊宏，彈出宏列錶框，選擇你錄製好的宏，點擊運行，就發現，表的格式就變成了我們想要的格式。 ###以上是excel巨集程式碼不難，高手請舉手的詳細內容。更多資訊請關注PHP中文網其他相關文章！
