Sin ver la solución de Mauricio: Sub filtrar() ' ' filtrar Macro ' ' ActiveSheet.Range("$C$3:$C$4962").AutoFilter Field:=1, Criteria1:=Array( _ "</BCE:Balanza>", "<?xml version=""1.0"" encoding=""UTF-8""?>", _ "<BCE:Balanza xmlns:BCE=""http://www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""", _ "<BCE:Ctas NumCta=""100-""", "<BCE:Ctas NumCta=""101-""", _ "<BCE:Ctas NumCta=""102-""", "<BCE:Ctas NumCta=""200-""", _ "<BCE:Ctas NumCta=""201-""", "<BCE:Ctas NumCta=""301-""", _ "<BCE:Ctas NumCta=""302-""", "<BCE:Ctas NumCta=""303-""", _ "<BCE:Ctas NumCta=""400-""", "<BCE:Ctas NumCta=""401-""", _ "<BCE:Ctas NumCta=""402-""", "<BCE:Ctas NumCta=""501-""", _ "<BCE:Ctas NumCta=""502-""", "<BCE:Ctas NumCta=""503-""", _ "<BCE:Ctas NumCta=""504-""", "<BCE:Ctas NumCta=""601-""", _ "<BCE:Ctas NumCta=""602-""", "Anio=""2020""", "Debe=""0.00""", "Debe=""10900.00""", _ "Debe=""14854.75""", "Debe=""1538.16""", "Debe=""19684.00""", "Debe=""19726.34""", _ "Debe=""2593.76""", "Debe=""298831.38""", "Debe=""376399.24""", _ "Debe=""38831.90""", "Debe=""422506.96""", "Debe=""4946.00""", _ "Debe=""535673.00""", "Debe=""54279.41""", "Debe=""55014.62""", _ "Debe=""689769.61""", "Debe=""700.00""", "Debe=""70063.90""", "Debe=""724350.70""", _ "Debe=""7353.00""", "Debe=""7524.38""", "Debe=""7524.50""", "Debe=""757568.34""", _ "Debe=""788022.29""", "Debe=""797477.71""", "Debe=""850.00""", "Haber=""0.00""", _ "Haber=""10000.00""", "Haber=""10595.00""", "Haber=""108558.82""", _ "Haber=""121.00""", "Haber=""13405.50""", "Haber=""13641.58""", _ "Haber=""155190.18""", "Haber=""156.59""", "Haber=""178.00""", "Haber=""1802.31""", _ "Haber=""2018.66""", "Haber=""2088.00""", "Haber=""21350.00""", _ "Haber=""23289.44""", "Haber=""2593.76""", "Haber=""2914.44""") End Sub  

Sub Transponer() Application.ScreenUpdating = False fila = 1 For x = 2 To Range("A" & Rows.Count).End(xlUp).Row cadena = Split(Range("B" & x), "|") For y = 0 To UBound(cadena) fila = fila + 1 Range("D" & fila) = Range("A" & x) Range("E" & fila) = cadena(y) Next Next End Sub  

Hola!! A ver si alguien me puede ayudar con una macro, necesito transponer  los registros que están contenido en una celda que tienen un separador "|". Pongo un ejemplo: Inicialmente tengo esto 2 columnas: refe  productos A       1|2|3|4|5 B       6|7 Y quiero que la macro en cuestión me lo haga así: refe productos A      1 A      2 A      3 A      4 A      5 B     6TRANSPONER CADENA TANTAS VECES SE REPITA.xlsx B     7   Muchas gracias de antemano. Un saludo.

me imagino, aun asi, en los enlaces esos no dicen como se hace en excel no?

Yo en su día lo intente, y aun tengo dolores de cabeza... Los posibles beneficios (dar al botoncito y que salieran los turnos) no compensaba con la infinidad de problemas que surgían es cuestiones como las que apunta @Austrolopitecus, turnos partidos, descansos no programados, cambios de turnos, etc. Al final decidí que poniéndolos a mano y llevando el control de las rotaciones era mucho mas fácil para mi. No obstante te dejo dos enlaces por si te interesa. wwwpuntopgplanningpuntoes wwwpuntoaturnospuntocom