导读：在Excel中，获取年份是一个常见的需求。无论是因为需要进行数据分析还是做数据可视化，获取年份都是一个必要的操作。在本文中，我们将介绍如何使用Excel获取年份，包括使用公式和VBA代码两种方法。如果您经常使用Excel进行数据处理或者数据分析，本文将为您提供便利。
1. 使用公式获取年份
1.1 YEAR函数
YEAR函数可以方便地从日期或时间中提取年份。要使用YEAR函数，只需要输入“=YEAR(日期或时间)”即可。例如，在Excel中，如果需要提取2019年8月25日的年份，只需要输入“=YEAR(‘2019-08-25’)”即可获取年份。
需要注意的是，YEAR函数只能从日期或时间中提取年份，因此，如果需要从文本中提取年份，则需要将文本转换为日期或时间格式。可使用文本函数转换，如：DATEVALUE和TIMEVALUE函数。
Tip：YEAR函数的返回值是一个4位数的整数，表示年份，例如2019。如果YEAR函数的参数为空，则返回1900年。
1.2 TEXT函数
TEXT函数可以将日期或时间格式转换为文本格式。要使用TEXT函数，只需要输入“=TEXT(日期或时间,‘格式代码’)”即可。例如，在Excel中，如果需要从2019/8/25 12:25:36这个日期时间中提取年份，可以使用“=TEXT(‘2019/8/25 12:25:36’,‘yyyy’)”命令即可获取年份。
需要注意的是，TEXT函数的格式代码非常重要，它决定了函数输出的文本格式。一般情况下，格式代码“yyyy”或者“YYYY”可以输出4位的年份，并且不带任何分隔符号，如“2019”。
Tip：TEXT函数的返回值是一个字符串，如果TEXT函数的参数为空，则返回空字符串。
2. 使用VBA代码获取年份
2.1 使用Year函数
VBA提供了Year函数，它可以方便地从日期或时间中提取年份。例如，可以使用以下代码获取当前年份：
Dim ThisYear As Integer
ThisYear = Year(Date)
在这个代码中，使用Date函数获取当前日期并计算当前年份。
2.2 使用Mid函数
如果需要从文本中提取年份，可以使用Mid函数。例如，可以使用以下代码从“2019-08-25”文本中提取年份：
Dim TextString As String
Dim StartPos As Integer
Dim EndPos As Integer
Dim YearString As String
TextString = "2019-08-25"
StartPos = InStr(TextString, "-") + 1
EndPos = InStr(StartPos, TextString, "-")
YearString = Mid(TextString, StartPos, EndPos - StartPos)
在这个代码中，使用Mid函数从文本的第一位开始截取到第一个分隔符“-”之间的文本，即“2019”，从而获取年份。
总结归纳
本文介绍了Excel中如何获取年份的两种方法，分别是使用公式和使用VBA代码。公式中，YEAR函数可以方便地从日期或时间中提取年份，而TEXT函数可以将日期或时间格式转换为文本格式。在VBA代码中，Year函数可以方便地从日期或时间中提取年份，而Mid函数可以从文本中提取年份。掌握这些方法可以提高数据分析的效率，也给数据可视化提供了更多的可能性。
