怎樣將一些數值RAMDOM 到不同的儲存格

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-2-24 16:12 | 只看該作者

怎樣將一些數值RAMDOM 到不同的儲存格

如
A1  123
A2  234
A3  678
A4  789
A5  345
A6  456
A7  567
   .
   .
   .
怎樣將那些數值隨機貼在不同的儲存格(如D2, D5, E3, E7,F1, F4....)上。

感謝各位高手指教!

樓主熱帖

kimbal

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-2-25 13:29 | 只看該作者

如
A1  123
A2  234
A3  678
A4  789
A5  345
A6  456
A7  567
   .
   .
   .
怎樣將那些 ...
wwh126 發表於 2013-2-24 16:12

For i = 0 To 9
Cells(Int(65535 * Rnd) + 1, Int(199 * Rnd) + 1).Value = Range("A1").Offset(i, 0)
Next

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

loquat

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

3^#

發表於 2013-2-25 23:24 | 只看該作者

如果不限定单元格的话，2#就可以了
如果是在限定的单元格中随机的话，就有点麻烦了。
要先将限定单元格存入数组A，使用经典算法产生不重复随机数，填入上面数组A的同型数组B
再将A1填入数组B编号为1对应下标的那个数组A单元格中

向高手学习

loquat

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

4^#

發表於 2013-2-25 23:28 | 只看該作者

For i = 0 To 9
Cells(WorkSheetFunction.RandBetween(2,Rows.Count*Columns.Count)).Value = Range("A1").Offset(i, 0)
Next

向高手学习

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

5^#

發表於 2013-2-28 08:09 | 只看該作者

如要在指定儲存格如要在D2，D5，D10進行隨機寫入A行的數值應該點寫？

版主 Rank: 7 Rank: 7 Rank: 7

kimbal

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

6^#

發表於 2013-2-28 13:41 | 只看該作者

本帖最後由 kimbal 於 2013-2-28 13:42 編輯

如要在指定儲存格如要在D2，D5，D10進行隨機寫入A行的數值應該點寫？
wwh126 發表於 2013-2-28 08:09

方法有很多, 這是其1

Sub test()
Dim dic
Dim itemCount, randItem, randItemCounter, strKey
Dim dataOffset
Set dic = CreateObject("Scripting.Dictionary")
dic.Add "D2", "D2"
dic.Add "D5", "D5"
dic.Add "D10", "D10"
dataOffset = 0
For itemCount = dic.Count To 1 Step -1
randItem = Int(itemCount * Rnd) + 1
randItemCounter = 0
For Each strKey In dic.Keys
randItemCounter = randItemCounter + 1
If randItemCounter = randItem Then
Range(dic.Item(strKey)).Value = Range("A1").Offset(dataOffset, 0).Value
dataOffset = dataOffset + 1
Call dic.Remove(strKey)
Exit For
End If
Next
Next
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

7^#

發表於 2013-3-1 18:43 | 只看該作者

可以在A1到A40內有數字的RAMDOM 到指定的儲存格(D2,D4,D7,D10,D11)上。

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

8^#

發表於 2013-3-1 18:45 | 只看該作者

回復 6# kimbal

只將A1到A3數字RAMDOM,我想將整行"A"內有數字的儲存格RAMDOM

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

9^#

發表於 2013-3-1 18:45 | 只看該作者

回復 6# kimbal

THANKS YOU