Excel VBA 提取年份

在Excel VBA中，我们可以通过各种方式来提取数据，包括日期中的年份。本文将介绍如何使用VBA提取Excel电子表格中的日期中的年份。

使用Year函数

我们可以使用Year函数来提取日期中的年份。Year函数返回代表日期中年份的整数值。

以下是一个简单的VBA Sub程序，用于提取单元格A1中的日期中的年份，并在单元格B1中显示。

Sub ExtractYear()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = Year(dt)
End Sub

我们可以将此代码保存在Excel电子表格的宏中，并通过按下快捷键来运行它。

使用Format函数

另一种提取日期中年份的方法是使用Format函数。这个函数可以将日期格式化为特定的文本字符串，并返回该字符串。

以下是一个简单的VBA Sub程序，用于提取单元格A1中的日期中的年份，并在单元格B1中显示。此代码使用“yyyy”格式指定年份。

Sub ExtractYear()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = Format(dt, "yyyy")
End Sub

结论

通过上述两种方法，我们可以轻松地在Excel VBA中提取日期中的年份。根据实际情况选择使用哪种方法。