ComboBox切换时按当前月份填充带时长计算的ListBox问题求助

嘿，我来帮你搞定这个需求！先明确下你的核心目标：

• 修复ComboBox初始化后最后一项带多余空格的问题
• 当切换ComboBox的任务选项时，ListBox只展示当前月份的对应任务条目，每条需计算「结束时间-开始时间」的时长，最终显示「总时长」「月份」「名称」三列，无匹配数据则清空ListBox

一、先解决ComboBox初始化的空格问题 #

你之前的代码会把A列的空单元格也加入字典，导致最后出现空格。只需要在遍历的时候加个空值判断就行，修改后的初始化代码如下：

Private Sub UserForm_Initialize()
    ' 获取Sheet1 A列的唯一任务列表，排除空值
    Dim v, e
    With Sheets("Sheet1").Range("A2:A10000")
        v = .Value
    End With
    
    With CreateObject("scripting.dictionary")
        .CompareMode = 1 ' 不区分大小写
        For Each e In v
            ' 排除空单元格，避免出现多余空格
            If Not IsEmpty(e) And e <> "" Then
                If Not .Exists(e) Then .Add e, Nothing
            End If
        Next
        If .Count Then Me.ComboBox1.List = Application.Transpose(.Keys)
    End With
End Sub

二、实现ComboBox切换时的ListBox填充逻辑 #

接下来是核心的ComboBox1_Change代码，我帮你实现了当前月份筛选、时长计算、ListBox数据填充的完整逻辑，代码里加了详细注释，方便你理解：

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentMonth As String
    Dim i As Long
    Dim listData As Variant
    Dim duration As String
    
    ' 初始化变量
    Set ws = Sheets("Sheet1")
    currentMonth = Format(Date, "mmmm") ' 获取当前月份的全称（比如January）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取数据的最后一行，避免遍历空行
    ListBox1.Clear ' 先清空ListBox
    
    ' 如果ComboBox没有选择内容，直接退出
    If Me.ComboBox1.Value = "" Then Exit Sub
    
    ' 初始化存储ListBox数据的数组，最多存lastRow-1条数据，3列
    ReDim listData(1 To lastRow - 1, 1 To 3)
    
    ' 遍历数据行（从第2行开始，跳过表头）
    For i = 2 To lastRow
        ' 筛选条件：任务匹配ComboBox值，且月份等于当前月份
        If ws.Cells(i, "A").Value = Me.ComboBox1.Value And _
           ws.Cells(i, "F").Value = currentMonth Then
            
            ' 计算时长：结束时间 - 开始时间，格式化为小时:分钟
            duration = Format(ws.Cells(i, "E").Value - ws.Cells(i, "D").Value, "h:mm")
            
            ' 把数据存入数组
            listData(i - 1, 1) = duration ' 总时长列
            listData(i - 1, 2) = ws.Cells(i, "F").Value ' 月份列
            listData(i - 1, 3) = ws.Cells(i, "G").Value ' 名称列
        End If
    Next i
    
    ' 把数组赋值给ListBox，同时设置列数和列标题（如果需要显示标题的话）
    With ListBox1
        .ColumnCount = 3
        .ColumnHeads = False ' 如果要显示表头，改成True，且确保数据区域包含表头
        .List = listData
        ' 移除数组里的空行（如果有的话）
        Do While .ListCount > 0 And .List(.ListCount - 1, 0) = ""
            .RemoveItem .ListCount - 1
        Loop
    End With
End Sub

额外说明 #

• 时长计算这里用了Format函数转成「小时:分钟」格式，如果需要以分钟为单位显示，可以改成(ws.Cells(i, "E").Value - ws.Cells(i, "D").Value)*24*60，直接得到分钟数
• 如果你的ListBox需要显示列标题，记得把.ColumnHeads改成True，并且确保用户窗体的ListBox设置了足够的宽度来展示三列内容
• 代码里用了lastRow来获取实际数据的最后一行，比固定遍历到10000行更高效

备注：内容来源于stack exchange，提问作者Shiela