如何输入年份后生成指定月份列表并优化VBA宏代码灵活性？

需求：实现输入年份并点击按钮后，生成该年份4月至次年3月的月份列表（例如输入2024年时，生成2024年4月到2025年3月的列表）。
已录制的宏代码如下：

Sub GenerateAmot()
'
' GenerateAmot Macro
'
'
    ActiveCell.FormulaR1C1 = "2024"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "4/1/2024"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "5/1/2024"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "6/1/2024"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "7/1/2024"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "8/1/2024"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "9/1/2024"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "10/1/2024"
    Range("F10").Select
    ActiveCell.FormulaR1C1 = "11/1/2024"
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "12/1/2024"
    Range("F12").Select
    ActiveCell.FormulaR1C1 = "1/1/2025"
    Range("F13").Select
    ActiveCell.FormulaR1C1 = "2/1/2025"
    Range("F14").Select
    ActiveCell.FormulaR1C1 = "3/1/2025"
    Range("F15").Select
End Sub

请问如何修改这段代码以提升灵活性？

优化思路与修改后的代码 #

核心优化方向 #

1. 新增用户输入交互，摆脱固定年份的硬编码
2. 用循环批量生成月份，替代逐个单元格的重复操作
3. 移除冗余的Select操作，提升代码运行效率与稳定性

修改后的代码：

Sub GenerateAmot()
    Dim inputYear As Integer
    Dim currentRow As Integer
    Dim currentDate As Date
    
    ' 获取用户输入的年份，默认值设为2024
    inputYear = InputBox("请输入年份：", "年份输入", 2024)
    ' 用户取消输入时直接退出宏
    If inputYear = 0 Then Exit Sub
    
    currentRow = 3 ' 起始输出行（对应原宏的F3）
    
    ' 循环生成12个月份（4月到次年3月）
    For i = 0 To 11
        ' 计算当前月份的日期：i=0对应输入年4月，i=10对应下一年1月
        currentDate = DateSerial(inputYear, 4 + i, 1)
        ' 直接给单元格赋值，无需选中操作
        Range("F" & currentRow).Value = currentDate
        ' 设置日期显示格式为"yyyy年mm月"，可根据需求调整
        Range("F" & currentRow).NumberFormatLocal = "yyyy""年""mm""月"""
        currentRow = currentRow + 1
    Next i
    
    ' 保留原宏的年份写入功能
    ActiveCell.Value = inputYear
End Sub

可自定义调整项 #

• 起始行：修改currentRow的初始值，即可从其他行开始生成列表
• 输出列：把Range("F" & currentRow)替换为Range("X" & currentRow)（X为目标列字母）
• 日期格式：调整NumberFormatLocal的值，比如改成"yyyy-mm-dd"或"mm/dd/yyyy"
• 输入提示：修改InputBox的提示文本，适配自己的使用场景

内容的提问来源于stack exchange，提问作者user21170615