Convertir filas a columnas
Hola
Supongamos que los datos están en la columna A y los vamos a pasar a partir de la columna B, entonces:
Sub Filas_Columnas()
Hoja1.Range("B:F").Clear
Columna = 2
Agregar = 0
For I = 1 To 500
Agregar = Agregar + 1
Hoja1.Cells(Agregar, Columna) = Hoja1.Cells(I, 1)
If I / 100 = I \ 100 Then
Columna = Columna + 1
Agregar = 0
End If
Next I
End Sub
Si tienes problemas, pregúntame nuevamente
Saludos
Supongamos que los datos están en la columna A y los vamos a pasar a partir de la columna B, entonces:
Sub Filas_Columnas()
Hoja1.Range("B:F").Clear
Columna = 2
Agregar = 0
For I = 1 To 500
Agregar = Agregar + 1
Hoja1.Cells(Agregar, Columna) = Hoja1.Cells(I, 1)
If I / 100 = I \ 100 Then
Columna = Columna + 1
Agregar = 0
End If
Next I
End Sub
Si tienes problemas, pregúntame nuevamente
Saludos
Respuesta de jgirj
1
El siguiente código asume que tus datos están en la columna A y desde la Fila 1 y que los datos se extraerán en las columnas siguientes, es decir de la B en adelante:
Sub Filas_Columnas()
Datos = WorksheetFunction.CountA(Hoja1.Range("A1:A65536"))
Recorridos = 0
Agregar = 0
Inicio = 1
Do While Recorridos < Datos
Agregar = Agregar + 1
Columna = 1
Do While Not IsEmpty(Hoja1.Cells(Inicio, 1)) = True
Columna = Columna + 1
Recorridos = Recorridos + 1
Hoja1.Cells(Agregar, Columna) = Hoja1.Cells(Inicio, 1)
Inicio = Inicio + 1
Loop
Inicio = Inicio + 1
Loop
End Sub
Si tienes problemas preguntame de nuevo.
Sub Filas_Columnas()
Datos = WorksheetFunction.CountA(Hoja1.Range("A1:A65536"))
Recorridos = 0
Agregar = 0
Inicio = 1
Do While Recorridos < Datos
Agregar = Agregar + 1
Columna = 1
Do While Not IsEmpty(Hoja1.Cells(Inicio, 1)) = True
Columna = Columna + 1
Recorridos = Recorridos + 1
Hoja1.Cells(Agregar, Columna) = Hoja1.Cells(Inicio, 1)
Inicio = Inicio + 1
Loop
Inicio = Inicio + 1
Loop
End Sub
Si tienes problemas preguntame de nuevo.
