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 Function4。 クリック 工具 > リファレンス。 次に、 Microsoftスクリプトランタイム 内箱 参照– VBAProject ダイアログボックス。 スクリーンショットを参照してください：
5。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic 窓。
6.ルックアップ値に隣接する空白のセルを選択し、数式を入力します =LookupKeepFormat(E2,$A$1:$C$8,3) に 数式バー、を押して 入力します キー。
注意：式では、 E2 検索する値が含まれています。 $ A $ 1：$ C $ 8 はテーブルの範囲であり、数値は 3 返される対応する値がテーブルのXNUMX番目の列にあることを意味します。 必要に応じて変更してください。
7.最初の結果セルを選択し続け、次にフィルハンドルを下にドラッグして、以下のスクリーンショットに示すように、すべての結果とその書式を取得します。
関連記事：
- Excelでルックアップ値とともに背景色をvlookupして返す方法は？
- Excelで数値の代わりに日付形式をvlookupして返す方法は？
- Excelでvlookupとsumを使用する方法は？
- Excelの隣接セルまたは次のセルの戻り値をvlookupする方法は？
- 値をvlookupして、Excelでtrueまたはfalse / yesまたはnoを返す方法は？
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
