用于根据日期将单元格值从工作表1复制/粘贴到工作表2的VBA宏

Sub CopyPasteCellsByDate()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim cell As Range
    Dim copyDate As Date

    ' 设置工作表
    Set ws1 = ThisWorkbook.Worksheets("工作表1") '将"工作表1"替换为实际的工作表名称
    Set ws2 = ThisWorkbook.Worksheets("工作表2") '将"工作表2"替换为实际的工作表名称

    ' 设置复制的日期
    copyDate = DateValue("2022-01-01") '将"2022-01-01"替换为实际的日期

    ' 遍历工作表1中的单元格
    For Each cell In ws1.UsedRange
        ' 检查单元格的日期是否与复制的日期相匹配
        If IsDate(cell.Value) Then
            If DateValue(cell.Value) = copyDate Then
                ' 将单元格值复制/粘贴到工作表2中
                cell.Copy ws2.Cells(cell.Row, cell.Column)
            End If
        End If
    Next cell

    ' 清理对象引用
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set cell = Nothing

    MsgBox "复制/粘贴完成！"
End Sub