Hoe een overeenkomende waarde opvullen en retourneren met celopmerking?
Wanneer u de functie Vlookup toepast om de overeenkomende waarde te retourneren, wordt de waarde alleen ge毛xtraheerd zonder de opmaak, zoals vulkleur, lettertype of opmerking enz. Maar soms moet u de overeenkomende waarde ook opvullen en retourneren, inclusief opmerking om het volgende screenshot-resultaat te krijgen. Hoe zou je deze klus in Excel kunnen oplossen?
Vlookup en retourneer overeenkomende waarde met celcommentaar met behulp van VBA-code
Vlookup en retourneer overeenkomende waarde met celcommentaar met behulp van VBA-code
De onderstaande VBA-code kan u helpen bij het opvullen en retourneren van overeenkomende waarde met de opmerking, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Module, kopieer en plak vervolgens de volgende code in het Module Venster.
VBA-code: Vlookup en retourneer overeenkomende waarde met celcommentaar:
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. En sla vervolgens de code op en sluit het codevenster, voer deze formule in: = vlookupcomment (H2, A2: C10,3, FALSE) in een lege cel om het resultaat te zoeken, en druk op Enter key, de overeenkomende waarde en de opmerking worden in 茅茅n keer geretourneerd, zie screenshot:
Note: In de bovenstaande formule, H2 is de opzoekwaarde die u de bijbehorende waarde wilt retourneren, A2: C10 is de gegevenstabel die u wilt gebruiken, het nummer 3 is het kolomnummer dat de overeenkomende waarde bevat die u wilt retourneren.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!