Excel で誕生日から年・月・日の形式で年齢を計算するには?
人事管理、医療記録、学生データベース、会員システムなど多くの実務シーンにおいて、個人の誕生日に基づいて正確な年齢(年・月・日)を算出することが重要です。Excel に生年月日の一覧がある場合、各人の年齢を「年・月・日」の詳細形式や、小数値・整数値として迅速に求めたいこともあるでしょう。こうした計算を行うことで、資格審査、ポリシー適用、マイルストーンの追跡などにおけるデータ精度がさらに高まります。本記事では、Excel でこれらの年齢計算を効率的に行うためのさまざまな方法をご紹介します。
目次
VBA コード – カスタムマクロで大規模データセットの年齢計算を自動化
その他のExcel 組み込みメソッド – Power Query を使用してデータ変換により年齢を計算
誕生日から年・月・日の形式で年齢を計算する
年齢を詳細に計算する実用的な方法の一つとして、誕生日と特定の基準日(通常は今日の日付)との間の「年・月・日」を返す数式が広く報告や資格判定に活用されています。この方法は、記念日、入学要件、給付金計算など、正確な期間が重要なシーンに特に適しています。
年齢の結果を表示したいセルを選択し、次の数式を入力してください:
=DATEDIF(A2,$F$2,「Y」)&「 Years, 」&DATEDIF(A2,$F$2,「YM」)&「 Months, 」&DATEDIF(A2,$F$2,「MD」)&「 Days」
数式を入力したら、Enterキーを押してください。その後、必要に応じてExcel のオートフィルハンドルをドラッグして、他の行にも数式をコピーできます。
この数式では、A2は生年月日が入力されたセルを指し、F2には基準日(例:今日の日付)を入力してください。正確な年齢内訳を得るには、両方のセルが日付形式になっていることを必ずご確認ください。もし#NUM!エラーが表示された場合は、生年月日が基準日よりも未来の日付になっていないか、今一度ご確認ください。
誕生日から小数形式で年齢を計算する
統計レポートや年齢グループ分け、資格基準など、年齢を小数で表示する必要がある場合には、簡潔な数式が最適です。この方法により「24.11」のような年齢値が得られ、データの分析やフィルターがよりスムーズに行えるようになります。
小数形式の年齢を表示したいセルを選択し、次の数式を入力してください:
=DATEDIF(A2,$F$2,「Y」)&"."&DATEDIF(A2,$F$2,「YM」)
Enterキーを押して数式を確定し、フィルハンドルを下にドラッグして他の行にも自動適用してください。
前述の方法と同様に、A2には誕生日を、F2には現在日または基準日を入力してください。また、日付セルが正しく書式設定されていることをご確認ください。この方法はシンプルで数値データの扱いが容易ですが、日数の情報は考慮されません。日数まで正確に把握したい場合は、完全な内訳方式をご利用ください。
誕生日から整数形式で年齢を計算する
教育機関の資格審査、保険、アクセス制御などで年齢を整数で取得する際には、整数形式の年齢結果が十分であり、一般的にも求められています。Kutools for Excel には専用の「誕生日に基づいて年齢を計算します」機能が搭載されており、複雑な数式を手動で入力する手間を省けます。特に大規模なリストを扱う場合や繰り返し計算を行う際に、その効果を発揮します。
Kutools for Excel を無料でインストールした後、以下の手順に従ってください:
1。年齢を計算したいセルを選択し、Kutools > 関数ヘルパー > 関数ヘルパーをクリックしてください。
2。関数ヘルパーダイアログボックスで、誕生日に基づいて年齢を計算します関数をDateセクションから選択し、テキストボックスに生年月日を含むセルを指定して、OKをクリックしてください。
3。これで年齢が整数として計算されます。必要に応じてフィルハンドルを下にドラッグして他のセルにも適用してください。この方法により手入力ミスを回避でき、繰り返しの年齢計算作業が簡単になります。
ヒント:時間が経過するにつれて年齢を自動更新したい場合は、Excel で基準日を=TODAY()に設定してください。
VBA コード – カスタムマクロで大規模データセットの年齢計算を自動化
数千件のレコードを処理し、それぞれの年齢を年・月・日の形式で必要とする場合、数式を手動でドラッグするのは非効率的です。VBA マクロを使えば、列全体全体の年齢計算を一度に自動化でき、繰り返し作業を大幅に削減し、一貫性を確保できます。これは生年月日のリストが頻繁に更新される場合や、大量データを管理する上級ユーザーに最適です。
1。「開発」タブをクリックしてVisual Basicを選択し、Microsoft Visual Basic for Applications ウィンドウを開きます。次に、挿入 > 標準モジュールをクリックして、以下のコードをモジュールに入力してください:
Function AgeYMD(ByVal dob As Date, ByVal refDate As Date) As String
'Updated by Extendoffice 20250902
Dim y As Long, m As Long, d As Long
Dim t As Date
If Not IsDate(dob) Or Not IsDate(refDate) Or refDate < dob Then
AgeYMD = "Invalid date"
Exit Function
End If
' Years
y = Year(refDate) - Year(dob)
If DateSerial(Year(refDate), Month(dob), Day(dob)) > refDate Then y = y - 1
' Move dob forward by y years
t = DateAdd("yyyy", y, dob)
' Months
m = DateDiff("m", t, refDate)
If DateAdd("m", m, t) > refDate Then m = m - 1
' Move temp forward by m months
t = DateAdd("m", m, t)
' Days (now always >= 0)
d = refDate - t
AgeYMD = y & " Years, " & m & " Months, " & d & " Days"
End Function
Sub CalculateAgesAllRows()
Dim ws As Worksheet, lastRow As Long, birthCell As Range, resultCell As Range
Dim refDate As Date, xTitleId As String
xTitleId = "KutoolsforExcel"
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Example prompt; default is today. Make sure you enter a valid date (e.g., 2025-09-02)
refDate = Application.InputBox("Enter reference date (e.g., 2025-09-02)", _
xTitleId, Date, Type:=1)
For Each birthCell In ws.Range("A2:A" & lastRow)
Set resultCell = ws.Cells(birthCell.Row, "B")
If IsDate(birthCell.Value) Then
resultCell.Value = AgeYMD(CDate(birthCell.Value), refDate)
Else
resultCell.Value = "Invalid date"
End If
Next birthCell
End Sub 2。「
実行」ボタンをクリックすると、基準日(例:今日の日付)の入力を求められます。その後、マクロは列 A の各誕生日の隣にある列 B に計算された年齢を書き込みます。
ヒント:列 A に有効な日付が含まれていることを確認し、1 行目がヘッダーで、データが A2 セルから始まるようにしてください。結果に「Invalid date」と表示された場合は、元のデータ列の書式を確認してください。
この VBA による自動化は、大規模または定期的に更新されるデータセットにおいて効率的ですが、マクロを有効にしたファイルと適切に設定された信頼センターが必要です。コードの使用を避けたい場合は、Power Query をノーコードの代替手段としてご検討ください。
その他のExcel 組み込みメソッド – Power Query を使用してデータ変換により年齢を計算
Power Query は、Excel の最新インターフェース上でコード不要かつ直感的に年齢を計算する方法を提供します。生年月日のテーブルを Power Query に読み込むだけで、数式や手動でのコピー作業なしにカスタム列を追加し、年・月・日単位で年齢を自動計算できます。この手法は、外部データを取り込んで利用する方や、定期的に計算内容を変換・更新する必要がある方に特におすすめです。
操作手順:
1。 生年月日のテーブルを選択し、データ > テーブル/範囲からをクリックして、データを Power Query に読み込みます。
2。Power Query エディターで、列の追加 > カスタム列をクリックします。
3。 数式ボックスに、年齢(年)を計算するための次の M コードを入力します:
Date.Year(DateTime.LocalNow()) - Date.Year([DateOfBirth]) DateOfBirthは、必要に応じて実際の列見出しに置き換えてください。

より詳細な内訳(年・月・日)を計算するには、次のコードを使用して別々の列を追加できます:
let
Today = Date.From(DateTime.LocalNow()),
Birth = Date.From([Birthday]), Years = Date.Year(Today) - Date.Year(Birth) -
(if Date.AddYears(Birth, Date.Year(Today)-Date.Year(Birth)) > Today then 1 else 0),
AnchorY = Date.AddYears(Birth, Years),
mDiff = (Date.Year(Today)-Date.Year(AnchorY))*12 + (Date.Month(Today)-Date.Month(AnchorY)),
Months = if Date.AddMonths(AnchorY, mDiff) > Today then mDiff-1 else mDiff,
AnchorM = Date.AddMonths(AnchorY, Months),
Days = Duration.Days(Today - AnchorM)
in
Text.From(Years) & " years " & Text.From(Months) & " months " & Text.From(Days) & " days"

4。OKをクリックすると、使用したコードに基づいて年齢、または年・月・日の列が生成されます。
4。 次に、閉じて読み込むをクリックすると、変換済みのデータがワークシートに戻ります。
注意点とトラブルシューティング:
- Power Query は大量のデータを効率的に処理し、更新時に自動的に再計算します。
- 誕生日列に無効な値や空のエントリが含まれている場合は、カスタム列を作成する前にデータの正確性を確認してください。
- 必ず列名を確認し、それに応じて数式を調整してください。
Power Query は、Excel の数式やマクロを記述することなく、動的で再利用可能なソリューションをお求めの方に最適です。ただし、Excel 2016 より古いバージョンやExcel Online(機能セットにより異なります)ではご利用いただけない場合があります。
トラブルシューティングとおすすめの対応策:
年齢の計算方法をどれほど選んでも、元データのセルが常に「日付」形式になっていることを確認してください。予期しない結果(負の年齢やエラー値など)が表示された場合は、使用しているロジックを再度見直しましょう。数式を利用する際は、静的な参照日付は時間が経過しても自動更新されないため、=TODAY()を使って年齢を常に最新に保つようにしてください。VBA および Power Query によるソリューションは、高度な処理や大規模・定期更新型のレポートに特に適しています。ご自身のニーズをしっかり見極め、ワークフローに最も効果的な手法を選びましょう。マクロの実行や大規模な変換を行う前には、必ずファイルを保存し、必要に応じてバックアップを取って、データの損失や意図しない変更を防いでください。
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得