A másodikra. A cikkszámok az A oszlopban vannak, rendezett állapotban.

 

A makró a B oszlopba írja, hogy az előző sor A oszlopában található értéktől hány karakterrel tér el az aktuális sor értéke.

 

Sub hasonlit() 

  Dim sor, b, v, sz   

For sor = 1 To 15 

      v = 0 

      sz = Cells(sor, 1)

        For b = 1 To Len(sz) 

          If Mid(sz, b, 1) <> Mid(Cells(sor + 1, 1), b, 1) Then v = v + 1

        Next 

      Cells(sor + 1, 2) = v 

  Next

End Sub