求助：编写Excel宏实现从季节与费率数据填充酒店月度费率

需求概述 #

需要编写VBA宏，通过rate（费率）和对应seasons（季节月份数）两个区域的数据，快速批量填充酒店的月度费率数据。

宏运行效果对比 #

• 宏运行前的月度数据状态：
  
• 宏运行后的预期效果：
  

当前编写的代码片段 #

For seasoncolumn = 30 To 34
    Cells(42, seasoncolumn).Value = season
    
    For rows = 42 To 1300
        For months = 35 To 35 + season
            Cells(rows, months).Value = rate
        Next months
    Next rows
Next seasoncolumn

问题分析与优化思路 #

当前代码存在两个核心问题：

1. season和rate变量未定义，也未关联到实际的数据源区域
2. 嵌套循环逐个单元格赋值，效率较低，且硬编码行列号灵活性差

优化实现建议 #

1. 绑定数据源区域：明确指定rate和seasons的存放位置，用Range对象读取对应值
2. 动态获取数据范围：通过End(xlUp)获取数据最后一行，替代固定的1300行
3. 批量赋值提升效率：直接对目标区域赋值，减少单元格操作次数
4. 指定工作表：避免默认使用ActiveSheet导致的错误

优化后的示例代码 #

Sub FillHotelMonthlyRates()
    Dim dataSheet As Worksheet
    Dim rateSource As Range, seasonSource As Range
    Dim index As Integer, lastDataRow As Long
    Dim currentRate As Double, currentMonthCount As Integer
    Dim targetStartColumn As Integer
    
    '指定工作表，替换为你的实际表名
    Set dataSheet = ThisWorkbook.Sheets("费率表")
    '假设rate在E42-E46，seasons在AD42-AD46（对应列号30）
    Set rateSource = dataSheet.Range("E42:E46")
    Set seasonSource = dataSheet.Range("AD42:AD46")
    targetStartColumn = 35 '月度数据起始列号
    
    '获取数据区域最后一行
    lastDataRow = dataSheet.Range("A" & dataSheet.Rows.Count).End(xlUp).Row
    
    '遍历每个费率-月份组
    For index = 1 To rateSource.Cells.Count
        currentRate = rateSource.Cells(index).Value
        currentMonthCount = seasonSource.Cells(index).Value
        
        '批量填充对应行的月度费率
        dataSheet.Range( _
            dataSheet.Cells(42 + index - 1, targetStartColumn), _
            dataSheet.Cells(lastDataRow, targetStartColumn + currentMonthCount - 1) _
        ).Value = currentRate
    Next index
End Sub

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