凑数 随机 重排的问题 能力有限,大哥进来指点一下

excel小菜鸟一只

m = [a1].End(4).Row - 1: arr = [a2].Resize(m, 3)
    ReDim ar(1 To m, 0)
    n = [f1].End(4).Row - 1: brr = [f2].Resize(n)



For j = 1 To 50
            Randomize
            For k = 1 To n
                r = Int(Rnd * (n - k + 1)) + k
                t = a(r): a(r) = a(k): a(k) = t
            Next
          '   需要 修改的 问题在 这理  上面的随机 重排    想改成 按 从上到下的 优先级别 重拍

ReDim c(1 To m)
            u = brr(i2, 1) ' 这里 设 值为 210
            For i = 1 To n
                t = arr(a(i), 3): If t <= u Then c(a(i)) = a(i): u = u - t: If u < v Then Exit For
            Next
        Next j

                  A 列  B列 对应 C列 有 相对应的属性值
举个例子 在 C列  有数值  100  101 101  102  102 103 104 105 106 107 108 109 110 111
                  F 列   210 210 210 210 210

excel小菜鸟一只

怎么改变r值，让t从1开始23456789

excel小菜鸟一只

excel小菜鸟一只 发表于 2024-4-11 10:27
怎么改变r值，让t从1开始23456789

好冷清，rnd改成0.001