¿Cómo transponer columnas a filas e insertar nuevas filas para completar datos en Excel?
En este artículo, presento un código VBA para transponer columnas a filas e insertar nuevas filas para completar los datos como se muestra a continuación, si está interesado en esta operación, vaya a más abajo para obtener más detalles.
Transponer e insertar filas con VBA
Transponer e insertar filas con VBA
No hay una forma directa de transponer un rango e insertar filas para completar los mismos datos, pero aquí puedo introducir un código VBA para resolver rápidamente esta tarea.
1. Prensa Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue debajo del código VBA en la ventana del Módulo. Ver captura de pantalla:
VBA: transponer e insertar filas.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Prensa F5 para ejecutar el código, y luego seleccione el rango de datos que desea transponer e inserte filas en el cuadro de diálogo emergente. Ver captura de pantalla:
4. Hacer clic en OK. Y el rango seleccionado se ha convertido como se muestra a continuación.
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!