Como copiar a formatação da célula de origem ao usar Vlookup no Excel?
Nos artigos anteriores, falamos sobre como manter a cor de fundo ao procurar valores com vlookup no Excel. Neste artigo, vamos introduzir um método para copiar toda a formatação da célula resultante ao fazer Vlookup no Excel. Por favor, siga os passos abaixo.
Copie a formatação de origem ao usar Vlookup no Excel com uma função definida pelo usuário
Copie a formatação de origem ao usar Vlookup no Excel com uma função definida pelo usuário
Suponha que você tenha uma tabela conforme mostrado na captura de tela abaixo. Agora você precisa verificar se um valor específico (na coluna E) está na coluna A e retornar o valor correspondente com a formatação da coluna C. Siga os passos abaixo para alcançar isso.
1. Na planilha que contém o valor que você deseja procurar com vlookup, clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto. Veja a captura de tela:
2. Na janela aberta do Microsoft Visual Basic for Applications, por favor, copie o código VBA abaixo na janela de Código.
Código VBA 1: Vlookup e retornar valor 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 código VBA 2 abaixo na janela Módulo.
Código VBA 2: Vlookup e retornar valor 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. Depois, marque a caixa Microsoft Script Runtime na caixa de diálogo Referências – VBAProject. Veja a captura de tela:
5. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
6. Selecione uma célula em branco adjacente ao valor de pesquisa e, em seguida, insira a fórmula =LookupKeepFormat(E2,$A$1:$C$8,3) na Barra de Fórmulas e pressione a tecla Enter.
Observação: Na fórmula, E2 contém o valor que você irá pesquisar, $A$1:$C$8 é o intervalo da tabela e o número 3 significa que o valor correspondente que você irá retornar está localizado na terceira coluna da tabela. Altere-os conforme necessário.
7. Mantenha a primeira célula de resultado selecionada e, em seguida, arraste a Alça de Preenchimento para baixo para obter todos os resultados junto com sua formatação, conforme mostrado na captura de tela abaixo.
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.
Artigos relacionados:
- Como pesquisar com vlookup e retornar a cor de fundo junto com o valor de pesquisa no Excel?
- Como usar vlookup e retornar formato de data em vez de número no Excel?
- Como usar vlookup e soma no Excel?
- Como usar vlookup para retornar valor na célula adjacente ou próxima no Excel?
- Como usar vlookup para retornar verdadeiro ou falso / sim ou não no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins