VBA 随机填充区域：快速生成随机数据

使用 VBA 宏快速为 Excel 区域内的单元格随机填充数据。

代码示例:

Sub RandomizeValuesInRange()
    '定义变量
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim j As Integer
    
    '设置要随机赋值的区域
    Set rng = Range('A1:C3')
    
    '循环遍历区域中的每个单元格
    For Each cell In rng
        '生成随机数并赋值给单元格
        i = Int(Rnd() * 10) '生成0-9之间的随机整数
        j = Int(Rnd() * 10)
        cell.Value = i & '.' & j '将随机数赋值给单元格
    Next cell
End Sub

解释:

定义变量: 声明变量 rng 表示要操作的区域，cell 代表单个单元格，i 和 j 用于存储随机生成的整数。
设置区域: 将 rng 变量设置为要随机填充的区域，例如 Range('A1:C3') 表示 A1 到 C3 的区域。
循环遍历: 使用 For Each 循环遍历 rng 区域中的每个单元格。
生成随机数: 使用 Rnd() 函数生成 0 到 1 之间的随机数，并通过 Int() 函数将其转换为整数，最终生成 0 到 9 之间的随机数。
赋值给单元格: 将生成的随机数以 i.j 的格式赋值给当前单元格。

使用说明:

打开 Excel 工作簿。
在 VBA 编辑器中插入新的模块。
将上述代码复制粘贴到模块中。
修改 Set rng = Range('A1:C3') 中的区域范围，设置为需要随机填充的区域。
运行 RandomizeValuesInRange() 子程序。

更多功能:

可以根据需要修改 i = Int(Rnd() * 10) 中的 10，以改变随机数范围。
可以使用其他随机数生成方法，例如 Randomize 函数。
可以将随机生成的数字转换为其他数据类型，例如文本或日期。

注意:

每次运行 RandomizeValuesInRange() 子程序都会生成新的随机数。
如果需要保持相同的随机数序列，可以使用 Randomize 函数进行初始化。
确保已在 VBA 编辑器中启用了“工具”>“引用”中的“Microsoft Excel 对象库”。

希望这篇文章能够帮助您快速使用 VBA 随机填充 Excel 区域！