¿Cómo concatenar solo celdas visibles en Excel?
Si tiene una lista de datos filtrados, ahora solo necesita concatenar solo las celdas visibles e ignorar las celdas ocultas para obtener el siguiente resultado combinado. ¿Cómo podría terminar esta tarea rápida y fácilmente en Excel?
Concatenar solo valores de celda visibles en una celda con código VBA
Concatenar solo valores de celda visibles en una celda con código VBA
Usted puede crear un Función definida por el usuario para resolver este trabajo, siga los siguientes pasos:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: concatenar solo valores de celda 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. Luego guarde y cierre este código, regrese a la hoja de trabajo e ingrese esta fórmula: = concatenarvisible (B2: B10, "-") (B2: B10 es el rango de datos filtrados que desea combinar, "-”Es el separador para separar los valores combinados, puede cambiarlos según sus necesidades) en una celda en blanco donde desea ubicar el resultado combinado, y luego presione Participar clave para obtener el resultado. Ver captura de pantalla:
Note: Con esta función definida por el usuario, el resultado combinado se cambiará con sus datos filtrados dinámicamente, por ejemplo, si filtra el Producto de KTO, su resultado combinado se cambiará a los nuevos datos filtrados. Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!