Cum să căutați și să returnați valoarea potrivită cu comentariul celulei?
Când aplicați funcția Vlookup pentru a returna valoarea potrivită, aceasta va extrage valoarea doar fără formatare, cum ar fi culoarea de umplere, fontul sau comentariul etc. pentru a obține următorul rezultat al capturii de ecran. Cum ați putea rezolva acest job în Excel?
Vlookup și returnează valoarea potrivită cu comentariul celulei utilizând codul VBA
Vlookup și returnează valoarea potrivită cu comentariul celulei utilizând codul VBA
Codul VBA de mai jos vă poate ajuta să vizualizați și să returnați valoarea potrivită cu comentariul său, vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Module, apoi copiați și lipiți următorul cod în Module Fereastră.
Cod VBA: Vlookup și returnează valoarea de potrivire cu comentariul celulei:
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. Și apoi salvați codul și închideți fereastra de cod, introduceți această formulă: = vlookupcomment (H2, A2: C10,3, FALSE) într-o celulă goală pentru a localiza rezultatul și apăsați Intrați cheie, valoarea potrivită, precum și comentariul sunt returnate simultan, consultați captura de ecran:
notițe: În formula de mai sus, H2 este valoarea de căutare pe care doriți să îi returnați valoarea corespunzătoare, A2: C10 este tabelul de date pe care doriți să îl utilizați, numărul 3 este numărul coloanei care conține valoarea potrivită pe care doriți să o returnați.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!