Como concatenar apenas células visíveis no Excel?
Se você tiver uma lista de dados filtrados, agora, você só precisa concatenar apenas as células visíveis e ignorar as células ocultas para obter o seguinte resultado combinado. Como você poderia terminar esta tarefa de forma rápida e fácil no Excel?
Concatene apenas valores de células visíveis em uma célula com código VBA
Concatene apenas valores de células visíveis em uma célula com código VBA
Você pode criar uma Função definida pelo usuário para resolver este trabalho, execute as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: concatene apenas valores de 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. Em seguida, salve e feche este código, volte para a planilha e insira esta fórmula: = concatenatevisível (B2: B10, "-") (B2: B10 é o intervalo de dados filtrado que você deseja combinar, “-”É o separador para separar os valores combinados, você pode alterá-los de acordo com sua necessidade.) Em uma célula em branco onde deseja localizar o resultado combinado e, em seguida, pressione Entrar chave para obter o resultado. Veja a imagem:
Note: Com esta Função Definida pelo Usuário, o resultado combinado será alterado com seus dados filtrados dinamicamente, por exemplo, se você filtrar o Produto de KTO, seu resultado combinado será alterado para os novos dados filtrados. Veja a imagem:
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!