Como copiar a formatação da célula de origem ao utilizar o VLOOKUP no Excel?
Nos artigos anteriores, abordámos como manter a cor de fundo ao utilizar o VLOOKUP no Excel. Neste artigo, apresentamos um método para copiar toda a formatação da célula resultante ao usar o VLOOKUP no Excel. Siga os passos indicados a seguir.
Copiar a formatação da origem ao utilizar o VLOOKUP no Excel com uma função definida pelo utilizador
Copiar a formatação da origem ao utilizar o VLOOKUP no Excel com uma função definida pelo utilizador
Suponha que tem uma tabela como a apresentada na imagem seguinte. Pretende agora verificar se um valor especificado (na coluna E) existe na coluna A e, em caso afirmativo, devolver o valor correspondente da coluna C, incluindo a respetiva formatação. Siga os passos abaixo para o conseguir.
1. Na folha de cálculo que contém o valor que pretende procurar com o VLOOKUP, clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto. Veja a imagem:
2. Na janela do Microsoft Visual Basic para Aplicações que se abre, copie o seguinte código VBA para a janela de código.
Código VBA 1: VLOOKUP e Valor de retorno com formatação
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Em seguida, clique em Inserir > Módulo e copie o seguinte código VBA para a janela do Módulo.
Código VBA 2: VLOOKUP e Valor de retorno com formatação
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
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(External:=True)
End If
Application.ScreenUpdating = True
End Function4. Clique em Ferramentas > Referências. Em seguida, marque a caixa Microsoft Script Runtime na caixa de diálogo Referências – VBAProject. Veja a imagem:
5. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic para Aplicações.
6. Selecione uma célula vazia adjacente ao valor procurado e introduza a fórmula =LookupKeepFormat(E2,$A$1:$C$8,3) na Barra de Fórmulas e, em seguida, prima a tecla Enter.
Nota: Na fórmula, E2 contém o valor que irá procurar, $A$1:$C$8 é o intervalo da tabela e o número 3 indica que o valor correspondente a devolver se encontra na terceira coluna da tabela. Ajuste estes parâmetros conforme necessário.
7. Mantenha a primeira célula de resultado selecionada e arraste a Alça de Preenchimento para baixo para obter todos os resultados com a respetiva formatação, tal como ilustrado na imagem seguinte.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como utilizar o VLOOKUP para devolver, juntamente com o valor procurado, a respetiva cor de fundo no Excel?
- Como utilizar o VLOOKUP no Excel e obter o resultado no formato de data em vez de um número?
- Como utilizar as funções VLOOKUP e SOMA no Excel?
- Como utilizar o VLOOKUP para procurar um valor de retorno na célula adjacente ou seguinte no Excel?
- Como utilizar o VLOOKUP para procurar um valor no Excel e obter como resultado Verdadeiro ou Falso, ou Sim ou Não?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos