エクセルの関数を使って商品のサイズ、色にそれぞれ区別する記号番号を付けていくのに苦労しています。

関数でもできるとは思いますが、マクロの例です。

Sub Sample()
    Dim dicSize
    Set dicSize = CreateObject("Scripting.Dictionary")

    Dim dicColor
    Set dicColor = CreateObject("Scripting.Dictionary")
    
    Dim r As Long
    Dim product As String
    For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(r, "A").Value <> product Then
            dicSize.RemoveAll
            dicColor.RemoveAll
            product = Cells(r, "A").Value
        End If
        
        If dicSize.Exists(Cells(r, "B").Value) = False Then dicSize(Cells(r, "B").Value) = Chr(97 + dicSize.Count)
        Cells(r, "C").Value = dicSize(Cells(r, "B").Value)
        
        If dicColor.Exists(Cells(r, "D").Value) = False Then dicColor(Cells(r, "D").Value) = dicColor.Count + 1
        Cells(r, "E").Value = dicColor(Cells(r, "D").Value)
    Next
End Sub

ALT+F11 で開いたウィンドウで、挿入⇒標準モジュールを選び
そこへ上記コードをコピーしウィンドウを閉じます。

EXCELに戻って ALT+F8 で　Sample を選んで実行です。