Hvordan slettes og returneres matchende værdi med cellekommentar?
Når du anvender Vlookup-funktionen til at returnere den matchende værdi, udtrækker den kun værdien uden formatering, såsom fyldfarve, skrifttype eller kommentar osv. Men nogle gange er du muligvis nødt til at slå op og returnere den matchede værdi inklusive kommentar også for at få følgende skærmbilledresultat. Hvordan kunne du løse dette job i Excel?
Vlookup og returner matchende værdi med cellekommentar ved hjælp af VBA-kode
Vlookup og returner matchende værdi med cellekommentar ved hjælp af VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at vlookup og returnere matchet værdi med sin kommentar, gør som følger:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, kopier og indsæt derefter følgende kode i Moduler Vindue.
VBA-kode: Vlookup og returner matchende værdi med cellekommentar:
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. Og gem derefter koden, og luk kodevinduet, indtast denne formel: = vlookupkommentar (H2, A2: C10,3, FALSE) ind i en tom celle for at finde resultatet, og tryk på Indtast nøgle, den matchede værdi såvel som kommentaren returneres med det samme, se skærmbillede:
Bemærk: I ovenstående formel H2 er den opslagsværdi, du vil returnere dens tilsvarende værdi, A2: C10 er den datatabel, du vil bruge, nummeret 3 er kolonnenummeret, der indeholder den matchede værdi, du vil returnere.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!