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

【问题标题】：Extract year from a date and paste in next column从日期中提取年份并粘贴到下一列
【发布时间】：2015-01-22 05:28:16
【问题描述】：

因此，我目前正在查看一份庞大的报告，我们每周都会收到一份报告，我们需要一个宏来自动化它。因此，其中一列中有许多从 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

【问题讨论】：

对不起代码。无法让它看起来正确，它会自动格式化它
不用担心，已经解决了。顺便说一句，BDi 指的是什么？

标签： vba date excel copy-paste

【解决方案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

【讨论】：