VBA 代码：使用随机数填充 Excel 区域

这段代码使用 VBA 来给指定的 Excel 区域分配随机数值，并按递增值递增。

定义 6 个范围变量，分别对应要分配值的 6 个区域：'F10:K10', 'L10:Q10', 'R10:W10', 'F11:J11', 'L11:P11', 'R11:V11'。
定义 value 和 addvalue 两个变量，分别表示初始值和递增值。
使用 Rnd 函数生成随机数，计算出初始值和递增值。初始值从 26.5 开始递增，递增值从 16.5 开始递增。
使用 For Each 循环遍历每个区域中的单元格，将随机数值分配给它们，并按递增值递增。
循环结束后，所有指定区域的单元格都被分配了随机数值。

Sub AssignValues()
    Dim zsy1 As Range, zsy2 As Range, zsy3 As Range, zjy1 As Range, zjy2 As Range, zjy3 As Range
    Set zsy1 = Range('F10:K10') ' 要分配值的区域
    Set zsy2 = Range('L10:Q10')
    Set zsy3 = Range('R10:W10')
    Set zjy1 = Range('F11:J11')
    Set zjy2 = Range('L11:P11')
    Set zjy3 = Range('R11:V11')
    Dim value As Double, addvalue As Double
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    addvalue = Int(((210 - 150 + 10) * Rnd) + 150) / 10
    For Each cell In zsy1 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    For Each cell In zsy2 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    For Each cell In zsy3 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    For Each cell In zjy1 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    For Each cell In zjy2 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
    value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 ' 从 26.5 开始递增
    For Each cell In zjy3 ' 循环遍历区域中的每个单元格，将值分配给它们
        cell.value = value
        value = value + addvalue ' 递增值
    Next cell
End Sub

这只是一个简单的示例，您可以根据自己的需要修改代码，例如调整初始值、递增值、区域等。

本代码示例可用于各种场景，例如：

为数据分析创建随机数据
模拟真实数据以进行测试
为游戏或其他应用程序生成随机值