Vba筛选出当天日期的资料复制到另一个表中

以下是一个简单的VBA代码，可以筛选出当天日期的数据，并将其复制到另一个工作表中。

Sub FilterByToday()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim lr As Long, i As Long
Dim todayDate As Date

Set ws1 = ThisWorkbook.Sheets("Sheet1") '原始数据所在的工作表
Set ws2 = ThisWorkbook.Sheets("Sheet2") '复制数据所在的工作表

todayDate = Date '获取当前日期

With ws1
lr = .Range("A" & .Rows.Count).End(xlUp).Row '获取最后一行
For i = 2 To lr '从第2行开始循环，第1行可能是表头
If .Cells(i, 1).Value = todayDate Then '如果日期等于今天日期
.Rows(i).Copy ws2.Range("A" & ws2.Rows.Count).End(xlUp).Offset(1) '复制整行数据到另一个工作表
End If
Next i
End With

End Sub

请将代码复制到VBA编辑器中，并根据需要修改工作表名称和日期列的位置。在运行代码之前，请确保保存工作簿。