Risposte:
Puoi farlo manualmente (dai comandi della barra multifunzione) , ma se hai bisogno di VBA, quindi fai il processo manuale con il registratore acceso e modifica il risultato. Diciamo che iniziamo con:
Eseguendo questo:
Sub Macro1()
With ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields
.Clear
.Add(Range("A2:A23"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
End With
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:A23")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
produrrà: