Question

我在让代码正常工作时遇到问题。我试图将列K中的月份和年份与单元格P2中的月份和年份进行比较。然后，如果它们匹配，则将位于列J（如果大于0）的值复制并粘贴到列P.我已粘贴下面的代码。我没有得到任何错误，但它也没有粘贴价值。任何帮助表示赞赏。我还包括我编写的代码，以使公式正确（在底部）。它工作正常。

最后我想比较K列中的日期和单元格P2中的日期 - AA2，每个日期包含一年中不同的月份（2017年1月，2017年2月等），但我想如果我能得到第一个循环工作，我可以找出下一个。

Sub Test()
    Dim i As Integer
    Sheets("Sheet1").Select

    For i = 3 To 6
        If Month(Range("K" & i)) & Year(Range("K" & i)) = Month(Range("P2")) & Year(Range("P2")) Then
        ElseIf Range("J" & i).Value > "0" Then
            Range("J" & i).Copy
            Range("P" & i).PasteSpecial xlPasteValues
        End If
    Next i
End Sub


'Original Code I wrote to get the formulas correct before adding the loop and variables

'Sheets("Sheet1").Select
'If Month(Range("K3")) & Year(Range("K3")) = Month(Range("P2")) & Year(Range("P2")) Then
'  If Range("J3").Value > "0" Then
'  Range("J3").Copy
'  Range("P3").PasteSpecial xlPasteValues
'  Else
'  End If
'Else
'End If
'End Sub

使用带有整数

0 个答案: