Wie kann man in Excel nur sichtbare Zellen verketten?
Wenn Sie eine Liste gefilterter Daten haben, möchten Sie nun nur die sichtbaren Zellen verketten und die ausgeblendeten Zellen ignorieren, um das folgende kombinierte Ergebnis zu erhalten. Wie könnten Sie diese Aufgabe in Excel schnell und einfach erledigen?
Nur sichtbare Zellwerte mit VBA-Code in eine Zelle verketten
Nur sichtbare Zellwerte mit VBA-Code in eine Zelle verketten
Sie können eine benutzerdefinierte Funktion erstellen, um dieses Problem zu lösen. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Nur sichtbare Zellwerte verketten:
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. Speichern und schließen Sie diesen Code, gehen Sie zurück zum Arbeitsblatt und geben Sie diese Formel ein: =concatenatevisible(B2:B10,"-") (B2:B10 ist der gefilterte Datenbereich, den Sie kombinieren möchten, „-“ ist das Trennzeichen, um die kombinierten Werte zu trennen, Sie können sie nach Bedarf ändern.) in eine leere Zelle, wo Sie das kombinierte Ergebnis platzieren möchten, und drücken Sie dann die Eingabetaste, um das Ergebnis zu erhalten. Siehe Screenshot:
Hinweis: Mit dieser benutzerdefinierten Funktion ändert sich das kombinierte Ergebnis dynamisch mit Ihren gefilterten Daten. Zum Beispiel, wenn Sie das Produkt KTO filtern, ändert sich Ihr kombiniertes Ergebnis auf die neuen gefilterten Daten. Siehe Screenshot:
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!