【VBAリファレンス】エクセル入門YEAR関数（日付を年に）

エクセルYEAR関数の全貌：日付データから「年」を抽出し業務を自動化する技術

エクセルでの業務において、日付データを扱う機会は非常に多いものです。請求書の作成、勤怠管理、プロジェクトの進捗管理、あるいは年齢計算に至るまで、日付はあらゆるビジネスデータの基盤となります。その中でも「日付から年だけを取り出す」という操作は、データの集計や抽出、あるいは条件付き書式の設定において欠かせない基本スキルです。

本記事では、エクセルの基本関数である「YEAR関数」に焦点を当て、その仕組みから実務における応用テクニック、さらにはVBAを用いた自動化手法までを網羅的に解説します。単に「年を取り出す」という単純な操作を超え、データ分析の精度を向上させるためのプロフェッショナルな視点を養いましょう。

YEAR関数の基本仕様と動作原理

YEAR関数は、引数として指定された日付から「年」を4桁の整数（1900～9999）として返す関数です。構文は極めてシンプルです。

構文：=YEAR(シリアル値)

ここで重要なキーワードとなるのが「シリアル値」です。エクセルにおいて日付は、1900年1月1日を「1」とする通し番号として内部処理されています。YEAR関数は、このシリアル値を解析し、その日付が属する年を算術的に特定します。

例えば、セルA1に「2023/10/25」というデータが入っている場合、=YEAR(A1)と入力すると「2023」という数値が返されます。この関数が極めて優秀な点は、入力されたデータが「2023/10/25」といった標準的な形式であれば、自動的にシリアル値として認識し、正確に西暦を抽出できる点にあります。

実務におけるYEAR関数の活用シーン

YEAR関数単体では「年を取り出すだけ」の機能ですが、他の関数と組み合わせることで強力な分析ツールに生まれ変わります。

1. 年別売上集計のグループ化
大量のトランザクションデータから、特定の年度のみを抽出したい場合、YEAR関数をヘルパー列として使用します。日付列の隣に=YEAR(日付)の列を作成することで、ピボットテーブルでの集計が容易になります。

2. 特定の期間の抽出
「2023年以降のデータのみを抽出したい」といった場合、フィルター機能やSUMIFS関数と組み合わせます。=SUMIFS(売上範囲, 日付範囲, “>=2023/1/1”, 日付範囲, “<=2023/12/31") と書くことも可能ですが、YEAR関数を使って =SUMIF(年列, 2023, 売上列) と記述する方が、視覚的に直感的でメンテナンス性が高い場合があります。 3. 年齢の算出 生年月日から年齢を求める際、YEAR関数は必須です。=(YEAR(TODAY())-YEAR(生年月日)) と記述することで、現在の年と誕生年の差分を計算できます。ただし、これだけでは「誕生日前か後か」を考慮できないため、厳密な年齢計算にはDATEDIF関数と組み合わせるのが定石です。

サンプルコード：YEAR関数を応用したデータ抽出の自動化

ここでは、VBAを用いて特定年度のデータを別シートへ抽出するプロフェッショナルなコードを紹介します。手作業でのコピー＆ペーストを排除し、ヒューマンエラーを防ぐための実装例です。

Sub ExtractDataByYear()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim targetYear As Integer
    Dim lastRow As Long, i As Long, targetRow As Long
    
    ' 設定
    Set wsSource = ThisWorkbook.Sheets("売上データ")
    Set wsTarget = ThisWorkbook.Sheets("抽出結果")
    targetYear = 2023
    targetRow = 2
    
    ' 抽出先のクリア
    wsTarget.Range("A2:D1000").ClearContents
    
    ' 最終行の取得
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' ループ処理
    For i = 2 To lastRow
        ' YEAR関数相当の処理をVBAのYear関数で行う
        If Year(wsSource.Cells(i, 1).Value) = targetYear Then
            wsSource.Rows(i).Copy wsTarget.Rows(targetRow)
            targetRow = targetRow + 1
        End If
    Next i
    
    MsgBox "2023年度のデータ抽出が完了しました。"
End Sub

このコードでは、VBAのネイティブ関数である「Year関数」を活用しています。エクセルシート上での関数とVBAでの関数は役割が似ていますが、VBAで実装することで、単なる抽出だけでなく、抽出後の書式設定やPDF出力などの後続処理を一括で自動化できるメリットがあります。

プロフェッショナルとしてのアドバイス：注意すべき罠

YEAR関数を扱う上で、ベテランエンジニアが必ず注意する点が「日付形式の不整合」です。

エクセルにおいて、「2023-10-25」や「2023/10/25」は日付として認識されますが、外部システムから出力されたCSVファイルなどを読み込んだ際、日付が「文字列」として格納されているケースが多々あります。文字列として格納されている場合、YEAR関数は「#VALUE!」エラーを返します。

この問題に対処するためには、以下の2点を確認してください。

1. DATEVALUE関数の活用
文字列の日付をシリアル値に変換するDATEVALUE関数を噛ませることで、YEAR関数が正しく動作するようになります。=YEAR(DATEVALUE(A1)) という形です。

2. セル形式の統一
データの入力規則や、インポート時の設定で、対象列を必ず「日付型」に変換するプロセスをワークフローに組み込んでください。データクレンジングは、分析作業の8割を占める重要な工程です。

また、YEAR関数は1900年以前の日付には対応していません。歴史的なデータを扱う場合、エクセルの標準関数では限界があるため、カスタム関数（ユーザー定義関数）を作成する必要があります。このようなエッジケースへの対応こそが、プログラミングのスキルが試される場面です。

まとめ

YEAR関数は、エクセルにおける日付操作の入り口であり、同時にデータ分析の精度を担保するための重要な部品です。単に「年を取り出す」という機能の裏側には、エクセルの日付管理の仕組みである「シリアル値」の概念が存在しています。

本記事で解説した通り、YEAR関数を単体で使うだけでなく、他の関数と組み合わせたり、VBAで自動化のロジックに組み込んだりすることで、業務効率は飛躍的に向上します。特に、大量のデータを扱う現場では、関数を適切に配置することで、数時間かかる作業を数秒に短縮することが可能です。

最後に、エンジニアとしてのアドバイスを一つ。関数やコードを書く際は、常に「将来の自分がメンテナンスしやすいか」「他のメンバーが見てすぐに理解できるか」を意識してください。複雑な数式を一行に詰め込むのではなく、必要に応じて列を分けたり、名前付き範囲を活用したりすることで、可読性の高いスプレッドシートを構築しましょう。

エクセルの関数は、正しく使えば強力な武器となります。今日からぜひ、YEAR関数を単なる補助ツールではなく、業務自動化の核として活用してみてください。