Como concatenar apenas as células visíveis no Excel?
Se tiver uma lista de dados filtrados, como pode concatenar rapidamente e facilmente apenas as células visíveis — ignorando as ocultas — para obter o resultado combinado pretendido no Excel?
Concatenar apenas os valores das células visíveis numa única célula com código VBA
Concatenar apenas os valores das células visíveis numa única célula com código VBA
Pode criar uma Função Definida pelo Utilizadorpara resolver esta tarefa; siga os passos seguintes:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Concatenar apenas os valores das células visíveis:
Private Function ConcatenateVisible(xRg As Variant, sptChar As String)
'Updateby Extendoffice
Dim rg As Range
For Each rg In xRg
If (rg.EntireRow.Hidden = False) And (rg.EntireColumn.Hidden = False) Then
ConcatenateVisible = ConcatenateVisible & rg.Value & sptChar
End If
Next
ConcatenateVisible = Left(ConcatenateVisible, Len(ConcatenateVisible) - Len(sptChar))
End Function
3. Depois de guardar e fechar este código, regresse à folha de cálculo e introduza a seguinte fórmula: =concatenatevisible(B2:B10,"-") (B2:B10 é o intervalo filtrado que pretende combinar; “-” é o separador utilizado entre os valores combinados — pode alterá-los conforme necessário) numa célula vazia onde deseja obter o resultado combinado e, em seguida, prima a tecla Enter para ver o resultado. Veja a imagem:
Nota: Com esta Função Definida pelo Utilizador, o resultado combinado atualiza-se dinamicamente sempre que os dados filtrados forem alterados. Por exemplo, ao filtrar o Produto KTO, o resultado combinado ajusta-se automaticamente aos novos dados filtrados. Veja a imagem:
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