Question

标题确实说明了一切。

我在名为“值”的选项卡中有一个日期，其中包含上个月的上一个工作日的值。然后，我想查看此日期是否在另一个选项卡的B列中，如果是的话，我想将某些信息（例如，单元格a1值）粘贴到D列中，该行等于该日期。

示例，因此，如果在tab2列b中找到了单元格a1（tab1）中的日期，则将来自tab1单元格b1的信息粘贴到找到日期的同一行中。

我尝试过的“我的代码”，您可以看到我在做什么：

   'formula to paste information from cell into correct column in correct tab,

    daterow = Application.Match(CLng(Worksheets("Value").Range("D19")), 
    Worksheets("Regional Day Breakdown Sales").Columns("B"), 0)
    If Not IsError(daterow) Then
        Worksheets("Regional Day Breakdown Sales").Cells(daterow, "F").Value = 
    ActiveSheet.Range("D4").Value
        Else
        MsgBox ("Date not in range")
    End If
    End Sub

Answer 1

还是白痴，也需要删除Clng，谢谢您的帮助

a）

  daterow = Application.Match(Worksheets("Value").Range("D17"), Worksheets("Regional 
Day Breakdown Sales").Columns("B"), 0)
If Not IsError(daterow) Then
    Worksheets("Regional Day Breakdown Sales").Cells(daterow, "F").Value = 
ActiveSheet.Range("D4").Value
    Else
    MsgBox ("Date not in range")
End If

VBA粘贴到单元格x的IF列中的日期等于y列中的日期

1 个答案: