Wie kann ich einen übereinstimmenden Wert mit einem Zellenkommentar anzeigen und zurückgeben?
Wenn Sie die Vlookup-Funktion anwenden, um den übereinstimmenden Wert zurückzugeben, wird der Wert nur ohne Formatierung extrahiert, z. B. Füllfarbe, Schriftart oder Kommentar usw. Manchmal müssen Sie jedoch auch den übereinstimmenden Wert einschließlich Kommentar anzeigen und zurückgeben um das folgende Screenshot-Ergebnis zu erhalten. Wie können Sie diesen Job in Excel lösen?
Vlookup und Rückgabe des übereinstimmenden Werts mit dem Zellenkommentar mithilfe von VBA-Code
Vlookup und Rückgabe des übereinstimmenden Werts mit dem Zellenkommentar mithilfe von VBA-Code
Der folgende VBA-Code kann Ihnen dabei helfen, den übereinstimmenden Wert mit seinem Kommentar zu suchen und zurückzugeben. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster.
VBA-Code: Vlookup und Rückgabe des übereinstimmenden Werts mit Zellkommentar:
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. Speichern Sie dann den Code und schließen Sie das Codefenster. Geben Sie die folgende Formel ein: = vlookupcomment (H2, A2: C10,3, FALSE) in eine leere Zelle, um das Ergebnis zu finden, und drücken Sie Enter Schlüssel, der übereinstimmende Wert sowie der Kommentar werden sofort zurückgegeben, siehe Screenshot:
Note: In der obigen Formel H2 ist der Suchwert, für den Sie den entsprechenden Wert zurückgeben möchten. A2: C10 ist die Datentabelle, die Sie verwenden möchten, die Nummer 3 ist die Spaltennummer, die den übereinstimmenden Wert enthält, den Sie zurückgeben möchten.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!