Excelで複数回記録された履歴データを管理する中で、「最新のデータだけを別シートに抜き出したい」というニーズは非常に多くあります。
以下のようなケースが典型的です：
顧客ごとに最新の問い合わせ内容だけを抽出して一覧化したい
社員ごとに最新の出勤状況だけを抽出したい
商品の最新入荷日や更新履歴のみをまとめて別シートに記録したい
こうした作業を効率的に行うには、重複グループの中から最新日付のデータのみを抽出し、それを別シートへ出力するのが有効です。
本記事では、「削除せずに最新データだけを別シートに抽出する方法」を、関数・Power Query・VBAの3パターンで徹底解説します。
目次
サンプルデータの構成
| 氏名 | 日付 | ステータス |
|---|---|---|
| 山田 | 2024/03/25 | 出勤 |
| 山田 | 2024/04/03 | 有給 |
| 佐藤 | 2024/03/28 | 欠勤 |
| 佐藤 | 2024/04/02 | 出勤 |
| 鈴木 | 2024/04/01 | 出勤 |
| 鈴木 | 2024/04/05 | 有給 |
この中から「氏名ごとに最新日付のレコードだけを抽出して、新しいシートに出力」します。
【Excel】重複削除を正しく行う方法｜関数・フィルター・Power Queryを使いこなす実践ガイド
✅ Power Queryで最新データだけを抽出 → 別シートに出力する方法
特徴
元データを変更せず、最新データのみ別出力
「グループ化」＋「上位の行抽出」で自動化
更新ボタン1つで再抽出可能
手順
データを選択 →「データ」タブ →「テーブルまたは範囲から」
Power Queryエディタが起動したら、「日付」列を降順で並べ替え
「氏名」列を選択 → 右クリック →「グループ化」
- グループ方法：氏名
- 新しい列名：データ
- 操作：すべての行グループ化された各テーブルで「最初の1行」だけを抽出
- 「追加列」→「カスタム列」→=Table.FirstN([データ],1)不要列を削除 → 必要な列を展開 → 「閉じて読み込む」で新シートに出力
メリット
複数条件（氏名×日付など）でも対応可能
一度設定すれば何度でも「更新」で再抽出可能
元のデータを保持したまま整形できる
【Excel】重複データを抽出し件数をカウントする方法｜関数・ピボット・Power Queryを活用した集計テクニック
✅ Excel関数＋フィルターで最新行だけを抽出 → コピーして出力する方法
関数を使って「最新の日付を判定」し、TRUEとなった行だけをコピーして別シートへ出力する方法です。
手順
C列に以下の式を入力：
=MAXIFS($B$2:$B$100, $A$2:$A$100, A2)
→ 「氏名ごとの最大日付（最新日付）」を取得
D列に判定式：
=IF(B2=MAXIFS($B$2:$B$100, $A$2:$A$100, A2), TRUE, FALSE)
「TRUE」でフィルター → 該当行だけをコピー
別シートに貼り付け
メリット
視認性が高く、確認しながら操作できる
旧バージョン（MAXIFS非対応）の場合は
AGGREGATE＋FILTERで対応可能コピー元が変わっても再利用可能
最新データだけを別シートへ出力する方法は、履歴データを削除せずに安全に管理したい場合に非常に有効です。
ただし、重複データの扱いには、最新データの抽出だけでなく、一意データの整理、条件付き抽出、自動更新など、目的に応じたさまざまな方法があります。
重複データ抽出の全体像を整理したい場合は、
「【Excel】重複データを抽出する完全ガイド｜一意・最新・別シート出力まで対応」
もあわせて確認してみてください。
✅ VBAで最新データを抽出 → 別シートに自動出力する方法（削除なし）
大量データや定型処理を自動化したい場合には、VBAで最新データだけを抽出して別シートへコピーするマクロを使うのが便利です。
サンプルコード
Sub 最新データ別シート出力()
Dim ws As Worksheet, destWs As Worksheet
Dim dict As Object, rowMap As Object
Dim lastRow As Long, i As Long
Dim name As String, dateVal As Date
Dim outputRow As Long
Set ws = ActiveSheet
Set destWs = Worksheets.Add
destWs.Name = "最新データ"
Set dict = CreateObject("Scripting.Dictionary")
Set rowMap = CreateObject("Scripting.Dictionary")
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' 最新行の判定
For i = 2 To lastRow
name = ws.Cells(i, 1).Value
dateVal = ws.Cells(i, 2).Value
If Not dict.exists(name) Then
dict(name) = dateVal
rowMap(name) = i
ElseIf dateVal > dict(name) Then
dict(name) = dateVal
rowMap(name) = i
End If
Next i
' ヘッダーコピー
ws.Rows(1).Copy destWs.Rows(1)
outputRow = 2
' 最新行だけを別シートにコピー
For Each name In rowMap.Keys
ws.Rows(rowMap(name)).Copy destWs.Rows(outputRow)
outputRow = outputRow + 1
Next name
MsgBox "最新データの抽出が完了しました。"
End Sub
特徴
「名前ごとの最新行」を抽出して別シートにコピー
元データを破壊せず処理可能
処理対象列や条件を柔軟にカスタマイズできる
✅ 最新日付だけを色分けして表示する
削除や出力ではなく、元データ上で最新行に色をつけることで、視覚的にチェックする方法もあります。
COUNTIFS＋条件付き書式の組み合わせ：
次の式を使って条件付き書式を設定：
=B2=MAXIFS($B$2:$B$100, $A$2:$A$100, A2)
適用先範囲は、データ全体（例：A2:C100）
→ 氏名ごとの最新日付の行だけに色がつく
・よくあるトラブルと対策
| 問題 | 原因 | 対策 |
|---|---|---|
| MAXIFSが使えない | Excel 365 / 2021以降のみ対応 | FILTER関数やAGGREGATE関数で代替 |
| 日付が比較されない | 日付が文字列として認識されている | セルの書式を「日付」に統一、ISNUMBERで確認 |
| 同姓同名などで行が複数ヒットする | 複数条件で比較していない | COUNTIFS や Power Query の複合キーを使う |
| 出力先にすでにデータがある | シートを削除して作り直す、または上書き処理を加える | VBAで destWs.Cells.Clear を使って初期化 |
・まとめ：最新データだけを別シートに抽出することで業務が格段に効率化される
Excelで「最新データのみを抜き出して別シートに出力」することで、履歴データからのレポート作成や最新情報の一覧化が簡単に実現できます。
| 方法 | 特徴 |
|---|---|
| Power Query | 自動更新に対応。ノーコードで視覚的にも操作しやすい |
| 関数＋手動 | 見ながら確認できるので正確性重視に向いている |
| VBA | 完全自動化でき、大量データ処理や定型作業に最適 |
目的や作業頻度に応じて適切な方法を選び、最新情報の抽出・管理をスムーズに進めていきましょう。