确定具有date的单元格是否包含特定年份

我想通过使用VBA在Excel中迭代列来确定是否有任何单元格包含某一年。 我想继续迭代,看看它是否是真的。 我正在查看的列包含格式为dd / mm / yyyy的date。 下面是我正在迭代的列的一个示例,后面跟着一些我想要修改的代码。

C1: (05/01/2013, 06/07/2015, 09/08/2019, ... ) yy = 2018 for i = 1 to 500 if cells(i,1) contains "yy" then cells(i,2) = "yes" end if next i 

先谢谢您的帮助。

尝试使用Excel =YEAR()函数。 像这样:

 C1: (05/01/2013, 06/07/2015, 09/08/2019, ... ) yy = 2018 While i <= 500 if Year(ActiveWorksheet.Cells(i,1)) = yy Then ActiveWorksheet.Cells(i,2).Value = "Yes" end If i = i + 1 Loop 

尝试这个:

 Sub FindYear() yy = 2018 'itarating from first row to last row with value From i=1 To ActiveWorksheet.Range("A1048576").End(xlUp).Row If Year(ActiveWorksheet.Range("A" & i).Value = yy Then ActiveWorksheet.Range("B" & i).Value = "yes" End If End Sub