基于年份筛选将单元格分隔文本拆分至多行的Excel技术需求

我帮你把需求整合到代码里啦，直接用这段VBA就能实现年份筛选、数据拆分和输出表自动扩展的功能，来看具体实现：

完整VBA代码 #

Sub ProcessYearData()
    Dim selectedYear As String
    Dim sourceCell As Range
    Dim splitValues As Variant
    Dim outputRow As Integer
    Dim i As Integer
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    ' 获取下拉菜单选中的年份（这里假设下拉菜单在B2，记得改成你实际的单元格地址）
    selectedYear = Range("B2").Value
    
    ' 根据选中年份匹配对应的数据单元格
    Select Case selectedYear
        Case "2016"
            Set sourceCell = Range("AB2")
        Case "2015"
            Set sourceCell = Range("AC2")
        ' 要加更多年份的话，直接在这里加Case分支就行，比如Case "2014"对应AD2
        Case Else
            MsgBox "没找到对应年份的数据哦！", vbExclamation
            Application.ScreenUpdating = True
            Exit Sub
    End Select
    
    ' 先清空输出区域的旧数据（输出区域是D56到D145，和你原代码对应）
    Range("D56:D145").ClearContents
    
    ' 检查选中年份的单元格有没有数据
    If sourceCell.Value = "" Then
        MsgBox "选中年份对应的数据是空的哦！", vbInformation
        Call HideUnhide
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    ' 把逗号分隔的内容拆成数组
    splitValues = Split(sourceCell.Value, ",")
    
    ' 把拆分后的值逐行写到输出表
    outputRow = 56 ' 输出起始行，和你原代码的D56对应
    For i = LBound(splitValues) To UBound(splitValues)
        ' 顺便去掉值前后的空格，避免格式问题
        Range("D" & outputRow).Value = Trim(splitValues(i))
        outputRow = outputRow + 1
    Next i
    
    ' 调用你原来的隐藏行函数，自动隐藏空行
    Call HideUnhide
    
    Application.ScreenUpdating = True
    MsgBox "数据处理完啦！", vbInformation
End Sub

Sub HideUnhide() 
    Dim LEB As Range 
    Application.ScreenUpdating = False 
    For Each LEB In Range("D56:D145") 
        ' 空值或者0都隐藏，更贴合你的需求
        If LEB.Value = "" Or LEB.Value = 0 Then 
            LEB.EntireRow.Hidden = True 
        Else 
            LEB.EntireRow.Hidden = False 
        End If 
    Next LEB 
    Application.ScreenUpdating = True 
End Sub

关键功能说明 #

• 年份匹配：用Select Case精准对应选中年份和数据单元格，想加更多年份的话，直接加新的Case分支就行，非常灵活。
• 数据拆分：用Split函数把逗号分隔的内容拆成数组，不管有多少个值，都能自动逐行写入输出表。
• 自动清空旧数据：每次处理前先清空输出区域，避免旧数据残留影响结果。
• 整合隐藏行功能：处理完数据后自动调用你原有的HideUnhide函数，空行自动隐藏，实现输出表的动态扩展。
• 错误提示：加了年份不匹配、数据为空的提示，避免程序报错，体验更友好。

使用小贴士 #

1. 先把代码里的selectedYear = Range("B2").Value改成你实际的年份下拉菜单所在单元格地址（比如下拉菜单在C3就改成Range("C3").Value）。
2. 如果要加2014、2013这些年份，直接在Select Case里加Case "2014"，然后指定对应的单元格（比如Set sourceCell = Range("AD2")）。
3. 把代码粘贴到Excel的VBA编辑器（按Alt+F11打开），可以给下拉菜单加个触发事件（比如下拉菜单改变时自动运行ProcessYearData），或者插个按钮绑定这个宏，点一下就执行。

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