寻求VBA解决方案：实现动态滚动员工名单以生成月度排班表

核心逻辑 #

1. 自动识别基础员工名单的动态范围（支持人员增减，无需手动调整）
2. 读取上月排班的最后一位员工，作为次月排班的起始人员（无历史数据时从名单首位开始）
3. 按名单顺序循环滚动填充当月所有日期的排班人员
4. 自动覆盖旧排班数据，全程无需公式

完整VBA代码 #

Sub GenerateMonthlySchedule()
    Dim wsEmp As Worksheet, wsSched As Worksheet
    Dim empList As Range, lastEmp As Range
    Dim startIndex As Integer, empCount As Integer
    Dim currentDate As Date, daysInMonth As Integer
    Dim i As Integer, currentEmpIndex As Integer
    
    ' 定义工作表名称（可根据实际修改）
    Set wsEmp = ThisWorkbook.Worksheets("基础名单")
    Set wsSched = ThisWorkbook.Worksheets("排班表")
    
    ' 动态获取员工名单范围（A列从第2行开始到最后非空行）
    Set empList = wsEmp.Range("A2:A" & wsEmp.Cells(wsEmp.Rows.Count, "A").End(xlUp).Row)
    empCount = empList.Cells.Count
    
    ' 检查员工名单是否为空
    If empCount = 0 Then
        MsgBox "基础员工名单不能为空，请先添加人员！", vbExclamation
        Exit Sub
    End If
    
    ' 获取当月第一天和当月天数
    currentDate = DateSerial(Year(Date), Month(Date), 1)
    daysInMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
    
    ' 查找上月最后一位排班人员，确定起始索引
    startIndex = 1 ' 默认从第一个员工开始
    If wsSched.Cells(wsSched.Rows.Count, "B").End(xlUp).Row > 1 Then
        Set lastEmp = wsSched.Cells(wsSched.Rows.Count, "B").End(xlUp)
        For i = 1 To empCount
            If empList.Cells(i).Value = lastEmp.Value Then
                startIndex = i + 1
                If startIndex > empCount Then startIndex = 1 ' 超出名单则回到首位
                Exit For
            End If
        Next i
    End If
    
    ' 清空当月旧排班数据（保留表头）
    wsSched.Range("A2:B" & wsSched.Rows.Count).ClearContents
    
    ' 填充当月日期和排班人员
    currentEmpIndex = startIndex
    For i = 1 To daysInMonth
        ' 写入日期
        wsSched.Cells(i + 1, "A").Value = currentDate
        ' 写入对应员工
        wsSched.Cells(i + 1, "B").Value = empList.Cells(currentEmpIndex).Value
        
        ' 更新日期和员工索引
        currentDate = currentDate + 1
        currentEmpIndex = currentEmpIndex + 1
        If currentEmpIndex > empCount Then currentEmpIndex = 1 ' 循环回到名单首位
    Next i
    
    ' 格式化日期列
    wsSched.Columns("A").NumberFormat = "yyyy-mm-dd"
    MsgBox "当月排班已生成完成！", vbInformation
End Sub

使用步骤 #

1. 在Excel中创建两个工作表，分别命名为基础名单和排班表：
   • 基础名单：A1单元格输入"员工姓名"，A2及以下行输入员工名单（支持随时增减，无需手动调整范围）
   • 排班表：A1单元格输入"日期"，B1单元格输入"排班人员"
2. 按Alt + F11打开VBA编辑器，右键点击当前工作簿→插入→模块，将上述代码粘贴到模块中
3. 返回Excel，按Alt + F8选择GenerateMonthlySchedule宏，点击执行即可生成当月排班

注意事项 #

• 基础名单中不要存在空行，否则会导致名单范围识别错误
• 排班表的历史数据仅用于读取上月最后一位员工，新生成的排班会自动覆盖当月旧数据
• 若需要仅排班工作日（排除周末/节假日），可在代码中添加日期判断逻辑（比如Weekday(currentDate, vbMonday) <=5）

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