currentTime = Time '获取当前小时 startHour = Hour(TimeValue("08:00:00")) endHour = Hour(TimeValue("19:00:00")) '根据时间段设置筛选条件 If Hour(currentTime) >= startHour And Hour(currentTime) <= endHour Then filterValue = "=D" Else filterValue = "=N" End If ' 砞竚 Set ws = ThisWorkbook.Worksheets("癘魁") ' 莉程︽ LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 秨﹍縵匡 With ws.Range("A1:e" & LastRow) .AutoFilter Field:=5, Criteria1:=filterValue .AutoFilter Field:=3, Criteria1:="ゼ翴浪" End With在根據這個代碼篩選出來的數據繼續添加一個判斷今天是不是星期一，如果不是星期一，则在第2列不筛选出以"設備"开头的数据

好的，您的问题是如何在根据上述代码筛选出的数据中添加判断星期一的条件并且在第二列不筛选以"设备"开头的数据。

您可以使用VBA中的Weekday函数来判断今天是否为星期一，如下所示：

If Weekday(Date, vbMonday) <> 1 Then
    ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*"
End If

其中，Weekday函数返回当前日期的星期几，vbMonday表示星期一是一周的第一天，如果返回的值不等于1，则说明今天不是星期一。然后，您可以使用AutoFilter函数来筛选第二列中不以"设备"开头的数据，Criteria1的参数"<>*设备*"表示筛选不包含"设备"的数据。

注意，在添加这段代码之前，您需要先关闭当前数据的筛选，以免影响后续的筛选操作。可以使用以下代码来关闭筛选：

ws.AutoFilterMode = False

完整的代码如下：

Sub FilterData()
    Dim currentTime As Date
    Dim startHour As Integer
    Dim endHour As Integer
    Dim filterValue As String
    Dim ws As Worksheet
    Dim LastRow As Long
    
    '获取当前小时
    currentTime = Time
    startHour = Hour(TimeValue("08:00:00"))
    endHour = Hour(TimeValue("19:00:00"))
    
    '根据时间段设置筛选条件
    If Hour(currentTime) >= startHour And Hour(currentTime) <= endHour Then
        filterValue = "=D"
    Else
        filterValue = "=N"
    End If
    
    '关闭当前数据的筛选
    Set ws = ThisWorkbook.Worksheets("癘魁")
    ws.AutoFilterMode = False
    
    '筛选数据
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    With ws.Range("A1:E" & LastRow)
        .AutoFilter Field:=5, Criteria1:=filterValue
        .AutoFilter Field:=3, Criteria1:="ゼ翴浪"
    End With
    
    '判断是否是星期一并且筛选第二列不以"设备"开头的数据
    If Weekday(Date, vbMonday) <> 1 Then
        ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*"
    End If
End Sub