Question

在宏的开头，我需要在R列中具有一定范围的单元格，其中填充数字0、1、2、3、4 ...最多为40。因此，以1为增量从0到40。这是我建议使用的简单代码，但是在=符号后可以使用什么公式呢？

With ThisWorkbook.Sheets("Sheet1") 

    .Range("R17:R57") =

End With

Answer 1

我会建议这段代码

With ThisWorkbook.Sheets("Sheet1")

    .Range("R17") = "0"
    .Range("R18") = "1"
    .Range("R17:R18").AutoFill Destination:=Range("R17:R57"), Type:=xlFillDefault

End With

或

With ThisWorkbook.Sheets("Sheet1")
    .Range("R17") = 0
    .Range("R17").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
                             Step:=1, Stop:=40, Trend:=False
End With

Answer 2

您可以使用for循环，它将使变量增加1。例如，

For i = 0 To 39
    Worksheets("Sheet1").Cells(i+17, 18).Value = i
Next i

这将用值0到40填充R17到R57。

VBA为一组单元格分配一组特定的值

2 个答案: