Question

所以我现在正在查看一份大型报告，我们每周都会收到一份报告，我们想要一个宏来自动化它。所以其中一个专栏有很多日期从2012年到2015年。我需要搜索2014日期，然后从那里直接将2014年放入其右侧的列中到目前为止我的代码：

Sub Engagament_Hiring_Dates()
    Dim i As Long
    Dim k As Long
    For i = 2070 To 4000
        If Year(BDi) = "2014" Then
            Cells(i, 57) = "2014"
        End If
    Next i
End Sub

Answer 1

如果您的日期在BD列中，请尝试：

For i = 2070 To 4000
    If Year(Cells(i, "BD")) = 2014 Then
        Cells(i, 57) = "2014" 'or simply 2014
    End If
Next i

Year Function会返回Integer，因此您需要将其与数字进行比较，而不是字符串。
如果您在BD栏中的值是有效日期，这将有效。

另外，您可能需要在下方查看如何使用Cells Property：

Using Cells

从日期中提取年份并粘贴到下一列

1 个答案: