vba,在列里快速填上36个月

您可以使用以下VBA代码将36个月填充到指定列中：

Sub Fill36Months()
    Dim i As Integer
    Dim cell As Range
    
    Set cell = Range("A1") '将A1替换为您要填充的列的第一个单元格
    
    For i = 1 To 36
        cell.Value = Format(DateSerial(Year(Date), Month(Date) + i - 1, 1), "yyyy-mm")
        Set cell = cell.Offset(1, 0)
    Next i
End Sub

这段代码将在指定列的第一个单元格中填充36个月份，从当前月份开始向后填充。如果您需要更改填充的起始日期，请修改`Set cell = Range("A1")`这一行中的单元格地址。