Hoe alleen zichtbare cellen in Excel samenvoegen?
Als u een lijst met gefilterde gegevens hebt, hoeft u nu alleen de zichtbare cellen samen te voegen en de verborgen cellen te negeren om het volgende gecombineerde resultaat te krijgen. Hoe kunt u deze taak snel en eenvoudig in Excel afronden?
Alleen zichtbare celwaarden samenvoegen in één cel met VBA-code
Alleen zichtbare celwaarden samenvoegen in één cel met VBA-code
U kunt een door de gebruiker gedefinieerde functie maken om dit probleem op te lossen, volg hiervoor de volgende stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
VBA-code: Alleen zichtbare celwaarden samenvoegen:
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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad en voer deze formule in: =concatenatevisible(B2:B10,"-") (B2:B10 is het gefilterde gegevensbereik dat u wilt combineren, “-” is de scheidingsteken om de gecombineerde waarden te scheiden, u kunt ze naar behoefte wijzigen.) in een lege cel waar u het gecombineerde resultaat wilt plaatsen, en druk vervolgens op de Enter-toets om het resultaat te krijgen. Zie screenshot:
Opmerking: Met deze door de gebruiker gedefinieerde functie zal het gecombineerde resultaat dynamisch veranderen met uw gefilterde gegevens. Bijvoorbeeld, als u het product van KTO filtert, wordt uw gecombineerde resultaat aangepast aan de nieuwe gefilterde gegevens. Zie screenshot:
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!