spostare contenuto celle a condizione

[libraio]

So Windows 7 + Office 2003
Ciao a tutti,
chiedo il vostro prezioso aiuto per un problema che non riesco a risolvere...
Ho un foglio excel con dati inseriti:
colonna A = scuola
colonna B = IDClasse
Colonna = titoli

Per ogni scuola e ID classe in colonna C possono esserci da 2 a 5 titoli.
Avrei necessità di allineare i titoli sulla medesima riga, con le celle scuola e IDClasse.

A titolo di esempio ho postato un foglio con alcuni dati:
https://we.tl/t-m02OxaKAZy
ho evidenziato in roso i titoli trasferiti (manualmente...)
E' possibile automatizzare l'operazione? Nella realtà il foglio contiene alcune centinaia di titoli.

Grazie

[Anthony47]

Ti servira' una macro, ad esempio:

Codice: Seleziona tutto

Sub HLabels()
Dim I As Long, RefRow As Long
'
For I = 2 To Cells(Rows.Count, "C").End(xlUp).Row
    If Len(Cells(I, "A").Value) > 2 Then
        RefRow = I
    Else
        If Cells(I, "C") <> "" Then
            Cells(RefRow, "K").End(xlToLeft).Offset(0, 1).Value = Cells(I, "C").Value
        End If
    End If
Next I
MsgBox ("Completato...")
End Sub


Attiva il foglio con i dati, poi lancia la Sub Hlabels

Ciao

[libraio]

Esattamente il risultato che cercavo!
Grazie Anthony, togli più castagne dal fuoco tu di un caldarrostaio...