Excel行级高级筛选及人员值班日期提取与拆分技术咨询

嘿，这两个Excel问题我经常帮人解决，给你一步步说清楚，都是实操性很强的方法：

高级筛选比普通筛选更适合复杂条件的筛选，步骤很清晰：

• 第一步：准备独立的条件区域。条件区域要和你的数据区域隔开至少一行，表头必须和数据区域的表头完全一致（比如数据有「姓名」「部门」「值班日期」，条件区域的表头也得是这三个）。然后在表头下方输入筛选条件：同行的条件是「且」关系（比如部门填「运营部」，日期填「>2024/1/1」，表示同时满足），不同行的条件是「或」关系（比如一行填部门「运营部」，另一行填部门「技术部」，表示满足任意一个即可）。
• 第二步：打开高级筛选窗口。选中数据区域里的任意一个单元格，然后点顶部菜单栏的「数据」选项卡，找到「高级」按钮（就在普通筛选按钮旁边）。
• 第三步：设置筛选参数。在弹出的对话框里，推荐选「将筛选结果复制到其他位置」（避免修改原数据），然后分别设置：
  • 「列表区域」：一般会自动识别你的数据范围，要是不对就手动框选整个数据区域（包括表头）；
  • 「条件区域」：框选你刚才准备的条件区域（包括条件表头）；
  • 「复制到」：选一个空白单元格作为筛选结果的起始位置；
• 第四步：确认执行。点击「确定」，符合条件的行数据就会出现在你指定的位置了。

先假设你的表格结构是：第一列是人员姓名，第一行是日期，单元格里标「X」表示该人员当天值班。如果你的结构不一样，稍微调整步骤就行。

2.1 快速获取特定人员的值班日期 #

方法一：普通筛选+公式提取 #

• 选中姓名列的表头，点击「数据」选项卡的「筛选」按钮，表头会出现下拉箭头；
• 点开姓名列的下拉箭头，勾选你要找的人员名字，确定后表格就只显示该人员的行；
• 要是想自动提取值班日期，在空白列（比如Z列）的Z2单元格输入公式：=IF(B2="X",B$1,"")，然后下拉填充整行。之后把Z列里非空的单元格复制出来，就是该人员的所有值班日期了。

方法二：高级筛选（适合多条件场景） #

• 按照问题1的方法准备条件区域（表头写「姓名」，下面一行填目标人员名字）；
• 用高级筛选把该人员的行数据复制到新位置，再提取对应「X」的日期列标题即可。

2.2 批量将每位人员拆分到单独工作表 #

手动一个个复制太费时间，用VBA宏可以一键搞定：

• 按Alt + F11打开VBA编辑器；
• 右键点击左侧的工作簿名称，选择「插入」→「模块」；
• 把下面的代码粘贴进去（如果你的姓名不在A列，或者日期不是从B1开始，修改代码里的列号就行）：

Sub SplitStaffToSheets()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long, j As Long
    Dim staffName As String
    Dim lastNewRow As Long
    
    Set ws = ActiveSheet ' 当前打开的值班记录表
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取姓名列最后一行
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' 获取日期列最后一列
    
    ' 遍历每一位人员
    For i = 2 To lastRow
        staffName = ws.Cells(i, "A").Value
        ' 检查是否已有该人员的工作表
        On Error Resume Next
        Set newWs = ThisWorkbook.Worksheets(staffName)
        On Error GoTo 0
        
        ' 没有的话就新建工作表
        If newWs Is Nothing Then
            Set newWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
            newWs.Name = staffName
            ' 写入表头
            newWs.Cells(1, 1).Value = "姓名"
            newWs.Cells(1, 2).Value = "值班日期"
        End If
        
        ' 提取该人员的所有值班日期
        For j = 2 To lastCol
            If ws.Cells(i, j).Value = "X" Then
                lastNewRow = newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Row + 1
                newWs.Cells(lastNewRow, "A").Value = staffName
                newWs.Cells(lastNewRow, "B").Value = ws.Cells(1, j).Value
            End If
        Next j
        Set newWs = Nothing ' 重置变量，避免冲突
    Next i
    
    MsgBox "拆分完成！"
End Sub

• 回到Excel界面，按Alt + F8，选择宏「SplitStaffToSheets」，点击「执行」；
• 完成后，每个人员都会有一个单独的工作表，里面清晰列着他的姓名和对应的值班日期。

⚠️ 注意：运行宏之前，记得把文件保存为「.xlsm」格式（启用宏的工作簿），不然宏会丢失。

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