Come eseguire una ricerca verticale e restituire il valore corrispondente con il commento della cella?

Quando si utilizza la funzione Vlookup per restituire il valore corrispondente, verrà estratto solo il valore senza la formattazione, come il colore di riempimento, il carattere o il commento, ecc. Tuttavia, a volte potrebbe essere necessario eseguire una ricerca verticale e restituire il valore corrispondente comprensivo del commento per ottenere il risultato mostrato nello screenshot seguente. Come si potrebbe risolvere questa operazione in Excel?

Eseguire una ricerca verticale e restituire il valore corrispondente con il commento della cella utilizzando il codice VBA

Eseguire una ricerca verticale e restituire il valore corrispondente con il commento della cella utilizzando il codice VBA

Il seguente codice VBA può aiutarti a eseguire una ricerca verticale e restituire il valore corrispondente insieme al suo commento; procedi nel modo seguente:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, quindi copia e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Esegui una ricerca verticale e restituisci il valore corrispondente con il commento della cella:

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. Successivamente, salva il codice e chiudi la finestra del codice, inserisci questa formula: =vlookupcomment(H2,A2:C10,3,FALSE) in una cella vuota per individuare il risultato, e premi il tasto Invio; il valore corrispondente insieme al commento verrà restituito immediatamente, vedi screenshot:

Nota: Nella formula sopra, H2 è il valore da cercare per il quale si desidera restituire il valore corrispondente, A2:C10 è la tabella dati che si desidera utilizzare, il numero 3 è il numero della colonna che contiene il valore corrispondente che si desidera restituire.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!