Depois de considerar os intervalos de dados para diferentes cursos e o resultado final, posso sugerir que você faça o seguinte.
- Colete todas as 4 partes em um intervalo de dados por Copiar & Colar ou código VBA.
- Classifique todo o intervalo na data em ordem crescente.
- Finalmente, aplique a formatação condicional.
Você pode usar este código VBA simples para Copy & Colar dados junto com os formatos de células economizará seu tempo e você poderá pular o formato.
Sub CommandButton1_Click()
Dim CopyRng As Range, PasteRng As Range
Title = "Copy & Paste"
Set CopyRng = Application.Selection
Set CopyRng = Application.InputBox("Ranges to Copy :", Title, CopyRng.Address, Type:=8)
Set PasteRng = Application.InputBox("Range to Paste, select Single cell):", Title, Type:=8)
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteValuesAndNumberFormats
PasteRng.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub
Este código VBA que você pode usar para classificar na coluna Data.
Sub CommandButton2_Click()
Dim SortRange As Range, keyRange As Range
Set SortRange = Application.InputBox("Sort Range", SortRange.Address,Type:=8)
Set keyRange = Application.InputBox("Key Range", keyRange.Address,Type:=8)
SortRange.Sort Key1:=keyRange, Order1:=xlAscending
End Sub
NB: Espero que isso ajude você. Se a minha solução for diferente da sua ideia, basta comentar.