VBA 区域内随机赋值并逐渐递增

以下是一个示例代码，可以在指定区域内随机赋值，并逐渐递增：

Sub RandomIncrement()

    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim j As Integer
    Dim randNum As Integer
    
    Set rng = Range('A1:D4') '指定区域
    
    For Each cell In rng '遍历区域中的每个单元格
        randNum = Int((100 - 1 + 1) * Rnd + 1) '生成1-100之间的随机数
        cell.Value = randNum '将随机数赋值给单元格
    Next cell
    
    i = 1 '递增的初始值
    j = 1 '列计数器
    
    For Each cell In rng '再次遍历区域中的每个单元格
        cell.Value = cell.Value + i '将单元格中的值加上递增值i
        i = i + 1 '递增值每次加1
        j = j + 1 '列计数器加1
        
        If j > 4 Then '如果已经遍历完一行，重置列计数器并将i加1
            j = 1
            i = i + 1
        End If
    Next cell
    
End Sub

在这个示例代码中，我们首先使用 Range 对象指定要随机赋值的区域（这里是 'A1:D4'）。然后使用 For Each 循环遍历区域中的每个单元格，生成 1-100 之间的随机数，并将其赋值给单元格。

接下来，我们重置 i 和 j 的初始值，其中 i 用于递增，j 用于计算列数。然后再次遍历区域中的每个单元格，将单元格中的值加上递增值 i，然后将 i 加 1。如果已经遍历完一行，我们重置列计数器 j 并将 i 加 1。

通过这种方式，我们可以在区域内随机赋值，并逐渐递增。您可以根据需要修改代码中的区域和递增初始值。