VBA需求：带日期时间匹配的Excel复制粘贴功能修复

• 报表每隔几分钟会在Sheet1的A列生成dd/mm/yyyy hh:mm格式的日期时间数据
• 需要将该列数据复制粘贴至Sheet2的B列，分中午、夜间两次执行
• 粘贴规则：
  • 先检查Sheet1 A列第16行（表头后首条可变数据）的日期时间是否存在于Sheet2 B列
  • 若存在：从该匹配单元格开始粘贴（覆盖后续旧数据）
  • 若不存在：从Sheet2 B列最后非空单元格的下一行粘贴（追加新数据）

当前VBA代码始终从最后非空单元格下一行粘贴，无法匹配到已存在的日期时间并覆盖，导致重复粘贴数据。

Sheet1 A列（表头后数据，从A16开始）：
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10

第一次执行后Sheet2 B列：
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10

第二次执行时Sheet1 A列数据更新为：
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10
01/10/2024 12:15

预期Sheet2 B列结果：
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10
01/10/2024 12:15

现有代码执行后实际结果（重复粘贴）：
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10
01/10/2024 12:00
01/10/2024 12:05
01/10/2024 12:10
01/10/2024 12:15

Sub CopyDateTimeData()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceStartRow As Integer
    Dim targetMatchCell As Range
    Dim sourceLastRow As Long
    Dim targetPasteRow As Long
    
    ' 指定源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 表头后首条数据的起始行（A16）
    sourceStartRow = 16
    
    ' 获取Sheet1 A列最后一行有数据的行号
    sourceLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 在Sheet2 B列查找Sheet1 A16的日期时间值（完全匹配）
    Set targetMatchCell = wsTarget.Columns("B").Find( _
        What:=wsSource.Cells(sourceStartRow, "A").Value, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False)
    
    ' 确定粘贴起始行
    If Not targetMatchCell Is Nothing Then
        ' 找到匹配项，从匹配单元格开始粘贴
        targetPasteRow = targetMatchCell.Row
    Else
        ' 未找到匹配项，从最后非空单元格的下一行追加
        targetPasteRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row + 1
    End If
    
    ' 复制源数据到目标位置
    wsSource.Range(wsSource.Cells(sourceStartRow, "A"), wsSource.Cells(sourceLastRow, "A")).Copy _
        Destination:=wsTarget.Cells(targetPasteRow, "B")
    
    ' 清除剪贴板（可选操作）
    Application.CutCopyMode = False
End Sub

• 新增Find方法实现精准匹配：使用xlWhole参数确保完全匹配日期时间值，避免部分匹配导致的错误
• 增加匹配结果判断分支：根据是否找到匹配项，分别设置覆盖粘贴或追加粘贴的起始行
• 明确获取源数据的最后有效行，避免复制空行

内容的提问来源于stack exchange，提问作者Shiro Neko Des