Como fazer a pesquisa vertical e retornar o valor correspondente com o comentário da célula?

Ao aplicar a função Pesquisa Vertical para retornar o valor correspondente, ela extrairá apenas o valor sem a formatação, como cor de preenchimento, fonte ou comentário, etc. No entanto, às vezes, pode ser necessário pesquisar verticalmente e retornar o valor correspondente incluindo o comentário também, para obter o resultado mostrado na captura de tela a seguir. Como você poderia resolver essa tarefa no Excel?

Pesquisa vertical e retorno do valor correspondente com o comentário da célula usando código VBA

Pesquisa vertical e retorno do valor correspondente com o comentário da célula usando código VBA

O código VBA abaixo pode ajudá-lo a fazer a pesquisa vertical e retornar o valor correspondente com seu comentário; por favor, siga as instruções abaixo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, depois copie e cole o seguinte código na Janela do Módulo.

Código VBA: Pesquisa vertical e retorno do valor correspondente com o comentário da célula:

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. Depois, salve o código e feche a janela do código, insira esta fórmula: =vlookupcomment(H2,A2:C10,3,FALSO) em uma célula em branco para localizar o resultado e pressione a tecla Enter; o valor correspondente, assim como o comentário, será retornado imediatamente, veja a captura de tela:

Observação: Na fórmula acima, H2 é o valor de pesquisa para o qual você deseja retornar o valor correspondente, A2:C10 é a tabela de dados que você deseja usar, e o número 3 é o número da coluna que contém o valor correspondente que você deseja retornar.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!