Como copiar a formatação de origem da célula de pesquisa ao usar o Vlookup no Excel?
Nos artigos anteriores, falamos sobre como manter a cor de fundo quando vlookup valores no Excel. Aqui neste artigo, vamos apresentar um método de copiar toda a formatação de célula da célula resultante ao fazer Vlookup no Excel. Faça o seguinte.
Copie a formatação de origem ao usar o Vlookup no Excel com uma função definida pelo usuário
Copie a formatação de origem ao usar o Vlookup no Excel com uma função definida pelo usuário
Supondo que você tenha uma tabela como a imagem mostrada abaixo. Agora você precisa verificar se um valor especificado (na coluna E) está na coluna A e retornar o valor correspondente com formatação na coluna C. Faça o seguinte para obtê-lo.
1. Na planilha contém o valor que você deseja ver, clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto. Veja a imagem:
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie o código VBA abaixo na janela 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. Então clique inserção > Móduloe copie o código 2 do VBA abaixo na janela 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 Function
4. Clique Ferramentas > Referências. Em seguida, verifique o Tempo de execução de scripts da Microsoft caixa no Referências - VBAProject caixa de diálogo. Veja a imagem:
5. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela.
6. Selecione uma célula em branco adjacente ao valor de pesquisa e insira a fórmula =LookupKeepFormat(E2,$A$1:$C$8,3) no Barra de Fórmula, e depois pressione o botão Entrar chave.
Note: Na fórmula, E2 contém o valor que você procurará, $ A $ 1: $ C $ 8 é o intervalo da mesa e o número 3 significa que o valor correspondente que você retornará está localizado na terceira coluna da tabela. Altere-os conforme necessário.
7. Continue selecionando a primeira célula de resultado e, em seguida, arraste a alça de preenchimento para baixo para obter todos os resultados junto com sua formatação, conforme mostrado na imagem abaixo.
Artigos relacionados:
- Como vlookup e retornar a cor de fundo junto com o valor de pesquisa no Excel?
- Como vlookup e retornar o formato de data em vez de número no Excel?
- Como usar vlookup e sum no Excel?
- Como vlookup retornar o valor na célula adjacente ou seguinte no Excel?
- Como vlookup valor e retornar verdadeiro ou falso / sim ou não no Excel?
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!