Question

我有一本工作簿，我正试图弄清楚如何做我想要的。宏不是一个问题，我确定我将不得不使用vba满足我的需求，但不知道足以削弱我想做的事情。

基本前提如下。我有一个两张工作簿，工作表1包含当前日期和两个字段，一个用于#of Calls，另一个用于#of完成。表2包含一系列日期（月份）和相同的2个字段，表格1表示所有日期。我想要发生的是，根据表1上的日期，表2将自动填充该日期的正确字段。留下所有其他领域。我不能把它留到spreedsheet的其余部分（不要将它们空白或放0）并且仅填充正确的日期。我上传了一份样本预告表here。如果有人能为我提供任何方向，我将非常感激。如果有任何不清楚的地方，请要求澄清。谢谢你提前。

STP

Answer 1

您可以运行此宏：

Option Explicit

Sub r()
Dim c as Range

For Each c In Worksheets("Sheet2").Range("A2:A999")
 If c.Value = Worksheets("Sheet1").Range("A2").Value Then
   c.Offset(0, 1).Value = Worksheets("Sheet1").Range("b2").Value
   c.Offset(0, 2).Value = Worksheets("Sheet1").Range("c2").Value
 End If
Next c

End Sub

通过日期自动填充

1 个答案: