2024年 求助想实现Excel，多表格，指定列中的数据 随机变化

森林的天蓝

各位大神，因为本身数据不重要，只要稍微变动就行，又不像手动一个一个改，但是想摸鱼偷懒，所以想实现在Excel的多张表格，在指定列中的数据，可以随机稍微变化 ，变化的结果 是原数据  乘以0.96-1.06之间任意数字。 （也就是说表格内的数据 * 一个范围内的随机小数）

蓝桥玄霜

随机的例子：（请不要用于做假账）

titi012

参与一下。

1. Sub tt()
   
2.    
   
3.     Dim N As Double, Arr, x&, Rng As Worksheet
   
4.     Randomize
   
5.    
   
6.     For Each Rng In Sheets
   
7.         With Rng
   
8.             Arr = .Range("b2:b" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
   
9.             For x = 2 To UBound(Arr)
   
10.                 N = Rnd
    
11.                 Arr(x, 1) = Round(Arr(x, 1) * (N * 0.1 + 0.95), 2)
    
12.             Next x
    
13.             .Range("b2").Resize(UBound(Arr), 1) = Arr
    
14.         End With
    
15.     Next Rng
    
16. 
    
17. End Sub

复制代码

gwjkkkkk

请参考附件，，，

森林的天蓝

蓝桥玄霜 发表于 2024-1-3 11:14
随机的例子：（请不要用于做假账）

嘿嘿 ，谢谢大神的回复，不是做假账啦。就是单纯的把数据在小范围内进行变动。

森林的天蓝

gwjkkkkk 发表于 2024-1-3 11:28
请参考附件，，，

谢谢，向大神学习

森林的天蓝

titi012 发表于 2024-1-3 11:21
参与一下。

谢谢，大神的及时回复