求教:我的電子表格中rand()函數(shù)的取值范圍是-1到1,如何改回1到0

 回答：有兩種修改辦法：

是[1－rand()]/2，

或[1＋rand()]/2。

效果是一樣的，都可生成0到1之間的隨機數(shù)

電子表格中RAND()函數(shù)的取值范圍是0到1，公式如下：

=RAND()

如果取值范圍是1到2，公式如下：

=RAND()*(2-1)+1

RAND( )

注解：

若要生成 a 與 b 之間的隨機實數(shù)：

=RAND()*(b-a)+a

如果要使用函數(shù) RAND 生成一隨機數(shù)，并且使之不隨單元格計算而改變，可以在編輯欄中輸入“=RAND()”，保持編輯狀態(tài)，然后按 F9，將公式永久性地改為隨機數(shù)。

示例

RAND() 介于 0 到 1 之間的一個隨機數(shù)（變量）

=RAND()*100 大于等于 0 但小于 100 的一個隨機數(shù)（變量）

excel產(chǎn)生60-70隨機數(shù)公式

=RAND()*10+60

要取整可以用=int(RAND()*10+60)

我想用excel在B1單元個里創(chuàng)建一個50-80的隨機數(shù)且這個隨機數(shù)要大于A1單元個里的數(shù)值，請教大家如何編寫公式！

整數(shù)：=ROUND(RAND()*(80-MAX(50,A1+1))+MAX(50,A1+1),0)

無需取整數(shù)：=RAND()*(80-MAX(50,A1))+MAX(50,A1)

要求:

1,小數(shù)保留0.1

2,1000-1100范圍

3,不要出現(xiàn)重復

=LEFT(RAND()*100+1000,6)

至于不許重復

你可以設置數(shù)據(jù)有效性

在數(shù)據(jù)-有效性設

=countif(a:a,a1)=1

選中a列設有效性就好了

其他列耶可以

急求excel隨機生成數(shù)字的公式，取值要在38.90-44.03之間，不允許重復出現(xiàn)，保留兩位小數(shù)，不允許變藏

=round(RAND()*5+38.9,2)

公式下拉

Excel隨機數(shù)

Excel具有強大的函數(shù)功能，使用Excel函數(shù)，可以輕松在Excel表格產(chǎn)生一系列隨機數(shù)。
　　1、產(chǎn)生一個小于100的兩位數(shù)的整數(shù)，輸入公式=ROUNDUP(RAND()*100,0)。
　　RAND()這是一個隨機函數(shù)，它的返回值是一個大于0且小于1的隨機小數(shù)。ROUNDUP函數(shù)是向上舍入數(shù)字，公式的意義就是將小數(shù)向上舍入到最接近的整數(shù)，再擴大100倍。
　　2、產(chǎn)生一個四位數(shù)N到M的隨機數(shù)，輸入公式=INT(RAND()*(M-N+1))+N。
　　這個公式中，INT函數(shù)是將數(shù)值向下取整為最接近的整數(shù)；因為四位數(shù)的隨機數(shù)就是指從1000到9999之間的任一隨機數(shù)，所以M為9999，N為1000。RAND()的值是一個大于0且小于1的隨機小數(shù)，M-N+1是9000，乘以這個數(shù)就是將RAND()的值對其放大，用INT函數(shù)取整后，再加上1000就可以得到這個范圍內(nèi)的隨機數(shù)。[公式=INT(RAND()*(9999-1000+1))+1000]
　　3、Excel函數(shù)RANDBETWEEN是返回位于兩個指定數(shù)之間的一個隨機數(shù)。使用這一個函數(shù)來完成上面的問題就更為簡單了。要使用這個函數(shù)，可能出現(xiàn)函數(shù)不可用，并返回錯誤值#NAME?。
　　選擇"工具"菜單，單擊"加載宏"，在"可用加載宏"列表中，勾選"分析工具庫"，再單擊"確定"。接下來系統(tǒng)將會安裝并加載，可能會彈出提示需要安裝源，也就是office安裝盤。放入光盤，點擊"確定"，完成安裝。
　　現(xiàn)在可以在單元格輸入公式=RANDBETWEEN(1000,9999)。
　　最后，你可以將公式復制到所有需要產(chǎn)生隨機數(shù)的單元格，每一次打開工作表，數(shù)據(jù)都會自動隨機更新。在打開的工作表，也可以執(zhí)行功能鍵F9，每按下一次，數(shù)據(jù)就會自動隨機更新了。

用Excel隨機函數(shù)rand()生成隨機數(shù)和隨機字母

以前使用Excel的隨機數(shù)函數(shù)，生成過固定位數(shù)的數(shù)字卡的卡號和密碼，效果還是蠻好的！現(xiàn)在又有新的需求了，那就是要生成隨機字母！為了避免每次有新的需求都要重新寫日志，干脆一起寫出來吧！

1、生成隨機數(shù)字

(1)生成隨機數(shù)比較簡單，=rand()即可生成0-1之間的隨機數(shù)；

(2)如果要是整數(shù)，就用=int(rand())*10，表示0至9的整數(shù)，以此類推；

(3)如果要生成a與b之間的隨機實數(shù)，就用=rand()*(b-a)+a，如果是要整數(shù)就用=int(rand()*(b-a))+a；稍微擴充一下，就能產(chǎn)生固定位數(shù)的整數(shù)了。
    注意：如果要使用函數(shù)rand()生成一隨機數(shù)，并且使之不隨單元格計算而改變，可以在編輯欄中輸入“=rand()”，保持編輯狀態(tài)，然后按F9，將公式永久性地改為隨機數(shù)。不過，這樣只能一個一個的永久性更改，如果數(shù)字比較多，也可以全部選擇之后，另外選擇一個合適的位置粘貼，粘貼的方法是點擊右鍵，選擇“選擇性粘貼”，然后選擇“數(shù)值”，即可將之前復制的隨機數(shù)公式產(chǎn)生的數(shù)值（而不是公式）復制下來！

2、產(chǎn)生隨機字母

隨機小寫字母：=CHAR(INT(RAND()*26)+97)

隨機大寫字母：=CHAR(INT(RAND()*26)+65)

隨機大小寫混合字母：=CHAR(INT(RAND()*26)+if(INT(RAND()*2)=0,65,97))

3、產(chǎn)生隨機的六位數(shù)的字母和數(shù)字混合

=CONCATENATE(IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))))

4、隨機不重復數(shù)字序列的生成方法

有些情形下，我們需要生成一個不重復的隨機序列。

比如：我們要模擬洗牌，將一副撲克牌去掉大小怪后剩下的52張打亂。

比較笨的方法是在1-52間每生成一個隨機數(shù)后，檢查該隨機數(shù)是否出現(xiàn)過，如果是第一次出現(xiàn)，就放到序列里，否則重新生成一個隨機數(shù)作檢查。在 excel worksheet里面用這種辦法，會造成if多層嵌套，不勝其煩，在VBA里面做簡單一些，但是效率太差，越到序列的后端，效率越差。

當然也有比較好的辦法，在VBA里面，將a(1)-a(52)分別賦予1-52，然后做52次循環(huán)，例如，第s次生成一個1-52間的隨機數(shù)r，將a(s)與a(r)互換，這樣的話，就打亂了原有序列，得到一個不重復的隨機序列。

VBA里這個算法是很容易實現(xiàn)的，但是，出于通用性和安全考慮，有的時候我們并不希望用VBA，我們來看看在worksheet里面如何利用內(nèi)置函數(shù)實現(xiàn)這個功能。

(1)在A1-A52間填入"=INT(RAND()*52)+1"，產(chǎn)生1-52間的隨機數(shù)，注意這里是有重復的

(2)在B1-B52間填入1-52

(3)在C54-BB54填入1-52

(4)在C1填入"=IF(ROW()=C$54,INDEX(B$1:B$52,INDEX($A$1:$A$52,C$54)),IF(ROW()=INDEX($A$1:$A$52,C$54),INDEX(B$1:B$52,C$54),B1))"。

分項解釋：

a:ROW()=C$54，如果當前行等于當前交換所排的序號

b:INDEX(B$1:B$52,INDEX($A$1:$A$52,C$54))，返回在B1到B52中選擇A1:A52中的第C54個值

c:IF(ROW()=INDEX($A$1:$A$52,C$54)，否則的話，如果當前行等于A1:A52中第C54個值，則：

d:INDEX(B$1:B$52,C$54)，返回B1:B52中的第C54個值

e:若以上條件都不滿足，則返回B1

(5)將C1復制到C1:BA52這個區(qū)域里面

(6)在BA1:BA52中，我們就得到了一個不重復的隨機序列，按F9可以生成一個新序列

如何在EXCEL中生成隨機數(shù)
RAND
返回大于等于 0 及小于 1 的均勻分布隨機數(shù)，每次計算工作表時都將返回一個新的數(shù)值。語法：RAND( )

說明：若要生成 a 與 b 之間的隨機實數(shù)，請使用：
RAND()*(b-a)+a

如果要生成整數(shù)，則輸入：=INT(RAND()*(b-a)+a)

如果要使用函數(shù) RAND 生成一隨機數(shù)，并且使之不隨單元格計算而改變，可以在編輯欄中輸入“=RAND()”，
保持編輯狀態(tài)，然后按 F9，將公式永久性地改為隨機數(shù)。

如果您將示例復制到空白工作表中，可能會更易于理解該示例。

操作方法

創(chuàng)建空白工作簿或工作表。
請在“幫助”主題中選取示例。不要選取行或列標題。

從幫助中選取示例。

按 Ctrl+C。

在工作表中，選中單元格 A1，再按 Ctrl+V。
若要在查看結果和查看返回結果的公式之間切換，請按 Ctrl+`（重音符），或在“工具”菜單上，指向“公式審核”，再單擊“公式審核模式”。
1
2
3
A B
公式 說明（結果）
=RAND() 介于 0 到 1 之間的一個隨機數(shù)（變量）
=RAND()*100 大于等于 0 但小于 100 的一個隨機數(shù)（變量）

如果只要顯示重復的數(shù)據(jù),可以使用條件格式來顯示:
選定AB列,點"格式"->"條件格式",將條件1設為:
公式=COUNTIF($A:$B,A1)>1
點"格式"->"字體"->"顏色",選中紅色,點兩次"確定".

用條件格式
選中A列，格式－條件格式，條件選擇公式，并輸入公式：=COUNTIF(A:A,A1)>1，格式按鈕，設置字體顏色或背景（圖案）顏色。

=================================

生成 定量個數(shù)字 最小值 --- 最大值 間的 不重復隨機數(shù)
'
'生成不重復隨機數(shù)的代碼:

’歡樂小爪（QQ:461699029）

'方法一

Sub 指定數(shù)據(jù)段不重復隨機數(shù)()
Dim s%
   Dim xm() As String, arr() As String '聲明變量
   Dim 隨機數(shù)個數(shù)%, 最小值%, 最大值%, 隨機數(shù)值%
   隨機數(shù)個數(shù) = Range("c1")
   最小值 = Range("c2")
   最大值 = Range("c3")
    If 隨機數(shù)個數(shù) < 1 Or 最小值 > 最大值 Then Exit Sub
    If 隨機數(shù)個數(shù) > (最大值 - 最小值 + 1) Then Exit Sub
On Error Resume Next
Columns("A:A").ClearContents
ReDim arr(1 To 最大值 - 最小值 + 1)
For s = 1 To 最大值 - 最小值 + 1
    arr(s) = 最小值 + s - 1
Next
ReDim xm(1 To 隨機數(shù)個數(shù))
For s = 1 To 隨機數(shù)個數(shù)
   隨機數(shù)值 = Int(Rnd() * (最大值 - s - 最小值) + 最小值) '-----a語句
   xm(s) = arr(隨機數(shù)值 - (最小值 - 1))        '-----下面一句對arr數(shù)組重新排序，本句為賦值
   arr(隨機數(shù)值 - (最小值 - 1)) = arr(最大值 - s)
Next
   Sheets(1).Range("a1").Resize(隨機數(shù)個數(shù)) = WorksheetFunction.Transpose(xm)
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

小妖提供一下代碼（），僅以感謝

Sub 產(chǎn)生不重復隨機整數(shù)()
Dim mr As Range
For Each mr In Range("a1:a10")     '---這樣賦值單元格的A
    Do                                            '---do…loop until語句，指循環(huán)至loop until后的條件實現(xiàn)即終止
    mr = Int(Rnd() * 10 + 1)            '----這樣賦值單元格的
    Loop Until Application.CountIf(Range("a1:a10"), mr) = 1
Next mr
End Sub

-*-*-*-*-*-*-**********-*-*-*-*-*-*--------------------------
Sub aa()
Range("a1:a65") = ""
Dim num As Long, arr(1 To 65) As Long, arr2(1 To 65, 0) As Long, x As Long
t1 = Timer
For x = 1 To 65
   arr(x) = x
Next x
For x = 1 To 65
   num = Int(Rnd() * (65 - x) + 1)                      '-----a語句
   arr2(x, 0) = arr(num)                                    '-----下面一句對arr數(shù)組重新排序，本句為賦值
   arr(num) = arr(65 - x + 1)
Next x
Range("a1").Resize(65) = arr2
MsgBox "運行時間" & Format(Timer - t1, "0.000") & "秒"
End Sub

======================

在 0、5、10 中間隨機生成一個數(shù) 

=IF(RAND()>0.3,IF(RAND()>0.6,10,5),0)