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:
Pozor: 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.

Odemkněte kouzlo Excelu s Kutools AI
- Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
- Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
- Kódování VBA: Napište a implementujte kód VBA bez námahy.
- Výklad vzorce: Snadno porozumíte složitým vzorcům.
- Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.
Nejlepší nástroje pro produktivitu v kanceláři
Vylepšete si své excelové dovednosti s Kutools for Excela 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 výrazně vám usnadňuje 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!