¿Cómo convertir la tabla de referencias cruzadas (tabla bidimensional) en una lista en Excel?
¿Sabe cómo convertir una tabla cruzada (tabla bidimensional) en una tabla de lista (tabla unidimensional) en Microsoft Excel? Por algunas razones, es posible que deba convertir una tabla (con encabezados de fila y encabezados de columna) en una lista plana en Excel. Los siguientes trucos pueden ayudarlo a convertir una tabla cruzada en una lista plana de manera fácil y rápida:
- Convierta la tabla cruzada en una lista en Excel con VBA
- Convierta la tabla cruzada en una lista en Excel con Kutools para Excel
Supongamos que tiene una tabla cruzada y necesita convertirla en una lista de la siguiente manera.
Tabla cruzada (con encabezados de fila y encabezados de columnas) | Una tabla de lista (tabla unidimensional) |
Convierta la tabla cruzada en una lista en Excel con VBA
La siguiente macro de VBA puede ayudarlo a convertir rápidamente todas las tablas cruzadas en la hoja de trabajo activa en listas planas.
Paso 1: mantenga presionada la tecla otro + F11 en Excel y abre la ventana de Microsoft Visual Basic para Aplicaciones.
Paso 2: Click recuadro > Móduloy pegue la siguiente macro en la ventana del módulo.
El VBA en la tabla de tabla cruzada de transposición para enumerar:
Sub ConvertTableToList ()
Const TEST_COLUMN como cadena = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol tan largo
Application.ScreenUpdating = False
Con ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .Fin (xlUp) .Row
Para i = iLastRow To 2 Step -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Para j = iLastCol To 3 Paso -1
.Rows (i + 1) .Insertar
.Células (i + 1, 2) .Valor = .Células (i, j) .Valor
.Células (i, j) .Value = ""
Siguiente j
Siguiente i
.Rows (1) .Borrar
End With
Application.ScreenUpdating = True
End Sub
Paso 3: haga clic en F5 clave para ejecutar esta macro.
Luego verá la lista convertida que se muestra como la siguiente captura de pantalla:
Nota:
1. Esta macro de VBA pierde algunos datos de la tabla original, como encabezados u otros. En este caso, los encabezados (Nombre, Grado y Clase) se pierden.
2. Puede cambiar As String = "A", para satisfacer sus necesidades. Por ejemplo, si la tabla cruzada se indica en la Columna E, debería en su lugar "E" de "A".
3. Y si hay otros datos en la hoja de trabajo, a veces los datos de la lista serán incorrectos después de convertir una tabla cruzada.
Convierta tablas cruzadas en listas en Excel con Kutools para Excel
Si tiene Kutools for Excel instalado, puede utilizar su Dimensiones de la mesa de transposición herramienta para convertir tablas cruzadas en lista plana rápidamente.
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .
Paso 1: seleccione la tabla que la convertirá en una lista.
Paso 2: haga clic en Kutools >modificar > Transponer la dimensión de la tabla. Vea la siguiente captura de pantalla:
Paso 3: En el cuadro de diálogo Transponer dimensiones de la tabla, marque la casilla Tabla cruzada para listar opción y seleccione la Rango de resultados haciendo clic en el del botón.
Paso 4: Click OK del botón.
Luego verá que la tabla original se convierte en una lista plana como la siguiente captura de pantalla:
Dimensiones de la mesa de transposición también puede convertir la lista en tabla de referencias cruzadas. Para obtener más información, visite Dimensiones de la mesa de transposición.
Artículos relativos:
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!