¿Cómo transponer rápidamente la lista de direcciones de filas a columnas en Excel?
Por ejemplo, hay una sola lista combinada con nombres y direcciones, y debe convertir la lista en columnas como se muestra a continuación. No hay una función incorporada en Excel para manejarlo, pero, en este artículo, puedo presentar algunos trucos para resolver esto rápidamente.
Transponer la lista de direcciones por VBA
Transponer la lista de direcciones de Kutools para Excel
Transponer la lista de direcciones por VBA
Para transponer la lista de direcciones de filas a columnas, puede aplicar un código VBA.
1. Active la hoja que contiene los datos que desea transponer y presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código de macro a continuación en el Módulo. Ver captura de pantalla:
VBA: lista de direcciones de transposición
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para recordarle que seleccione el rango de datos que desea usar. Ver captura de pantalla:
4. Hacer clic en OK, luego, en el siguiente cuadro de diálogo emergente, seleccione una celda para colocar el resultado transpuesto. Ver captura de pantalla:
5. Hacer clic en OK. Ahora la lista única se ha transpuesto a columnas.
Transponer la lista de direcciones de Kutools para Excel
Si tiene Kutools for Excel, puede aplicar el Transformar rango función para transponer rápidamente la lista de direcciones a las columnas.
| Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después de instalar Kutools para Excel, haga lo siguiente: （¡Descarga gratis Kutools para Excel ahora!)
1. Seleccione los datos que desea transponer, haga clic en Kutools > Gama de Colores > Transformar rango. Ver captura de pantalla:
2. En el cuadro de diálogo emergente, marque Columna única para rango en opción Tipo de transformación sección y comprobar Valor fijo opción y escriba el número que necesita en el cuadro de texto de la derecha. Ver captura de pantalla:
3. Hacer clic en Oky seleccione una celda para generar el resultado. Ver captura de pantalla:
4. Hacer clic en OK. La lista de direcciones se ha transpuesto.
De demostració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!
