本帖最后由 张雄友 于 2015-3-21 08:19 编辑
文本能否与数字一样能产生可延续性?
- Sub dsmch()
- Dim w, rng As Range, arr, i&, j&
- ActiveSheet.UsedRange = ""
- Set rng = Application.InputBox("选取填充区域", Type:=8)
- If rng.Count < 2 Then Exit Sub
- arr = rng
- ReDim w(1 To 50)
- 'w(1) = "停产": w(2) = "滞销"
- For i = 1 To UBound(w)
- w(i) = i
- Next
- n = UBound(w)
- '根据单元格大小,确定抽取不重复随机次数
- m = IIf(rng.Count > n, n, rng.Count)
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- n2 = n - s
- x = Int(Rnd * n2 + 1)
- arr(i, j) = w(x)
- w(x) = w(n2)
- s = s + 1
- If s = m Then GoTo 100
- Next
- Next
- 100:
- rng = arr
- End Sub
复制代码
|