Jak kopírovat zdrojové formátování vyhledávací buňky při použití Vlookup v aplikaci Excel?
V předchozích článcích jsme hovořili o zachování barvy pozadí při hodnotách vlookup v aplikaci Excel. Zde v tomto článku představíme metodu kopírování veškerého formátování buněk výsledné buňky při provádění aplikace Vlookup v aplikaci Excel. Postupujte prosím následovně.
Zkopírujte formátování zdroje při použití aplikace Vlookup v aplikaci Excel s uživatelem definovanou funkcí
Předpokládejme, že máte tabulku uvedenou níže. Nyní musíte zkontrolovat, zda je zadaná hodnota (ve sloupci E) ve sloupci A, a vrátit odpovídající hodnotu s formátováním ve sloupci C. K dosažení toho prosím postupujte následovně.
1. V listu obsahuje hodnotu, kterou chcete vlookup, klepněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
2. V otvoru Microsoft Visual Basic pro aplikace zkopírujte níže uvedený kód VBA do okna Kód.
Kód VBA 1: Vlookup a návratová hodnota s formátováním
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. Pak klikněte na tlačítko Vložit > Modula zkopírujte níže uvedený kód VBA 2 do okna modulu.
Kód VBA 2: Vlookup a návratová hodnota s formátováním
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. cvaknutí Tools > Reference. Poté zkontrolujte Microsoft Script Runtime pole v Reference - VBAProject dialogové okno. Viz snímek obrazovky:
5. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.
6. Vyberte prázdnou buňku sousedící s vyhledanou hodnotou a poté zadejte vzorec =LookupKeepFormat(E2,$A$1:$C$8,3) do Formula Bar, a poté stiskněte tlačítko vstoupit klíč.
Poznámka: Ve vzorci E2 obsahuje hodnotu, kterou vyhledáte, $ A $ 1: $ C $ 8 je rozsah tabulky a číslo 3 znamená, že odpovídající hodnota, kterou vrátíte, se najde ve třetím sloupci tabulky. Změňte je prosím podle potřeby.
7. Pokračujte ve výběru první buňky výsledků a poté přetáhněte rukojeť Vyplnit dolů, aby se zobrazily všechny výsledky spolu s jejich formátováním, jak je uvedeno níže.
Související články:
- Jak vlookup a vrátit barvu pozadí spolu s vyhledávací hodnotou v aplikaci Excel?
- Jak vlookup a vrátit formát data namísto čísla v aplikaci Excel?
- Jak používat vlookup a součet v aplikaci Excel?
- Jak vlookup vrátit hodnotu v sousední nebo další buňce v aplikaci Excel?
- Jak vlookup hodnotu a vrátit true nebo false / ano nebo ne v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
