Comment concaténer uniquement les cellules visibles dans Excel?
Si vous avez une liste de données filtrées, il vous suffit maintenant de concaténer uniquement les cellules visibles et d'ignorer les cellules masquées pour obtenir le résultat combiné suivant. Comment pourriez-vous terminer cette tâche rapidement et facilement dans Excel?
Concaténer uniquement les valeurs de cellule visibles dans une cellule avec le code VBA
Concaténer uniquement les valeurs de cellule visibles dans une cellule avec le code VBA
Vous pouvez créer un Fonction définie par l'utilisateur Pour résoudre ce problème, veuillez suivre les étapes suivantes:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: concaténer uniquement les valeurs de cellule visibles:
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. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul et entrez cette formule: = concaténervisible (B2: B10, "-") (B2: B10 est la plage de données filtrées que vous souhaitez combiner, "-»Est le séparateur pour séparer les valeurs combinées, vous pouvez les modifier selon vos besoins.) Dans une cellule vide où vous souhaitez localiser le résultat combiné, puis appuyez sur Entrer clé pour obtenir le résultat. Voir la capture d'écran:
Notes: Avec cette fonction définie par l'utilisateur, le résultat combiné sera modifié avec vos données filtrées de manière dynamique, par exemple, si vous filtrez le produit de KTO, votre résultat combiné sera remplacé par les nouvelles données filtrées. Voir la capture d'écran:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!