VBA – AutoFilter将周末date从原始数据表追加到周末表

我正在尝试创build一个如上所述的filter,将数据列表复制到我的工作簿的不同部分 – 到目前为止,我拥有All,Day,Evening和Night – 所有工作都可以轻松完成,因为它仅复制整个数据集Day傍晚和晚上是通过时间完成的 – 我有一组单元格,您可以设置您认为这些variables的限制,例如,从0700 – 1900,晚上 – 1900 – 2200和晚上 – 2200 – 0700。

我的RawData是这样排列的 – datel时间l风速l风向l其他数据

任何人都可以提出一个方法,我可以过滤出周末使用

.AutoFilter 

这是我到目前为止的代码 –

 'Set filters for daytime, evening and nighttime period '__________________________________________________________ 'all tblArr(1).Range.AutoFilter field:=1, Criteria1:="<>" 'day tblArr(2).Range.AutoFilter field:=1, Criteria1:="<>" tblArr(2).Range.AutoFilter field:=2, Criteria1:=">=" & Sheets("Raw Data").Range("D21").Value, Operator:=xlAnd, Criteria2:="<" & Sheets("Raw Data").Range("F21").Value 'evening tblArr(3).Range.AutoFilter field:=1, Criteria1:="<>" tblArr(3).Range.AutoFilter field:=2, Criteria1:=">=" & Sheets("Raw Data").Range("D23").Value, Operator:=xlAnd, Criteria2:="<" & Sheets("Raw Data").Range("F23").Value 'night tblArr(4).Range.AutoFilter field:=1, Criteria1:="<>" tblArr(4).Range.AutoFilter field:=2, Criteria1:=">=" & Sheets("Raw Data").Range("D25").Value, Operator:=xlOr, Criteria2:="<" & Sheets("Raw Data").Range("F25").Value 

tblArr(数字)是我发送过滤数据的范围。

请不要build议做循环,因为后面的数据过程需要通过过滤来完成这个部分

任何帮助太多apprichiated

如果您可以对原始数据表进行修改,那么您可以添加一个包含公式的新列,例如=WEEKDAY(...) – 然后您可以使用相同的过滤方法来隔离7(Sat)和1(Sun ) – 或排除他们。