CONTAR TERMINACIONES Y DECENAS

Suponiendo que los datos los tienes en A:F y que H:Q las tienes libres:

Sub prueba()
Dim fila As Integer
Dim columna As Integer
Dim final As Integer
Columns("H:Q").ClearContents
Columns("H:Q").ColumnWidth = 2
Range("H1:Q1").Font.ColorIndex = 3
Range("H1:Q1").Font.Bold = True
For fila = 2 To 250
If Cells(fila, 1) = "" Then Exit Sub
For columna = 1 To 6
final = Right(Cells(fila, columna), 1)
If Cells(1, final + 8).Value = "" Then Cells(1, final + 8).Value =
final
Cells(fila, final + 8).Value = Cells(fila, final + 8).Value + 1
Next columna
Next fila
End Sub

(te envio un adjunto con el ejemplo)

Lo de las decenas lo puedes implementar de forma parecida.

Saludos desde Tenerife (España).
*****************************************************
"JACS" escribió en el mensaje
news:
> Buenas, necesito contar las terminaciones y las decenas de unos numeros en
> concreto del 1 al 50, el problema es que estan en grupos de 6.
>
> Ejemplo:
>
> (E7:J7)
> 1 4 11 23 34 49
>
> Necesitaria contar las terminaciones y las decenas.
>
> Terminaciones: Decenas:
> 1 11 1 4
> 4 34 11
> 23 23
> 49 34
> 49
> Existen unas 250 combinaciones de 6 numeros espero me podais ayudar
> Gracias
> anticipadas