разделение чисел

[Михаил2261]

Здравствуйте
Подскажите еще как можно програмно разделить числа в столбцах
Есть столбцы ,в них числа, допустим число 16 - единица -это старший разряд, 6- младший разряд.Нужно - старашие разряды убрать во всех числах, младшие- оставить.
А Б С
16 15 31
22 32 34
33 45 46 и т.д.
спасибо

[SAS888]

Например, выполнить такой макрос:

Sub Main()
    Dim cell As Range: Application.ScreenUpdating = False: On Error Resume Next
    For Each cell In Columns("A:C").SpecialCells(xlCellTypeConstants, xlNumbers)
        If Len(cell) > 1 Then cell = Right$(cell, 1)
    Next
End Sub

[Hugo121]

Ещё вариант:

Sub tt()
For Each cc In Range("A1:C3")
cc.Value = cc.Value - Fix(cc.Value / 10) * 10
Next
End Sub

[Михаил2261]

спасибо, есть еще задача по сравнению числовых массивов.может оставите
e-mail, за оплату, нужно сравнивать два массива по младшим разарядам.и т.д.
условия большие.

[SAS888]

E-mail и ICQ см. в моем профиле.