ExcelのVLOOKUP関数でセルの書式を保持する方法

2024.06.28

Excelでデータの検索や抽出を行う際に便利なVLOOKUP関数ですが、検索結果にセルの書式を保持したいというニーズがあります。この記事では、VLOOKUP関数を使用しながらセルの書式を保持する方法について詳しく解説します。

VLOOKUP関数でセルの書式を保持する方法とは？
VLOOKUP関数でセルの書式を保持する具体的な方法
VBAコードを使ったセルの書式保持方法
まとめ

VLOOKUP関数でセルの書式を保持する方法とは？

ExcelのVLOOKUP関数を使用する際、検索結果にセルの書式をそのまま反映させる方法は標準機能としては提供されていません。しかし、ユーザーはこの機能が必要と感じる状況が多々あります。例えば、特定の条件に合致するデータを抽出するだけでなく、フォーマットやスタイルもそのまま保持したい場合です。以下では、その理由と解決策について詳しく説明します。

VLOOKUP関数でセルの書式を保持したい理由はいくつか考えられます。

理由

データの視認性向上：条件付き書式などを使っている場合、検索結果にもその書式を反映させたい。
報告書作成の効率化：抽出データが見やすい状態で出力されることで、手間を省ける。
一貫性の維持：書式が統一されていることで、全体のフォーマットが崩れない。

これらの理由から、多くのユーザーはVLOOKUP関数で検索した結果にセルの書式を保持したいと感じるのです。

VLOOKUP関数でセルの書式を保持する具体的な方法

標準のVLOOKUP関数だけではセルの書式を保持することはできませんが、以下の手順を組み合わせることで解決することが可能です。

まず、VLOOKUP関数を使用して必要なデータを検索・抽出します。
次に、検索結果のセルに対してVBA（Visual Basic for Applications）を使って書式をコピーします。

VBAコードを使ったセルの書式保持方法

以下に、具体的なVBAコードの例を示します。このコードは、A1からA10までのセル範囲を検索し、検索結果の書式をコピーするものです。

/* VBAコード */

Sub VlookupWithFormat()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim lookupValue As Variant

    Dim lookupRange As Range

    Dim resultCell As Range
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set lookupRange = ws.Range("A1:B10")

    lookupValue = ws.Range("C1").Value

    Set resultCell = ws.Range("D1")
    Set cell = lookupRange.Find(lookupValue, LookIn:=xlValues)

If Not cell Is Nothing Then resultCell.Value = cell.Offset(0, 1).Value cell.Offset(0, 1).Copy resultCell.PasteSpecial Paste:=xlPasteFormats Else resultCell.Value = "Not found" End If Application.CutCopyMode = False End Sub

このコードをExcelに入力する手順は以下の通りです。