Jak vlookup a vrátit odpovídající hodnotu s komentářem buňky?
Když použijete funkci Vlookup k vrácení odpovídající hodnoty, extrahuje pouze hodnotu bez formátování, jako je barva výplně, písmo nebo komentář atd. Někdy však možná budete muset vlookup a vrátit odpovídající hodnotu včetně komentáře získat následující výsledek obrazovky. Jak byste mohli vyřešit tuto práci v aplikaci Excel?
Vlookup a návrat odpovídající hodnoty s komentářem buňky pomocí kódu VBA
Vlookup a návrat odpovídající hodnoty s komentářem buňky pomocí kódu VBA
Níže uvedený kód VBA vám může pomoci vlookup a vrátit odpovídající hodnotu s komentářem, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modul, poté zkopírujte a vložte následující kód do souboru Modul Okno.
Kód VBA: Vlookup a návrat odpovídající hodnoty s komentářem buňky:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. A poté uložte kód a zavřete okno s kódem, zadejte tento vzorec: = vlookupcomment (H2, A2: C10,3, FALSE) do prázdné buňky vyhledejte výsledek a stiskněte vstoupit klíč, shodná hodnota i komentář se vrátí najednou, viz screenshot:
Poznámka: Ve výše uvedeném vzorci, H2 je vyhledávací hodnota, kterou chcete vrátit odpovídající hodnotu, A2: C10 je datová tabulka, kterou chcete použít, číslo 3 je číslo sloupce, které obsahuje odpovídající hodnotu, kterou chcete vrátit.
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než
300výkonné funkce. Podporuje Office/Excel2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce30-denní zkušební verze zdarma. 60denní záruka vrácení peněz.
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 tím
50%a každý den vám sníží stovky kliknutí myší!
