тупо в лоб:  
 
Sub t()  
 Dim i%, j%, s$, x, y(0 To 13), k%, l%  
 Dim i00%, i01%, i02%, i03%, i04%, i05%, i06%, i07%, i08%, i09%, i10%, i11%, i12%, i13%  
 i = 12: j = 12: s = Cells(i, 2).Value  
 Do While Len(s)  
     
   If InStr(1, s, ",") = 0 Then  
     Cells(j, 3).Value = s  
     j = j + 1  
   Else  
     x = Split(s, ";")  
     For k = 0 To 13: y(k) = Split(x(k), ","): Next  
     For i00 = 0 To UBound(y(0))  
       For i01 = 0 To UBound(y(1))  
       For i02 = 0 To UBound(y(2))  
       For i03 = 0 To UBound(y(3))  
       For i04 = 0 To UBound(y(4))  
       For i05 = 0 To UBound(y(5))  
       For i06 = 0 To UBound(y(6))  
       For i07 = 0 To UBound(y(7))  
       For i08 = 0 To UBound(y(8))  
       For i09 = 0 To UBound(y(9))  
       For i10 = 0 To UBound(y(10))  
       For i11 = 0 To UBound(y(11))  
       For i12 = 0 To UBound(y(12))  
       For i13 = 0 To UBound(y(13))  
         s = y(0)(i00) & ";" & y(1)(i01) & ";" & y(2)(i02) & ";" & y(3)(i03) & ";" & y(4)(i04) _  
           & ";" & y(5)(i05) & ";" & y(6)(i06) & ";" & y(7)(i07) & ";" & y(8)(i08) _  
           & ";" & y(9)(i09) & ";" & y(10)(i10) & ";" & y(11)(i11) & ";" & y(12)(i12) & ";" & y(13)(i13) & ";"  
         Cells(j, 3).Value = s  
         j = j + 1  
     Next i13, i12, i11, i10, i09, i08, i07, i06, i05, i04, i03, i02, i01, i00  
   End If  
   i = i + 1: s = Cells(i, 2).Value  
 Loop  
End Sub  
 
 
пс. да, я знаю, что некрасиво.  
и я даже подозреваю, что это вряд ли оптимально по скорости (речь не о поячеечном выводе).  
но - если бы у меня вдруг появилась такая РАЗОВАЯ задача, я бы её сделал именно так. ))