Espacio entre las palabras

Con una macro:

Hola,

No practico las macros, pero con una fórmula básica se haría ="Marea "&S6&" "&S7&" "&S8

---

Hola

¡No está muy claro!

¿Puedes enviar un fragmento de archivo con los diferentes casos encontrados?

Para enviar tu archivo, puedes usar

Saludos

Buenas

una pista

=EXTRAE(S2;1;ENCONTRAR("h";S2)-3)&" "&EXTRAE(S2;ENCONTRAR("h";S2)-3;6)&" "&DERECHA(S2;6)

Hola Guy,

Me parece que tienes Excel 365. Prueba:

=LET(tbl;REDUCE("");T5:T208;LAMBDA(x;y;SI(GAUCHE(y;5)="marée";ASSEMB.V(x;FRACTIONNER.TEXTE(y;;" "));ASSEMB.V(x;y))));FILTRE(tbl;tbl<> "marée"))

https://www.swisstransfer.com/dl/01a085a8-8653-724a-840d-70268184f303

Daniel

Lo miro a finales de la tarde

Hola a todos

Personalmente no entiendo, ya hay espacios en la columna T !?

En el caso de que todo estuviera junto (Maréebasse01h521.11m)

una fórmula simple tipo

=IZQUIERDA(T6;5)&" "& EXTRAER(T6;6;5)& " " &EXTRAER(T6;11;5)& " "&DERECHA(T6;5)

debería permitir insertar espacios

Saludos

Vía

---

Hola,

Habiendo trabajado ya en la cuestión, me parece que hay que partir de la columna T para obtener exactamente el resultado de la columna S. Eliminación de la palabra "Marée" y división por palabras para el resto, y sí, hay espacios.

Daniel

---

Entonces, con una macro :

Sub test() Dim C As Range, L As Long Range("S5", Cells(Rows.Count, "S").End(xlUp)) = "" L = 4 For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp)) If Left(C, 5) <> "Marée" Then L = L + 1 Cells(L, "S") = C Else tabl = Split(C, " ") For i = 1 To UBound(tabl) L = L + 1 Cells(L, "S") = tabl(i) If i = 1 Then Cells(L, "S") = Application.Proper(Cells(L, "S")) Next i End If Next C End Sub 

Daniel

---

Q?. ¿Tienes fechas (en el sentido de Excel) en el archivo verdadero en lugar de "martes 1" del texto puro?

Atentamente

*

Bonjour Guy.

¿Estas fórmulas te convienen?

Atentamente.

---

¡Está bien, la jubilación! Especialmente en las Antillas...
Raymond (INSA, AFPA)

Aquí está la traducción al español, manteniendo las etiquetas HTML y la estructura:

Este es el procedimiento que sigo :
1) Voy al sitio:
2) Reduzco al mínimo el ancho de la página a la derecha de la pantalla y selecciono desde el primer día hasta el final.

No estoy seguro de haber entendido SIN espacio, usa la fórmula:

 =LET(prv;GAUCHE(T5:T208;17)&" "&STXT(T5:T208;18;99);tbl;REDUCE("";prv;LAMBDA(x;y;SI(GAUCHE(y;5)="marée";ASSEMB.V(x;FRACTIONNER.TEXTE(y;;" "));ASSEMB.V(x;y))));res;FILTRE(tbl;tbl<>"marée");res)

Hola a todos,

Guy, si te aparece "#NOM" es porque tu versión no es Excel 365. Eso demuestra que no has probado la fórmula del mensaje #5.

Prueba la macro:

Sub test() Dim C As Range, L As Long Range("S5", Cells(Rows.Count, "S").End(xlUp)) = "" L = 4 For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp)) If Left(C, 5) <> "Marée" Then L = L + 1 Cells(L, "S") = C Else tabl = Split(C, " ") L = L + 1 Cells(L, "S") = Application.Proper(tabl(1)) L = L + 1 Cells(L, "S") = Left(tabl(2), 5) L = L + 1 Cells(L, "S") = Mid(C, 18, 99) End If Next C End Sub 

Daniel

---

Esto es lo que obtengo al ejecutar la macro:

Hola

Aquí está lo que se puede hacer fácilmente con fórmulas en un Excel anterior a 365

A partir de la extracción del sitio en una hoja, se trasladan los datos útiles a la otra hoja según los días (fórmula para obtener la lista de días idéntica a la del sitio en la columna B, para octubre basta con cambiar el 9 por 10 en la fórmula, etc.)

Cordialmente

Vía

---

Aquí:

Sub test() Dim C As Range, L As Long Range("S5", Cells(Rows.Count, "S").End(xlUp)) = "" L = 4 For Each C In Range("T5", Cells(Rows.Count, "T").End(xlUp)) If Left(C, 5) <> "Marée" Then L = L + 1 Cells(L, "S") = C Else L = L + 1 Cells(L, "S") = Application.Proper(Mid(C, 7, 5)) L = L + 1 Cells(L, "S") = Mid(C, 12, 5) L = L + 1 Cells(L, "S") = Mid(C, 17, 99) End If Next C End Sub 

Daniel 

---

¡Perfecto!!!
Gracias por todo