20+ Exemplos de VLOOKUP no Excel para Utilizadores Iniciados e Avançados

A função VLOOKUP é uma das mais populares no Excel. Este tutorial mostra como utilizá-la, passo a passo, com dezenas de exemplos básicos e avançados.

Introdução à função VLOOKUP – Sintaxe e Argumentos

No Excel, a função VLOOKUP é uma ferramenta poderosa para a maioria dos utilizadores, pois permite procurar um valor na coluna mais à esquerda de um intervalo de dados e devolver o valor correspondente na mesma linha de uma coluna especificada, conforme ilustrado na imagem seguinte.

Sintaxe da função VLOOKUP:

Argumentos:

Notas sobre a função:

Exemplos básicos de VLOOKUP

Nesta secção, exploramos algumas das fórmulas VLOOKUP mais utilizadas.

2,1 VLOOKUP com correspondência exata e aproximada

2,1.1 Realizar um VLOOKUP com correspondência exata

Normalmente, para obter uma correspondência exata com a função VLOOKUP, basta utilizar FALSO como último argumento.

Por exemplo, para obter as respetivas classificações em Matemática com base em números de ID específicos, proceda da seguinte forma:

Copie e cole a fórmula abaixo numa célula vazia (aqui, selecionei G2) e prima a tecla «Enter» para obter o resultado:

=VLOOKUP(F2,$A$2:$D$7,3,FALSE)

Como funciona a fórmula VLOOKUP?

Primeiro, localize o ID – C1005 na coluna mais à esquerda da tabela. Percorra de cima para baixo e encontre o valor na célula A6.

Assim que encontrar o valor, vire à direita até à terceira coluna e extraia o valor nela contido.

Assim, obterá o resultado conforme mostrado na imagem seguinte:

2,1.2 Fazer uma correspondência aproximada com VLOOKUP

A correspondência aproximada é útil quando o valor de pesquisa se situa entre valores de um intervalo. Caso não seja encontrada uma correspondência exata, o VLOOKUP aproximado devolve o maior valor inferior ao valor de pesquisa.

Por exemplo, se tiver a seguinte gama de dados e as encomendas especificadas não estiverem na coluna Encomendas, como obter o respetivo desconto mais próximo na coluna B?

Passo 1: Aplique a fórmula VLOOKUP e preencha-a nas outras células

Copie e cole a seguinte fórmula na célula onde deseja exibir o resultado e, em seguida, arraste a alça de preenchimento para baixo para aplicar a fórmula às demais células.

=VLOOKUP(D2,$A$2:$B$9,2,TRUE)

Resultado:

Agora, obterá correspondências aproximadas com base nos valores indicados; veja a imagem:

2,2 Fazer um VLOOKUP Diferenciar Maiúsculas de Minúsculas no Excel

Por predefinição, a função VLOOKUP realiza uma procura insensível a maiúsculas e minúsculas, tratando letras maiúsculas e minúsculas como idênticas. Contudo, em determinadas situações, poderá precisar de efetuar uma procura sensível a maiúsculas e minúsculas no Excel — algo que a função VLOOKUP padrão não permite. Nesses casos, pode recorrer a alternativas como as funções ÍNDICE e CORRESP combinadas com EXATO, ou ainda às funções PROCURAR e EXATO.

Por exemplo, tenho o seguinte intervalo de dados, cuja coluna ID contém cadeias de texto em maiúsculas ou em minúsculas; agora, quero obter a nota correspondente de Matemática do número de ID indicado.

Passo 1: Aplique qualquer uma das fórmulas e preencha-a nas outras células

Copie e cole qualquer uma das fórmulas seguintes numa célula vazia onde pretenda obter o resultado. Depois, selecione a célula com a fórmula e arraste a alça de preenchimento para baixo até às células em que deseja aplicar essa fórmula.

Fórmula 1: Após colar a fórmula, prima as teclas «Ctrl» + «Shift» + «Enter».

=INDEX($C$2:$C$10,MATCH(TRUE,EXACT(F2,$A$2:$A$10),0))

Fórmula 2: Após colar a fórmula, prima Enter.

=LOOKUP(2,1/EXACT(F2,$A$2:$A$10),$C$2:$C$10)

Resultado:

Obterá assim os resultados corretos de que precisa. Veja a imagem:

2,3 Procurar valores com VLOOKUP da direita para a esquerda no Excel

A função VLOOKUP procura sempre um valor na coluna mais à esquerda de um intervalo de dados e devolve o valor correspondente de uma coluna à direita. Pretende realizar uma procura VLOOKUP inversa — ou seja, procurar um valor específico na coluna da direita e obter o respetivo valor correspondente na coluna mais à esquerda, conforme ilustrado na imagem seguinte?

Clique para conhecer os detalhes passo a passo sobre esta tarefa…

2,4 Procurar com VLOOKUP o segundo, o enésimo ou o último valor correspondente no Excel

Normalmente, ao utilizar a função VLOOKUP, se forem encontrados vários valores correspondentes, apenas o primeiro registo é devolvido. Nesta secção, explico como obter o segundo, o enésimo ou o último valor correspondente num intervalo de dados.

2,4.1 Procurar com VLOOKUP e devolver o 2.º ou o enésimo valor correspondente

Suponha que tem uma lista de nomes na coluna A e o curso de formação adquirido na coluna B. Pretende agora identificar o 2.º ou o enésimo curso de formação comprado por um determinado cliente. Veja a imagem:

Neste caso, a função VLOOKUP poderá não resolver diretamente esta tarefa, mas você pode usar a função ÍNDICE como uma alternativa eficaz.

Passo 1: Aplique e preencha a fórmula nas outras células

Por exemplo, para obter o segundo valor correspondente com base nos critérios indicados, introduza a seguinte fórmula numa célula vazia e prima simultaneamente as teclas «Ctrl» + «Shift» + «Enter» para obter o primeiro resultado. De seguida, selecione a célula com a fórmula e arraste a alça de preenchimento para baixo até às células onde pretende aplicar esta fórmula.

=INDEX($B$2:$B$14,SMALL(IF(E2=$A$2:$A$14,ROW($A$2:$A$14)-ROW($A$2)+1),2))

Resultado:

Agora, todos os segundos valores correspondentes, com base nos nomes indicados, são apresentados de uma só vez.

2,4.2 Procurar com VLOOKUP e devolver o último valor correspondente

Se pretender utilizar o VLOOKUP para obter o último valor correspondente, conforme mostrado na imagem seguinte, este Procurar com VLOOKUP e Devolver o Último Valor Correspondente tutorial ajudá-lo-á a obter esse valor em pormenor.

2,5 Procurar com VLOOKUP valores correspondentes entre dois valores ou datas

Por vezes, poderá querer procurar um intervalo de valores entre dois números ou datas e obter os respetivos resultados, tal como ilustrado na imagem seguinte. Neste caso, pode utilizar a função PROCURAR em vez da função VLOOKUP, desde que a tabela esteja ordenada.

2,5.1 Procurar com VLOOKUP valores correspondentes entre dois valores ou datas com fórmula

Passo 1: Organize os dados e aplique a seguinte fórmula

A sua tabela original deverá ser um intervalo de dados ordenado. Em seguida, copie ou introduza a seguinte fórmula numa célula vazia e arraste a alça de preenchimento para aplicá-la às restantes células necessárias.

=LOOKUP(2,1/($A$2:$A$6<=E2)/($B$2:$B$6>=E2),$C$2:$C$6)

Resultado:

E agora obterá todos os registos correspondentes com base no valor indicado; veja a imagem:

2,5.2 Procurar com VLOOKUP valores correspondentes entre dois valores ou datas com uma funcionalidade prática

Se achar complicado memorizar e compreender a fórmula acima, apresentamos-lhe uma solução simples: o «Kutools para Excel». Com a sua funcionalidade «Encontrar dados entre dois valores», permite-lhe obter facilmente o item correspondente com base num valor ou data específico situado entre dois valores ou datas.

1. Clique em «Kutools» > «Super PROC» > «Encontrar dados entre dois valores» para ativar esta funcionalidade.
2. Depois, defina as operações na caixa de diálogo de acordo com os seus dados.

2,6 Utilizar caracteres universais para correspondências parciais na função VLOOKUP

No Excel, os caracteres universais podem ser utilizados na função VLOOKUP, permitindo-lhe realizar correspondências parciais com base num valor de procura. Por exemplo, pode usar o VLOOKUP para obter um valor correspondente de uma tabela utilizando apenas parte do valor de procura.

Imagine que tem um conjunto de dados como o apresentado na imagem seguinte e pretende extrair a pontuação com base apenas no Primeiro Nome (e não no Nome Completo). Como pode resolver esta tarefa no Excel?

Passo 1: Aplique a fórmula e preencha-a nas outras células

Copie ou introduza a seguinte fórmula numa célula vazia e, em seguida, arraste a alça de preenchimento para preencher esta fórmula nas outras células necessárias:

=VLOOKUP(E2&"*", $A$2:$C$11, 3, FALSE)

Resultado:

E todas as pontuações correspondentes foram devolvidas, conforme mostrado na imagem seguinte:

2,7 Procurar com VLOOKUP valores de outra folha de cálculo

Normalmente, terá de trabalhar com mais do que uma folha de cálculo; a função VLOOKUP pode procurar dados noutra folha exatamente da mesma forma que numa única folha.

Por exemplo, imagine que tem duas folhas de cálculo, como ilustrado na imagem seguinte. Para localizar e obter os dados correspondentes da folha especificada, siga os passos abaixo:

Passo 1: Aplique a fórmula e preencha-a nas outras células

Introduza ou copie a fórmula seguinte numa célula vazia onde pretenda obter os itens correspondentes e, em seguida, arraste a alça de preenchimento para baixo até às células onde deseja aplicar esta fórmula.

=VLOOKUP(A2,'Data sheet'!$A$2:$C$15,3,0)

Resultado:

Obterá os resultados correspondentes de que necessita; veja a imagem:

2,8 Procurar com VLOOKUP valores de outro livro

Esta secção explica como procurar e obter valores correspondentes de um livro diferente utilizando a função VLOOKUP.

Por exemplo, imagine que tem dois livros. O primeiro contém uma lista de produtos e os respetivos custos. No segundo livro, pretende obter o custo correspondente a cada produto, tal como ilustrado na imagem seguinte.

Passo 1: Aplique a fórmula

Abra os dois livros que pretende utilizar e, de seguida, aplique a seguinte fórmula na célula onde deseja obter o resultado no segundo livro. Depois, arraste-a para copiar a fórmula nas restantes células necessárias.

=VLOOKUP(B2,'[Product list.xlsx]Sheet1'!$A$2:$B$6,2,0)

Resultado:

2,9 Devolver célula vazia ou texto específico em vez de 0 ou erro #N/D

Normalmente, ao utilizar a função VLOOKUP para devolver um valor correspondente, se a célula correspondente estiver vazia, é devolvido 0. E se o valor correspondente não for encontrado, obtém-se o erro #N/D, conforme mostrado na imagem seguinte. Se pretender apresentar uma célula vazia ou um valor específico em vez de 0 ou #N/D, este VLOOKUP para Devolver Célula Vazia ou Valor Específico em Vez de 0 ou N/Dtutorial poderá ser-lhe útil.

Exemplos avançados de VLOOKUP

3,1 Procura bidimensional (VLOOKUP em linha e coluna)

Por vezes, poderá precisar de realizar uma pesquisa bidimensional — ou seja, procurar um valor simultaneamente numa linha e numa coluna. Por exemplo, com o seguinte intervalo de dados, pode querer obter o valor correspondente a um determinado produto num trimestre específico. Esta secção apresenta uma fórmula para resolver esta tarefa no Excel.

No Excel, pode utilizar uma combinação das funções VLOOKUP e CORRESP para realizar uma pesquisa bidirecional.

Aplique a seguinte fórmula numa célula vazia e prima «Enter» para obter o resultado.

=VLOOKUP(G2, $A$2:$E$7, MATCH(H1, $A$2:$E$2, 0), FALSE)

3,2 Valor correspondente com VLOOKUP com base em dois ou mais critérios

É fácil encontrar um valor correspondente com base num único critério, mas e se tiver dois ou mais critérios? O que pode fazer?

3,2.1 Valor correspondente com VLOOKUP com base em dois ou mais critérios com fórmulas

Neste caso, as funções PROCURAR, CORRESP e ÍNDICE no Excel permitem-lhe resolver esta tarefa de forma rápida e fácil.

Por exemplo, tenho a seguinte tabela de dados e pretendo obter o preço correspondente com base num produto e tamanho específicos; as fórmulas abaixo poderão ajudá-lo.

Passo 1: Aplique qualquer uma das fórmulas abaixo

Fórmula 1: Introduza a fórmula seguinte e prima «Enter».

=LOOKUP(2,1/($A$2:$A$12=G1)/($B$2:$B$12=G2),($D$2:$D$12))

Fórmula 2: Introduza a seguinte fórmula e prima «Ctrl» + «Shift» + «Enter».

=INDEX($D$2:$D$12,MATCH(1,($A$2:$A$12=G1)*($B$2:$B$12=G2),0))

Resultado:

3,2.2 Valor correspondente com VLOOKUP com base em dois ou mais critérios com Kutools para Excel

Memorizar as fórmulas complexas acima pode ser desafiador, especialmente quando precisam de ser aplicadas repetidamente — o que pode comprometer a sua eficiência. Felizmente, o **Kutools para Excel** inclui a funcionalidade **“Pesquisa – Pesquisa de várias condições”**, que lhe permite obter o resultado correspondente com base num ou mais critérios em apenas alguns cliques.

1. Clique em «Kutools» > «Super PROC» > «Pesquisa – Pesquisa de várias condições» para ativar esta funcionalidade.
2. Depois, defina as operações na caixa de diálogo com base nos seus dados.

3,3 VLOOKUP para devolver vários valores com um ou mais critérios

No Excel, a função VLOOKUP procura um valor e devolve apenas a primeira correspondência encontrada, mesmo que existam múltiplas correspondências. Por vezes, poderá precisar de obter todos os valores correspondentes — dispostos numa linha, numa coluna ou reunidos numa única célula. Esta secção explica como devolver múltiplos valores correspondentes com uma ou mais condições num livro.

3,3.1 VLOOKUP de todos os valores correspondentes com base numa ou mais condições horizontalmente

Imagine que tem uma tabela de dados com país, cidade e nomes no intervalo A1:C14 e pretende apresentar todos os nomes associados aos «EUA» dispostos horizontalmente, tal como ilustrado na imagem seguinte. Para resolver esta tarefa,clique aqui para obter o resultado passo a passo.

3,3.2 VLOOKUP de todos os valores correspondentes com base numa ou mais condições verticalmente

Se precisar de usar o VLOOKUP para devolver todos os valores correspondentes verticalmente com base em critérios específicos, conforme mostrado na imagem seguinte, clique aqui para obter a solução detalhada.

3,3.3 VLOOKUP de todos os valores correspondentes com base numa ou mais condições numa única célula

Se pretender utilizar o VLOOKUP para devolver vários valores correspondentes numa única célula com um separador especificado, a nova função TEXTOJUNTAR pode ajudá-lo a resolver esta tarefa de forma rápida e fácil.

3,4 VLOOKUP para devolver Linha inteira de uma célula correspondente

Nesta secção, explico como recuperar a linha inteira de um valor correspondente utilizando a função VLOOKUP.

Passo 1: Aplique a seguinte fórmula

Copie ou introduza a fórmula seguinte numa célula vazia onde pretende apresentar o resultado e prima Enter para obter o primeiro valor. Em seguida, arraste a alça de preenchimento para a direita até que todos os dados da linha sejam exibidos.

=VLOOKUP($F$2,$A$1:$D$12,COLUMN(A1),FALSE)

Resultado:

Agora, pode ver que os dados da linha inteira foram devolvidos. Veja a imagem:

3,5 VLOOKUP aninhado no Excel

Por vezes, poderá precisar de procurar valores relacionados em várias tabelas. Nesse caso, pode aninhar várias funções VLOOKUP para obter o valor pretendido.

Por exemplo, tenho uma folha de cálculo com duas tabelas separadas. A primeira lista todos os nomes dos produtos e os respetivos vendedores. A segunda lista as vendas totais de cada vendedor. Se quiser encontrar as vendas de cada produto, conforme mostrado na imagem seguinte, pode aninhar a função VLOOKUP para concluir esta tarefa.

A fórmula genérica para a função VLOOKUP aninhada é:

Passo 1: Aplique e preencha a seguinte fórmula

Aplique a seguinte fórmula numa célula vazia e, depois, arraste a alça de preenchimento até às células onde deseja aplicá-la.

=VLOOKUP(VLOOKUP(G3,$A$3:$B$7,2,0),$D$3:$E$7,2,0)

Resultado:

Agora, obterá o resultado conforme mostrado na imagem seguinte:

3,6 Verificar se um valor existe com base numa lista de dados noutra coluna

A função VLOOKUP também pode ajudá-lo a verificar se determinados valores existem com base numa lista de dados noutra coluna. Por exemplo, se quiser procurar os nomes na coluna C e obter apenas «Sim» ou «Não», consoante o nome seja encontrado ou não na coluna A, tal como ilustrado na imagem seguinte.

Passo 1: Aplique a seguinte fórmula

Aplique a seguinte fórmula numa célula vazia e, depois, arraste a alça de preenchimento até às células onde deseja aplicar esta fórmula.

=IF(ISNA(VLOOKUP(C2,$A$2:$A$10,1,FALSE)), "No", "Yes")

Resultado:

E obterá o resultado pretendido, veja a imagem:

3,7 VLOOKUP e soma de todos os valores correspondentes em linhas ou colunas

Ao trabalhar com dados numéricos, poderá precisar de extrair valores correspondentes de uma tabela e somar números em várias colunas ou linhas. Esta secção apresenta fórmulas que o ajudam a concluir esta tarefa com facilidade.

3,7.1 VLOOKUP e soma de todos os valores correspondentes numa linha ou em múltiplas linhas

Imagine que tem uma lista de produtos com vendas relativas a vários meses, como ilustrado na imagem seguinte. Pretende agora somar todas as encomendas de todos os meses com base nos produtos indicados.

Passo 1: Aplique a seguinte fórmula

Copie ou introduza a seguinte fórmula numa célula vazia e, em seguida, prima simultaneamente as teclas «Ctrl» + «Shift» + «Enter» para obter o primeiro resultado. Depois, arraste a alça de preenchimento para copiar a fórmula para outras células, conforme necessário.

=SUM(VLOOKUP(H2, $A$2:$F$9, {2,3,4,5,6}, FALSE))

Resultado:

Todos os valores numa linha do primeiro valor correspondente foram somados, veja a imagem:

3,7.2 VLOOKUP e soma de todos os valores correspondentes numa coluna ou em múltiplas colunas

Se pretender somar o valor total de meses específicos, conforme ilustrado na imagem seguinte, a função VLOOKUP por si só poderá não ser suficiente. Nesse caso, combine as funções SOMA, ÍNDICE e CORRESP para criar uma fórmula eficaz.

Passo 1: Aplique a seguinte fórmula

Aplique a fórmula seguinte numa célula vazia e, depois, arraste a alça de preenchimento para copiá-la para outras células.

=SUM(INDEX($B$2:$F$9,0,MATCH(H2,$B$1:$F$1,0)))

Resultado:

Agora, os primeiros valores correspondentes com base no mês específico numa coluna foram somados, veja a imagem:

3,7.3 VLOOKUP e soma do primeiro valor correspondente ou de todos os valores correspondentes com Kutools para Excel

As fórmulas anteriores podem ser difíceis de memorizar. Nesse caso, recomendamos uma funcionalidade poderosa: «Procurar e Somar» do «Kutools para Excel». Com ela, pode utilizar o VLOOKUP para somar o primeiro valor correspondente ou todos os valores correspondentes em linhas ou colunas da forma mais simples possível.

1. Clique em «Kutools» > «Super PROC» > «Procurar e Somar» para ativar esta funcionalidade.
2. Depois, defina as operações na caixa de diálogo conforme as suas necessidades.

3,7.4 VLOOKUP e soma de todos os valores correspondentes tanto em linhas como em colunas

Se pretender somar valores correspondendo simultaneamente a uma coluna e a uma linha — por exemplo, obter o valor total do produto «Camisola» no mês de «Março», conforme ilustrado na imagem seguinte.

Neste caso, pode utilizar a função SOMARPRODUTO para concluir esta tarefa com eficiência.

Aplique a seguinte fórmula numa célula e, em seguida, prima a tecla «Enter» para obter o resultado, veja a imagem:

=SUMPRODUCT(($B$2:$F$9)*($B$1:$F$1=I2)*($A$2:$A$9=H2))

3,8 VLOOKUP para fundir duas tabelas com base em Coluna Chave

No seu trabalho diário, ao analisar dados, poderá precisar de reunir toda a informação relevante numa única tabela com base numa ou mais colunas-chave. Para concluir esta tarefa, pode utilizar as funções ÍNDICE e CORRESP em vez da função VLOOKUP.

3,8.1 VLOOKUP para fundir duas tabelas com base num Coluna Chave

Por exemplo, tem duas tabelas: a primeira contém dados de produtos e respetivos nomes, e a segunda inclui dados de produtos e encomendas. Pretende agora combinar estas duas tabelas numa única, associando-as pela coluna comum de produtos.

Passo 1: Aplique a seguinte fórmula

Aplique a seguinte fórmula numa célula vazia e, em seguida, arraste a alça de preenchimento até às células onde pretende aplicá-la.

=INDEX($F$2:$F$8, MATCH($A2, $E$2:$E$8, 0))

Resultado:

Agora, obterá uma tabela fundida com a coluna de encomendas associada à primeira tabela, com base nos dados da Coluna Chave.

3,8.2 VLOOKUP para fundir duas tabelas com base em múltiplos Coluna Chave

Se as duas tabelas que pretende associar tiverem várias colunas-chave, siga os passos abaixo para fundi-las com base nessas colunas comuns.

A fórmula genérica é:

Passo 1: Aplique a seguinte fórmula

Insira a fórmula abaixo numa célula vazia onde deseja exibir o resultado e, em seguida, prima simultaneamente as teclas «Ctrl» + «Shift» + «Enter» para obter o primeiro valor correspondente. Veja a imagem:

=INDEX($E$2:$G$9, MATCH(1, ($A2=$E$2:$E$9) * ($B2=$F$2:$F$9), 0), 3)

Passo 2: Preencha a fórmula nas outras células

Em seguida, selecione a primeira célula com a fórmula e arraste a alça de preenchimento para copiar esta fórmula para outras células conforme necessário:

3,9 Correspondência de valores VLOOKUP em várias folhas de cálculo

Já precisou de realizar um VLOOKUP em várias folhas de cálculo no Excel? Por exemplo, se tiver três folhas com intervalos e quiser obter valores específicos com base em critérios dessas folhas, siga o tutorial passo a passo Correspondência de Valores VLOOKUP em Várias Folhas de Cálculo para concluir esta tarefa.

Os valores correspondentes do VLOOKUP mantêm a formatação da célula

Ao procurar valores correspondentes, a formatação original, como Cor da Fonte, Cor de Fundo, formato dos dados, etc., não será mantida. Para preservar a formatação da célula ou dos dados, esta secção apresentará alguns truques para resolver estas situações.

4,1 Correspondência VLOOKUP com manutenção da cor da célula e formatação do tipo de letra

Como todos sabemos, a função VLOOKUP normal apenas consegue obter o valor correspondente de outro intervalo de dados. No entanto, poderá surgir a necessidade de recuperar esse valor juntamente com a formatação da célula original — como cor de preenchimento, cor da fonte e estilo da fonte. Nesta secção, explicamos como obter valores correspondentes preservando a formatação da origem no Excel.

Siga os passos abaixo para procurar e devolver o respetivo valor juntamente com a formatação da célula:

Passo 1: Copie o código 1 para o Módulo de Código da Folha

1. Na folha de cálculo que contém os dados que pretende procurar com o VLOOKUP, clique com o botão direito no separador da folha e selecione «Ver Código» no menu de contexto. Veja a imagem:
   
2. Na janela «Microsoft Visual Basic for Applications» aberta, copie o código VBA abaixo para a janela de código.
3. Código VBA 1: VLOOKUP para obter a formatação da célula juntamente com o valor procurado

4. Sub Worksheet_Change(ByVal Target As Range)
   'Updateby Extendoffice
       Dim I As Long
       Dim xKeys As Long
       Dim xDicStr As String
       On Error Resume Next
       Application.ScreenUpdating = False
       xKeys = UBound(xDic.Keys)
       If xKeys >= 0 Then
           For I = 0 To UBound(xDic.Keys)
               xDicStr = xDic.Items(I)
               If xDicStr <> "" Then
                   Range(xDic.Keys(I)).Interior.Color = _
                   Range(xDic.Items(I)).Interior.Color
                   Range(xDic.Keys(I)).Font.FontStyle = _
                   Range(xDic.Items(I)).Font.FontStyle
                   Range(xDic.Keys(I)).Font.Size = _
                   Range(xDic.Items(I)).Font.Size
                   Range(xDic.Keys(I)).Font.Color = _
                   Range(xDic.Items(I)).Font.Color
                   Range(xDic.Keys(I)).Font.Name = _
                   Range(xDic.Items(I)).Font.Name
                   Range(xDic.Keys(I)).Font.Underline = _
                   Range(xDic.Items(I)).Font.Underline
               Else
                   Range(xDic.Keys(I)).Interior.Color = xlNone
               End If
           Next
           Set xDic = Nothing
       End If
       Application.ScreenUpdating = True
   End Sub
   

5. 

Passo 2: Copie o código 2 para a janela do Módulo

1. Ainda na janela «Microsoft Visual Basic for Applications», clique em «Inserir» > «Módulo» e, de seguida, copie o código VBA abaixo para a janela «Módulo».
2. Código VBA 2: VLOOKUP para obter a formatação da célula juntamente com o valor procurado

3. Public xDic As New Dictionary
   Function LookupKeepFormat (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
       Dim xFindCell As Range
       On Error Resume Next
       Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
       If xFindCell Is Nothing Then
           LookupKeepFormat = ""
           xDic.Add Application.Caller.Address, ""
       Else
           LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
           xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
       End If
   End Function
   

4. 

Passo 3: Selecione a opção para o projeto VBA

1. Após inserir os códigos acima, clique em «Ferramentas» > «Referências» na janela do Microsoft Visual Basic for Applications e, de seguida, assinale a caixa de verificação «Microsoft Scripting Runtime» na caixa de diálogo «Referências – VBAProject». Veja as imagens:
2. Depois, clique em «OK» para fechar a caixa de diálogo e, em seguida, guarde e feche a janela de código.

Passo 4: Introduza a fórmula para obter o resultado

1. Agora, volte à folha de cálculo e aplique a seguinte fórmula. Em seguida, arraste a alça de preenchimento para baixo para obter todos os resultados com a respetiva formatação. Veja a imagem:
   

   =LookupKeepFormat(E2,$A$1:$C$10,3)

   
   

4,2 Manter o Formato de data de um VLOOKUP Valor de retorno

Ao utilizar a função VLOOKUP para procurar e devolver um valor com formato de data, o resultado poderá aparecer como um número. Para manter o formato de data no resultado obtido, envolva a função VLOOKUP na função TEXTO.

Passo 1: Aplique a seguinte fórmula

Insira a fórmula abaixo numa célula vazia e, em seguida, arraste a alça de preenchimento para copiá-la para outras células.

=TEXT(VLOOKUP(E2,$A$2:$C$9,3,FALSE),"mm/dd/yyyy")

Resultado:

Todas as datas correspondentes foram devolvidas, conforme mostrado na imagem seguinte:

4,3 Devolver Comentário de um VLOOKUP

Já precisou alguma vez de obter, simultaneamente, os dados de uma célula e o respetivo comentário utilizando o VLOOKUP no Excel, tal como ilustrado na imagem seguinte? Se sim, a Função Definida pelo Utilizador apresentada abaixo pode ajudá-lo a realizar esta tarefa.

Passo 1: Copie o código para um Módulo

1. Mantenha premidas 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 «Módulo».
   Código VBA: VLOOKUP e devolver o valor correspondente com Comentário:

   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, guarde e feche a janela de código.

Passo 2: Introduza a fórmula para obter o resultado

1. Agora, introduza a seguinte fórmula e arraste a alça de preenchimento para copiar esta fórmula para outras células. Irá devolver simultaneamente os valores correspondentes e os comentários. Veja a imagem:
   

   =vlookupcomment(D2,$A$2:$B$9,2,FALSE)

   
   

4,4 VLOOKUP para números armazenados como texto

Por exemplo, se tiver um intervalo de dados em que o número de identificação na tabela original está em formato numérico, mas o número de identificação nas células de procura está armazenado como texto, poderá obter um erro #N/D ao utilizar a função VLOOKUP normal. Neste caso, para obter a informação correta, pode incorporar as funções TEXTO e VALOR dentro da função VLOOKUP. Abaixo encontra-se a fórmula para alcançar este objetivo:

Passo 1: Aplique e preencha a seguinte fórmula

Aplique a seguinte fórmula numa célula vazia e, em seguida, arraste a alça de preenchimento para baixo para replicar a fórmula.

=IFERROR(VLOOKUP(VALUE(D2),$A$2:$B$8,2,0),VLOOKUP(TEXT(D2,0),$A$2:$B$8,2,0))

Resultado:

Agora, obterá os resultados corretos, conforme mostrado na imagem seguinte: