Excel-erator submitted this idea :
Se queto è quello che cerchi:
> Rintracci
> Rintracci
> Rintracci
> Rintracci
Release > 17/9, Rintracci
Release > Procedure Esecutive, 17/9
> Rintracci
> Rintracci
> Rintracci
Release > 17/9, Rintracci
> Cluster
> Rintracci
Release > 17/9
> Rintracci
> Rintracci
> Cluster
> Rintracci
Release > 09/4, Rinnovazione ipoteche
Release > Closing, 17/9
questa è la routine VBA sotto MS Excel 2019:
==============================
Public Sub Test2()
Dim SR As Range, i
Set SR = Range([Freq!F1], [Freq!F1].End(xlDown))
For Each i In SR
If InStr(1, i, "Release") Then
i(1, 2) = "Release"
i(1, 3) = WorksheetFunction.Substitute(i, "Release",
vbNullString)
Else
i(1, 3) = i
End If
Next
End Sub
=============================
Freq è il nome del foglio, F1 la prima cella dati.
Bruno