Como vlookup e retornar o valor correspondente com o comentário da célula?
Quando você aplica a função Vlookup para retornar o valor correspondente, ela apenas extrairá o valor sem a formatação, como cor de preenchimento, fonte ou comentário etc. Mas, às vezes, você pode precisar vlookup e retornar o valor correspondido incluindo o comentário também para obter o seguinte resultado da captura de tela. Como você resolveria esse trabalho no Excel?
Vlookup e retorna o valor correspondente com o comentário da célula usando o código VBA
Vlookup e retorna o valor correspondente com o comentário da célula usando o código VBA
O código VBA abaixo pode ajudá-lo a visualizar e retornar o valor correspondente com seu comentário, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie e cole o seguinte código no Módulo Janela.
Código VBA: Vlookup e valor correspondente de retorno com comentário de 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. Em seguida, salve o código e feche a janela de código, insira esta fórmula: = vlookupcomment (H2, A2: C10,3, FALSE) em uma célula em branco para localizar o resultado e pressione Entrar , o valor correspondente, bem como o comentário, são retornados de uma vez, consulte a captura de tela:
Note: Na fórmula acima, H2 é o valor de pesquisa que você deseja que retorne seu valor correspondente, A2: C10 é a tabela de dados que você deseja usar, o número 3 é o número da coluna que contém o valor correspondente que você deseja retornar.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!