vba 区域赋值从左往右递增

以下是将从左到右递增的值分配给区域的VBA代码示例：

Sub AssignValues() Dim rng As Range Set rng = Range("A1:C3") '要分配值的区域

Dim value As Integer
value = 1 '从1开始递增

For Each cell In rng '循环遍历区域中的每个单元格，将值分配给它们
    cell.Value = value
    value = value + 1 '递增值
Next cell

End Sub

此代码将在区域A1:C3中分配从1到9的递增值。如果需要从不同的起始值开始递增值，请更改"value"变量的初始值。