Question

Excel随机数，指定条件自动刷新问题，求高手赐教

Excel表格内有两组数据C列和F列,
C列: 从C1至C150单元格有150个输入数据(将来根据需要,可手动修改)
F列: 从F1至F150单元格有150个随机数据
---------------------------------------------------------
我想在F列找出一组数据来用, 条件是: Excel自动刷新后C1≠F1, C2≠F2, C3≠F3,依次类推C150≠F150
即从F1到F150单元格, 没有一个单元格数据与C列对应相同
------------------------------------------------------------------------
我知道按F9可刷新，但是按N次刷新找结果很费时
我想让它自动刷新,到有符合上述条件时,就自己停止刷新！
求高手赐教, 有什么方法可实现?

Answer 1

这个随机的数据的大小没有要求？下面以F列为100~999随机数值为例： (测试通过）

按ALT+F11后，将以下内容复制进去，再点运行宏运行GetRnd，即可

Sub GetRnd()
Randomize
For i = 1 To 150
Do
temp = Int(Rnd() * 899) + 100
If temp <> Cells(i, 3) Then
Exit Do
End If
Loop

Cells(i, 5) = temp
Next i
End Sub

追问

5. 等到F列至O列10列数据,没有一列与D列对应相同时,Excel自动停止刷新
故经过上述条件N次刷新后,在150行内,F列至O列可有10列数据,与D列不对应相同
---------------------------------------------------------------
备注:小弟想用这些数据研究彩票,因为第3行--152行随机刷新时,第153行--160行随机数同时也在刷新,这样可有较大概率"第153行也会有10个数据与D153不一样",用此法大约可杀掉5个数
求高手帮忙提供VBA编码,谢谢

追答

Sub GetRnd()
Randomize
for j=5 to 14
For i = 1 To 150
Do
temp = Int(Rnd() * 899) + 100
If temp Cells(i, 3) Then
Exit Do
End If
Loop
Cells(i, j) = temp
Next i
next j
End Sub

追问

我把要编辑的资料”AA”放到: herry10@126.com邮箱里,
Email: herry10@126.com, 密码: h0000000000
希望高手到邮箱里去查看

追答

已经发在你提供的邮箱里了

Answer 2

这可以用Excel中的VB编程解决，很省力

追问

问题更新,求"Excel指定条件自动刷新"之VBA编码
1. D列:从D3至D152单元格有150个固定数据(D152以后的数据,根据需要手动修改)
2. F列至O列(有10列): 每列有150个随机数据 (即FGHIJKLMNO列)
3. 求一ExcelVBA编码,在点击"按钮"经过若干时间刷新后,D3≠F3,D4≠F4,依次类推D152≠F152,
即从F3到F152单元格,没有一个单元格数据与D列对应相同
4. G列至O列与"F列"性质一样,经过刷新后也是没有一个单元格数据与D列对应相同