请教大神，如何用公式生成一行1到200的数字

沈默00

OperaMobile 发表于 2024-4-18 11:29
您刚提供的VBA也很不错的，拓展一下，如果是生成3行1~200范围内的200个数，即每行都是随机的1~200范围内 ...

连着三行，就是顺序都不一样，是吧，我改一下

沈默00

写多两次就好了，你试下

OperaMobile

沈默00 发表于 2024-4-18 13:37
写多两次就好了，你试下

谢谢，VBA运行结果正确，就是每次打开excel表格会弹出错误

部门对象被删除，我在另一台另一个版本MS excel上运行也是这个错误


我测试了以下代码，好像也可以，一起分享下

1. Sub 生成不重复的随机数字()
   
2.     Dim 数组(1 To 3, 1 To 200) As Integer
   
3.     Dim i As Integer, j As Integer
   
4.     Dim 最小值 As Integer, 最大值 As Integer
   
5.     Dim 已存在 As Boolean
   
6.    
   
7.     ' 设定范围
   
8.     最小值 = 1
   
9.     最大值 = 200
   
10.    
    
11.     ' 初始化随机数种子
    
12.     Randomize
    
13.    
    
14.     ' 生成随机数字并确保不重复
    
15.     For i = 1 To 3
    
16.         For j = 1 To 200
    
17.             Do
    
18.                 数组(i, j) = Int((最大值 - 最小值 + 1) * Rnd + 最小值)
    
19.                 已存在 = False
    
20.                 ' 检查是否已存在相同数字
    
21.                 For k = 1 To j - 1
    
22.                     If 数组(i, k) = 数组(i, j) Then
    
23.                         已存在 = True
    
24.                         Exit For
    
25.                     End If
    
26.                 Next k
    
27.             Loop While 已存在
    
28.         Next j
    
29.     Next i
    
30.    
    
31.     ' 输出到工作表
    
32.     For i = 1 To 3
    
33.         For j = 1 To 200
    
34.             Cells(i, j).Value = 数组(i, j)
    
35.         Next j
    
36.     Next i
    
37. End Sub

复制代码