La fórmula VBA para Excel 2003 para pegar valores especiales en function del color de la fuente

Estoy tratando de usar VBA para crear una macro, que cuando se llame, escaneará todas las celdas pobladas en la hoja y si el color de la fuente de las celdas es morado (13), copyrá esa celda y volverá a pegar solo el número y convierta el color de fuente negro. He experimentado un poco con eso, pero estoy por encima de mi cabeza, así que si tienes alguna página recomendada para aprender vba, te agradecería también.

Puede hacer casi todo esto simplemente haciendo cosas y registrándolas con la grabadora de macros y viendo los resultados. Esta no es la forma en que debes hacer esto, sino que es un simple ejemplo

Sub setPurpleValues() Dim myStr As String For Each cell In Range("A2:Z100") If cell.Font.ColorIndex = 13 Then myStr = cell.Value Else myStr = "No" 'MsgBox (myStr) If myStr <> "No" Then cell.Value = myStr cell.Font.ColorIndex = 1 End If Next cell End Sub