¿Cómo agregar varios campos a una tabla dinámica?
Al crear una tabla dinámica, normalmente arrastramos los campos uno por uno al área de Etiquetas de fila o Valores. Si tenemos una larga lista de campos, resulta sencillo añadir algunos como etiquetas de fila, pero incluir el resto en el área de Valores puede llevar mucho tiempo. ¿Existe una forma rápida de añadir todos los campos restantes al área de Valores con un solo clic?
Agregue varios campos al área de valores de Tabla Dinámica mediante código VBA
Agregue varios campos al área de valores de Tabla Dinámica mediante código VBA
Actualmente, Excel no incluye una función nativa (como una casilla de verificación «Seleccionar todo») en el panel Lista de campos que le permita añadir todos los campos restantes al área de Valores con un solo clic. Sin embargo, puede lograrlo de forma eficiente mediante una macro sencilla en VBA. Este enfoque resulta especialmente útil si necesita repetir este proceso con frecuencia o si trabaja con un gran número de campos de datos. A continuación, encontrará los pasos detallados y las precauciones necesarias para aplicar este método:
1. Tras crear su Tabla Dinámica, agregue los campos que desee utilizar como Etiquetas de fila mediante el método habitual de arrastrar y soltar. En la sección Elija los campos que desea agregar al informe, deje sin marcar los demás campos que pretenda resumir como valores. Para referencia, consulte la siguiente captura de pantalla:
3. En la ventana de VBA, vaya a Insertar > Módulo para crear un nuevo módulo. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo. Para abrir la ventana de VBA, seleccione Desarrollador > Visual Basic en la Cinta de opciones de Excel. Asegúrese de estar trabajando en el libro correcto.
2. Pulse ALT + F11 para abrir la ventana del editor de Microsoft Visual Basic para Aplicaciones. También puede acceder a ella haciendo clic en
Código VBA: Agregar varios campos al área de valores de Tabla Dinámica en la hoja activa
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. A continuación, pulse F5 para ejecutar la macro o haga clic en el botón Ejecutar de la barra de herramientas del editor de VBA. La macro procesará todas las tablas dinámicas de la hoja de trabajo actual: para cada una, añadirá al área de valores cualquier campo que aún no se haya incluido como etiquetas de fila o de columna. Como resultado, todos los campos de datos disponibles aparecerán como valores resumidos en su tabla dinámica, lo que le permitirá realizar análisis exhaustivos de forma rápida. Consulte la siguiente captura de pantalla como referencia:
Nota: Esta macro aplica cambios a todas las tablas dinámicas presentes en la hoja activa en el momento de su ejecución. Si tiene varias tablas dinámicas y solo desea actualizar una, considere mover temporalmente dicha tabla dinámica a una hoja independiente. Antes de ejecutar el código VBA, recuerde siempre guardar su trabajo, ya que las macros pueden realizar cambios irreversibles. Asimismo, esta macro intentará añadir todos los campos restantes —incluidos aquellos que puedan no ser adecuados para resúmenes numéricos—, lo que podría provocar errores en los resúmenes o resultados sin sentido para campos con datos no numéricos.
Artículos relacionados:
¿Cómo enumerar todas las tablas dinámicas de un libro?
¿Cómo puedo comprobar si hay una Tabla Dinámica en un libro?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos