随机数加数问题

Laughingsun889

老师们上午好。工作中遇到的问题，请老师们援手！具体要求在表中。谢谢！

shenjianrong163

1. Sub test()
   
2.     Dim i&, k%, r&, tmp&, d, arr
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(.Rows.Count, "f").End(xlUp).Row '获取F列最后一个非空单元格的行号
   
6.         If r < 31 Then
   
7.             MsgBox "金额行数据不足30!"
   
8.             Exit Sub
   
9.         End If
   
10.         With .Range(.Cells(2, 7), .Cells(r, 7))
    
11.             .ClearContents '清除内容
    
12.             arr = .Value   'arr获取空内容
    
13.             Do While (k < 30) '生成30个数
    
14.                 tmp = Int(1 + (UBound(arr) - 1 + 1) * Rnd()) '生成1-UBound(arr)之间的随机整数
    
15.                 If Not d.Exists(tmp) Then '字典判断，不存在则添加到数组中
    
16.                     d(tmp) = "" '加入字典
    
17.                     arr(tmp, 1) = 10 '数组中相应位置的内容设置为10
    
18.                     k = k + 1
    
19.                 End If
    
20.             Loop
    
21.             .Value = arr '将数组内容写入单元格
    
22.         End With
    
23.     End With
    
24. End Sub
    

复制代码

Laughingsun889

shenjianrong163 发表于 2024-6-21 13:44

感谢老师辛勤付出。没有把随机产生的30个10 分别加到对应行的金额上！

shenjianrong163

Laughingsun889 发表于 2024-6-21 16:33
感谢老师辛勤付出。没有把随机产生的30个10 分别加到对应行的金额上！

我看你在表格中已经设置公式了。

1. Sub test()
   
2.     Dim i&, k%, r&, tmp&, d, arr
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(.Rows.Count, "f").End(xlUp).Row '获取F列最后一个非空单元格的行号
   
6.         If r < 31 Then
   
7.             MsgBox "金额列数据不足30!"
   
8.             Exit Sub
   
9.         End If
   
10.         .Range(.Cells(2, 7), .Cells(r, 8)).ClearContents '清除内容
    
11.         With .Range(.Cells(2, 6), .Cells(r, 8))
    
12.             arr = .Value   'arr获取空内容
    
13.             Do While (k < 30) '生成30个数
    
14.                 tmp = Int(1 + (UBound(arr) - 1 + 1) * Rnd()) '生成1-UBound(arr)之间的随机整数
    
15.                 If Not d.Exists(tmp) Then '字典判断，不存在则添加到数组中
    
16.                     d(tmp) = tmp '加入字典
    
17.                     arr(tmp, 2) = 10 '数组中相应位置的内容设置为10
    
18.                     k = k + 1
    
19.                 End If
    
20.             Loop
    
21.             For i = 1 To UBound(arr)
    
22.                 arr(i, 3) = arr(i, 1) + arr(i, 2)
    
23.             Next
    
24.             .Value = arr '将数组内容写入单元格
    
25.         End With
    
26.     End With
    
27. End Sub

复制代码

sdytsxd991122

Laughingsun889

shenjianrong163 发表于 2024-6-21 13:44

谢谢老师，辛苦了，达到了

Laughingsun889

shenjianrong163 发表于 2024-6-21 13:44

谢谢老师，已达到我的目的，辛苦了！