Date Excel/VBA-根据日期将数据复制并粘贴到工作表中特定行中

我有一个非常简单的问题

我有一份每天更新的报告。需要每天将一份工作表中的特定范围（B5:AC5）复制到另一份工作表中。这不需要自动完成，我只想将它的代码添加到我创建的格式化宏中

我对此有两个问题：

我希望将数据粘贴到与特定日期对应的行中。工作表“每日”中的A列列出了当月的工作日。所以我所需要的就是宏在“Daily”中的A列中找到今天的日期，然后在b？：ac？中的“Matrix”中粘贴b5:AC5？在“每日”的那一排

我还需要它是一个特殊的粘贴，只有被粘贴的值

---

我对VB很陌生，但通常能很好地遵循代码逻辑。如果您需要我提供更多信息，请告诉我。非常感谢你

假设您的范围始终在B5:AC5，下面是我的想法：

Sub FindToday()

    Dim FoundDate As Range
    Set FoundDate = Worksheets("Daily").Columns("A").Find(DateValue(Now), LookIn:=xlValues, lookat:=xlWhole)

    If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip. 
        Worksheets("Matrix").Range("B5:AC5").Copy
        FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values. 

   End If
End Sub

我尽我所能为你提供信息，对此进行了测试。我把一组升序数字放在B5:AC5范围内，用公式，把一个月的升序日期放在日报表上，它似乎满足了你的需求

---

希望这有帮助

假设您的范围始终在B5:AC5，下面是我的想法：

Sub FindToday()

    Dim FoundDate As Range
    Set FoundDate = Worksheets("Daily").Columns("A").Find(DateValue(Now), LookIn:=xlValues, lookat:=xlWhole)

    If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip. 
        Worksheets("Matrix").Range("B5:AC5").Copy
        FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values. 

   End If
End Sub

我尽我所能为你提供信息，对此进行了测试。我把一组升序数字放在B5:AC5范围内，用公式，把一个月的升序日期放在日报表上，它似乎满足了你的需求

---

希望这有帮助

哇，真是太棒了。我真的很感谢你帮助我！哇，真是太棒了。我真的很感谢你帮助我！