Excel基于起止日期单元格过滤SQL Server数据集的实现方案咨询

Hey Philip, 我来给你几个实用的解决方案，帮你实现基于Sheet2起止日期自动过滤Sheet1数据的需求：

适合不想用宏的场景，操作步骤清晰：

• 先在Sheet2规划输入区域：A1单元格输入Start Date，B1输入End Date，A2用来填起始日期，B2填结束日期。
• 在Sheet1的空白区域（比如数据区域上方）设置筛选条件：第一行写ShiftDate（和数据列表的表头一致），第二行输入>=Sheet2!$A$2，第三行输入<=Sheet2!$B$2（两行条件代表“同时满足”的逻辑）。
• 切换到「数据」选项卡，点击「高级」筛选：选择「将筛选结果复制到其他位置」，列表区域选Sheet1的完整数据范围，条件区域选刚才设置的条件区域，复制到指定的空白位置（建议不要覆盖原数据）。
• 如果想要自动更新筛选结果，可以搭配简单的工作表事件（需要少量VBA），在Sheet2日期修改时自动触发高级筛选。

这个方案能做到修改日期后实时更新筛选，步骤如下：

1. 按下Alt+F11打开VBA编辑器，找到Sheet2的代码窗口（左侧工程面板里的Sheet2）。
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在修改起止日期单元格（A2/B2）时触发
    If Not Intersect(Target, Me.Range("A2:B2")) Is Nothing Then
        Dim dataSheet As Worksheet
        Set dataSheet = ThisWorkbook.Sheets("Sheet1")
        
        ' 清除之前的筛选状态
        If dataSheet.AutoFilterMode Then dataSheet.AutoFilterMode = False
        
        ' 获取输入的起止日期
        Dim startDt As Date, endDt As Date
        On Error Resume Next
        startDt = Me.Range("A2").Value
        endDt = Me.Range("B2").Value
        On Error GoTo 0
        
        ' 验证日期有效性后应用筛选
        If IsDate(startDt) And IsDate(endDt) Then
            ' 自动定位ShiftDate列的位置，无需手动改列号
            Dim shiftDateCol As Integer
            shiftDateCol = dataSheet.Rows(1).Find(What:="ShiftDate", LookIn:=xlValues, LookAt:=xlWhole).Column
            
            dataSheet.Range("A1").CurrentRegion.AutoFilter _
                Field:=shiftDateCol, _
                Criteria1:=">=" & CLng(startDt), _
                Operator:=xlAnd, _
                Criteria2:="<=" & CLng(endDt)
        End If
    End If
End Sub

3. 保存工作簿为「启用宏的工作簿」（.xlsm格式），之后只要修改Sheet2的A2/B2日期，Sheet1的数据就会自动完成筛选。

如果你的Excel是365版本，用动态数组公式就能实现实时更新的过滤结果：

• 在Sheet1的空白区域（比如新的列起始位置）输入公式：

=FILTER(Sheet1!A:Z, (Sheet1!ShiftDate>=Sheet2!A2)*(Sheet1!ShiftDate<=Sheet2!B2), "无匹配数据")

• 说明：公式会自动筛选出ShiftDate在起止日期范围内的所有行，结果会根据日期输入动态扩展或收缩，无需手动刷新。记得把Sheet1!A:Z替换成你实际的数据列范围。

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