Function 用于确认数据和复制粘贴数据的宏

我想创建一个宏来确认f、I、k、m和o列中有以下格式的数据date、time或NA，然后为f、I、k、m和o列中有数据的每一行复制第16行s、t、u、v、x和y列中的公式。手动复制和粘贴所有行非常耗时

简而言之，如果有数据，请复制我的公式。摘要部分和空行将被忽略。 我一直在玩复制粘贴功能，但无法确认/验证f、I、k、m和o列中的数据

• 我已将数据从数据库下载到Excel表格中
• 数据显示在f、I、k、m和o列中。单元格可以包含日期、时间和NA
• 每行数据由一个空行分隔
• 在每个分组的末尾，比如说25到50，信息被汇总，从而为汇总信息创建额外的行，然后重复

参见数据示例

3/25/13  5:33 PM    5:55:59 PM   5:57:49 PM     NA  NA  
3/25/13  6:12 PM    6:19:57 PM   6:23:16 PM     NA  NA  
3/25/13  5:15 PM    5:33:51 PM   5:46:39 PM     NA  NA  
3/25/13  5:19 PM    5:50:44 PM   6:08:51 PM     NA  NA   

摘要部分

    Avg Prep Time (in min): 21.63
    Avg Print to Delivery Time (in min):
            Avg Time Out (in min):  0.00
        # of Trays: 16
    Avg Prep Time (in min): 21.63

我在s、t、u、v、x和y列中的公式

6:15 AM 6:33 AM 0:18    6:43 AM     0:28    29

---

提前感谢

尝试使用这些代码

Sub GetFormat()
Range("A1").Value = Range("F1").NumberFormat
End Sub

使用它可以了解VBA对单元格格式的调用。我认为日期被称为“m/d/yyyy”，时间被称为“[$-F400]h:mm:ss AM/PM” 在了解了格式的名称后，我建议将它们复制并粘贴到下面的代码中（手动键入它们对我不起作用）。对于这个例子，我已经输入了“m/d/yyyy”

---

祝你好运

@user2254486，这个问题解决了吗？我们能多帮点忙吗？

Sub verify()
If Range("F1").NumberFormat = "m/d/yyyy" Then
Range("F16").Copy Destination:=Range("A1")
End If
End Sub