Question

我想创建一个宏来确认在f，I，k，m和o列中有以下格式的数据日期，时间或NA，然后复制我的公式，在第16行，列s，对于在列f，I，k，m和o中具有数据的每一行，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

提前致谢

Answer 1

尝试使用这些代码

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

使用它来查找VBA调用单元格格式的内容。我认为日期被称为＆＃34; m / d / yyyy＆＃34;和时间被称为＆＃34; [$ - F400] h：mm：ss AM / PM＆＃34; 在找到你的格式被调用之后，我建议将它们复制并粘贴到下面的代码中（手动输入它们并不适用于我）。在这个例子中，我已经放入了＆＃34; m / d / yyyy＆＃34;

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

祝你好运！

宏来确认数据并复制和粘贴数据

1 个答案: