Usar el VBA para convertir mi cadena de comas en filas funciona muy bien, pero ahora necesito hacer coincidir el desglose con el valor en la columna A. Ejemplo
La columna A tiene "Árboles: la columna B era la cadena de comas: cornejo, fresno, arce, olmo, manzana.
¿Cómo me muestro como:
Gracias
La columna A tiene "Árboles: la columna B era la cadena de comas: cornejo, fresno, arce, olmo, manzana.
¿Cómo me muestro como:
| [fuente=Calibri]Current[/ Font] | |
| [fuente=Calibri]Los árboles[/ Font] | [fuente=Calibri]Cornejo, fresno, arce, olmo, manzana[/ Font] |
| [fuente=Calibri]¿ Necesita ayuda[/ Font] | |
| [fuente=Calibri]Los árboles[/ Font] | [fuente=Calibri]Dogwood[/ Font] |
| [fuente=Calibri]Los árboles[/ Font] | [fuente=Calibri]Ceniza[/ Font] |
| [fuente=Calibri]Los árboles[/ Font] | [fuente=Calibri]Arce[/ Font] |
| [fuente=Calibri]Los árboles[/ Font] | [fuente=Calibri]olmo[/ Font] |
| [fuente=Calibri]Los árboles[/ Font] | [font=Calibri]Manzana[/font] |
Subtexto público a columnas ()
Establecer ARango = Rango("A:A")
Establecer BRango = Rango("B:B")
Establecer CRango = Rango ("C: C")
Establecer DRange = Range("D:D")
Dim arr() como cadena
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Establecer = Hojas de trabajo.Agregar
fuera.Nombre = "fuera"
fila de salida = 2
Para i = 2 Para lr
arr = Dividir(ARango(i), ",")
Para j = 0 a UBound(arr)
out.Cells(outRow, 1) = Recortar(arr(j))
out.Cells(outRow, 2) = BRango(i)
out.Cells(outRow, 3) = CRango(i)
out.Cells(outRow, 4) = DRange(i)
FilaSalida = FilaSalida + 1
Siguiente j
Siguiente i
End Sub
No hice los encabezados ni me ocupé correctamente de la hoja de salida, pero puedes ver básicamente lo que está pasando.
Establecer ARango = Rango("A:A")
Establecer BRango = Rango("B:B")
Establecer CRango = Rango ("C: C")
Establecer DRange = Range("D:D")
Dim arr() como cadena
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Establecer = Hojas de trabajo.Agregar
fuera.Nombre = "fuera"
fila de salida = 2
Para i = 2 Para lr
arr = Dividir(ARango(i), ",")
Para j = 0 a UBound(arr)
out.Cells(outRow, 1) = Recortar(arr(j))
out.Cells(outRow, 2) = BRango(i)
out.Cells(outRow, 3) = CRango(i)
out.Cells(outRow, 4) = DRange(i)
FilaSalida = FilaSalida + 1
Siguiente j
Siguiente i
End Sub
No hice los encabezados ni me ocupé correctamente de la hoja de salida, pero puedes ver básicamente lo que está pasando.
- De la página:
- 1
Aún no hay respuestas para esta publicación.