在excel中不包含一些單元格數值的隨機數方法匯總

excel是辦公尤其是處理數據的一個好幫手,他能給需要進行各類數據處理提供很強大的支持，這是我在工作中遇到的一個問題，是這樣的，比如有兩個單元格有固定值，而另外還有一個單元格需要取隨機數，但又要求不要和那兩個有固定值得單元格重復。如何取呢?隨機函數?rand()和randbetween()都可以，但是一時間還真想不出滿足要求的寫法。于是我想用VBA編寫也許更簡單。于是就有了下文。

工具/原料

方法/步驟

這里為了方便驗證，我們將隨機數值盡量取小一點，如果你要大一些的隨機數，可以修改程序。

設在D1單元格里取隨機數(1——5之間)，A1、B1單元格為有固定數值的單元格，當然數值范圍也在1——5直接，否則毫無意義。

要編寫VBA，首先就要打開VBA，打開VBA的方法不止一種，這里我們就使用最簡單最快捷的方式，使用快捷鍵吧。按“Alt+F11”打開VBA窗口。VBA窗口右側子窗口就是輸入代碼用的。

輸入代碼，如下：

Public Sub btsj()Dim sjd As Range Set sjd = Range("D1")line1: sjd.ClearContents Randomize sjd = Int(Rnd * 5 + 1) If sjd = Range("A1") Or sjd = Range("B1") ThenGoTo line1End IfEnd Sub

完成后就可以試運行并保存，運行是那個小三角，好像播放圖標一樣的，保存的圖標不用多說。點擊小三角圖標后可能會彈出一個窗口，再點擊運行即可。

為了快速驗證，我們可以給宏加上快捷鍵，如圖所示，這里我們給它設置快捷鍵“Ctrl+s”，現在我們只要按Ctrl+s就可以快速運行該宏/程序了。

注意事項

編寫VBA程序的時候要細心，如果有錯誤提示，需要理性分析，耐心檢查。

以上就是在excel中不包含一些單元格數值的隨機數方法介紹，大家學會了嗎?希望能對大家有所幫助!

• 釘釘應用開發(fā)-Python操作釘釘文檔（excel版）
• 如何在Python中使用國內鏡像源安裝openpyxl庫
• 求解excel怎么求有算式的總和，請看圖例
• 如何把excel中列名列名相同的項對應到一起？
• 求教勤ˋ哲Excel服ˋ務ˋ器生成的管理系統(tǒng)是否適用于不同規(guī)模的企業(yè)？有何優(yōu)勢？