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

Question

我有一个我认为非常简单的问题。

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

我对此有两个问题：

1. 我希望将数据粘贴到与该特定日期对应的行中。工作表“每日”中的 A 列包含该月的工作日列表。所以我需要的只是让宏在“每日”的 A 列中找到今天的日期，然后将“矩阵”中的 b5:AC5 粘贴到 b?:ac? 中。在“每日”的该行中。

2. 我还需要它是特殊粘贴，仅粘贴值。

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

Answer 1

假设你的范围总是在 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 范围内放置了一组升序数字，并使用公式，在每日工作表中放置了一个月的一组升序日期，它似乎可以满足您的要求。

希望这有帮助。