[已解决]文本与数字随机生成

dsmch

1. Sub dsmch()
   
2. Dim w, rng As Range, arr, i&, j&
   
3. ActiveSheet.UsedRange = ""
   
4. Set rng = Application.InputBox("选取填充区域", Type:=8)
   
5. If rng.Count < 2 Then Exit Sub
   
6. arr = rng
   
7. ReDim w(1 To 50)
   
8. 'w(1) = "停产": w(2) = "滞销"
   
9. For i = 1 To UBound(w)
   
10.     w(i) = i
    
11. Next
    
12. n = UBound(w)
    
13. '根据单元格大小，确定抽取不重复随机次数
    
14. m = IIf(rng.Count > n, n, rng.Count)
    
15. For i = 1 To UBound(arr)
    
16.     For j = 1 To UBound(arr, 2)
    
17.         n2 = n - s
    
18.         x = Int(Rnd * n2 + 1)
    
19.         arr(i, j) = w(x)
    
20.         w(x) = w(n2)
    
21.         s = s + 1
    
22.         If s = m Then GoTo 100
    
23.     Next
    
24. Next
    
25. 100:
    
26. rng = arr
    
27. End Sub

复制代码

张雄友

dsmch 发表于 2015-3-21 07:11

w(1) = "停产": w(2) = "滞销":w(3) = "过时": w(4) = "不再生产":w(5) = "继续投产": w(6) = "外销" ，

甚至更多时，怎么简化表达？

dsmch

1. Sub Macro1()
   
2. Dim w
   
3. ReDim w(2)
   
4. w = Array("a", "b", "c")
   
5. MsgBox Join(w, ",")
   
6. ReDim Preserve w(12)
   
7. For i = 1 To 10
   
8.     w(i + 2) = i
   
9. Next
   
10. MsgBox Join(w, ",")
    
11. End Sub

复制代码

张雄友

dsmch 发表于 2015-3-21 14:11

调试成功了，如果我想让这些（文字）可以重复出现呢？就是文字可以重复，数字不能。

ps:如果您有时间的话。这是什么算法速度很快啊。