如何用VB批量随机选择数据

range(" B3 ")= IIf(Rnd & lt；0.5，范围(“A3”)，范围(“A4”)

RND生成一个从0到1的随机小数。

IIf类似于C语言中的三眼操作。

1/8可以这样写(以此类推):

Sub Rnd8To4()

range(" B3 ")= IIf(Rnd & lt；0.5，范围(“A3”)，范围(“A4”)

range(" B5 ")= IIf(Rnd & lt；0.5，范围(“A5”)，范围(“A6”)

range(" B7 ")= IIf(Rnd & lt；0.5，范围(“A7”)，范围(“A8”)

range(" B9 ")= IIf(Rnd & lt；0.5，范围(" A9 ")，范围(" A10 "))

range(" b 11 ")= IIf(Rnd & lt；0.5，范围(" A11 ")，范围(" A12 ")

range(" b 13 ")= IIf(Rnd & lt；0.5，范围(“A13”)，范围(“A14”)

range(" b 15 ")= IIf(Rnd & lt；0.5，范围(“A15”)，范围(“A16”)

range(" b 17 ")= IIf(Rnd & lt；0.5，范围(“A17”)，范围(“A18”)

末端接头