Hvordan sammenkædes kun synlige celler i Excel?
Hvis du har en liste over filtrerede data, skal du nu kun sammenkæde de synlige celler og ignorere de skjulte celler for at få følgende kombinerede resultat. Hvordan kunne du afslutte denne opgave hurtigt og nemt i Excel?
Sammenkæd kun synlige celleværdier i en celle med VBA-kode
Sammenkæd kun synlige celleværdier i en celle med VBA-kode
Du kan oprette en Brugerdefineret funktion For at løse dette job skal du gøre følgende:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Sammenkæd kun synlige celleværdier:
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. Gem derefter og luk denne kode, gå tilbage til regnearket, og indtast denne formel: = sammenkædelig synlig (B2: B10, "-") (B2: B10 er det filtrerede dataområde, du vil kombinere, “-”Er separatoren for at adskille de kombinerede værdier, du kan ændre dem til dit behov.) I en tom celle, hvor du vil finde det kombinerede resultat, og tryk derefter på Indtast nøgle for at få resultatet. Se skærmbillede:
Bemærk: Med denne brugerdefinerede funktion ændres det kombinerede resultat dynamisk med dine filtrerede data, for eksempel hvis du filtrerer KTO-produktet, ændres dit kombinerede resultat til de nye filtrerede data. Se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!