关于写入随机数

yunfei2018

在一个区域内，比如: G2:M100


写入： 空值，1-100的随机整数，


其中，空值的比率占60%，1-100的随机整数，占40%
1-100的随机整数，可以重复，也可以不重复。


用VBA应该如何表达，请指点，谢谢！

李甲

空值60%，看来是固定个数罗

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, brr, cnt, t, n, i, j
  brr = [g2:m100]
  ReDim arr(1 To UBound(brr, 1) * UBound(brr, 2), 1 To 1)
  cnt = Round(UBound(arr, 1) * 0.4, 0)
  Randomize
  For i = 1 To cnt: arr(i, 1) = Int(100 * Rnd) + 1: Next
  For i = 1 To UBound(arr, 1)
    n = Int(UBound(arr, 1) * Rnd) + 1
    t = arr(i, 1): arr(i, 1) = arr(n, 1): arr(n, 1) = t
  Next
  n = 0
  For i = 1 To UBound(brr, 1)
    For j = 1 To UBound(brr, 2)
      n = n + 1: brr(i, j) = arr(n, 1)
  Next j, i
  [g2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

hcm19522

B1:H20区域数组公式 {=TEXT(RIGHT(LARGE(IF(ROW($1:$140)<57,RANDBETWEEN(Z1:Z56+1,100),)+RANDBETWEEN(ROW($1:$140)^0,999)*1000,ROW($1:$20)*7-7+COLUMN($A:$G)),3)*1,"0;;")

J2=SUMPRODUCT(N(B1:H20<>""))

区域数组公式 :公式下B1-->圈選B1:20-->游標放公式尾-->shift+ctrl+enter三鍵一起按

yunfei2018

hcm19522 发表于 2018-10-12 20:17
B1:H20区域数组公式 {=TEXT(RIGHT(LARGE(IF(ROW($1:$140)圈選B1:20-->游標放公式尾-->shift+ctrl+enter三鍵 ...

公式也能实现？  长见识了，，，，