VBA - 将日期格式分配给列并应用日期过滤器

Question

我有两个宏，它们按日期过滤工作表列，然后删除不相关的列。

但是，它有很多错误，我需要一些帮助来纠正它。

这是第一个宏应该发生的事情：

1) 以日期格式 dd-mm-yyyy 从第 2 行到最后一行格式化 B 列 - 目前不会发生这种情况，并且在某些时候它会将格式应用于整个B列，包括数据后面的空单元格

2) 在 B 列（日期）上应用过滤器以显示除当天前一天以外的所有记录 - 正确了一半，因为它不包括过滤器中的当天。当我运行“删除”宏时，显示的单元格是当天和前一天，我应该只看到前一天。

Sub DateFilter()

Dim ws1 As Worksheet
Dim c As Range
Dim LastRow As Long
Dim Current_Date As Date

On Error Resume Next

Set ws1 = ActiveWorkbook.Sheets("Sheet")

LastRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row

With ws1

    For Each c In ActiveSheet.Range("B2:B" & LastRow).Cells

        Current_Date = CDate(c)
        c.Value = Current_Date

    Next c

End With

x = CLng(Date)
ws1.UsedRange.AutoFilter Field:=2, Criteria1:="<" & x, Operator:=xlAnd, Criteria2:="<" & x - 1

End Sub

Answer 1

正如@SJR 所建议的，您在一篇文章中有太多问题，所以我只看第一个宏。要获得第二个宏的解决方案，请启动一个新线程

下面的代码应该可以满足您对第一个宏的要求，并带有一些 cmets 以帮助您理解代码

Sub DateFilter()

    Dim oWS As Worksheet: Set oWS = ThisWorkbook.Worksheets("Sheet")

    ' On Error Resume Next      VERY very bad idea as this will hide all issues in the code!

    With oWS

        ' Set the range format to specified date format. This will automatically update
        ' the values in the cells to a date.. no need to copy and paste them
        .Range("B2:B" & .Cells(.Rows.count, 2).End(xlUp).Row).NumberFormat = "dd-mm-yyyy"

        ' Set the autofilter to display all dates other than yesterdays
        .Range("B:B").AutoFilter Field:=1, Criteria1:="<" & CLng(DateAdd("d", -1, Date)), Operator:=xlOr, Criteria2:=">" & CLng(DateAdd("d", -1, Date))

    End With

End Sub