0

Доброго времени суток! В Excel как можно изменить Ф.И.О и ИНН на хэш - значения, либо на другие уникальные значения с помощью макроса ?

1 ответ 1

0

Можете попробовать что-то типа такого:

Private Function EasyHash(ByRef Str$) As Long
Dim i As Integer, Hash As Long
For i = 1 To Len(Str)
        Hash = i + 1664525 * AscB(Mid(Str, i, 1)) + 1013904223
        EasyHash = (Hash / i And 1048575) + EasyHash
Next
End Function

Разница:

Алла | 2036555

аллА | 1090691

баа | 2089824

ааб | 980141

Оригинал - http://www.excelworld.ru/forum/2-917-10187-16-1319802770

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.