标题说真的。
我在一个名为“Value”的选项卡中有一个日期,其值为上个月的上一个工作日。然后我想看看这个日期是否在另一个标签的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
感谢你的帮助,也是一个需要移除Clng的白痴
一个)
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