ExcelでVlookupを使用するときに、ルックアップセルのソースフォーマットをコピーするにはどうすればよいですか？

以前の記事では、Excelでvlookup値を指定するときに背景色を維持する方法について説明しました。 この記事では、ExcelでVlookupを実行するときに、結果のセルのすべてのセル形式をコピーする方法を紹介します。 次のようにしてください。

ユーザー定義関数を使用してExcelでVlookupを使用する場合のソースフォーマットのコピー

ユーザー定義関数を使用してExcelでVlookupを使用する場合のソースフォーマットのコピー

以下のスクリーンショットのようなテーブルがあるとします。 次に、指定された値（列E）が列Aにあるかどうかを確認し、対応する値を列Cにフォーマットして返す必要があります。これを実現するには、次のようにしてください。

1.ワークシートにvlookupする値が含まれている場合は、シートタブを右クリックして、 コードを表示 コンテキストメニューから。 スクリーンショットを参照してください：

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、以下のVBAコードをコードウィンドウにコピーしてください。

VBAコード1：Vlookupとフォーマット付きの戻り値

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Set xRg = Application.Range(xDicStr)
                xRg.Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

3。 次に、をクリックします インセット > モジュールをクリックし、以下の VBA コード 2 をモジュール ウィンドウにコピーします。

VBAコード2：Vlookupとフォーマット付きの戻り値

Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
    End If
    Application.ScreenUpdating = True
End Function

4。 クリック ツール > 参考情報。 次に、 Microsoftスクリプトランタイム 内箱 参照– VBAProject ダイアログボックス。 スクリーンショットを参照してください：

5。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic 窓。

6. ルックアップ値の隣の空白セルを選択し、数式を入力します。 =LookupKeepFormat(E2,$A$1:$C$8,3) に 数式バー、を押して 入力します キー。

Note：式では、 E2 検索する値が含まれています。 $ A $ 1：$ C $ 8 はテーブルの範囲であり、数値は 3 は、返される対応する値がテーブルの XNUMX 列目にあることを意味します。 必要に応じて変更してください。

7. 最初の結果セルを選択し続け、フィル ハンドルを下にドラッグして、以下のスクリーンショットに示すように、すべての結果とその書式設定を取得します。

関連記事：

• Excelでルックアップ値とともに背景色をvlookupして返す方法は？
• Excelで数値の代わりに日付形式をvlookupして返す方法は？
• Excelでvlookupとsumを使用する方法は？
• Excelの隣接セルまたは次のセルの戻り値をvlookupする方法は？
• 値をvlookupして、Excelでtrueまたはfalse / yesまたはnoを返す方法は？