Excel - Простая формула для замены конкретных букв на конкретные цифры

Question

У меня есть трудности с созданием формулы, которая будет генерировать конкретные числа из указанных букв в следующей строке. Я хотел бы, чтобы слово KLAGENFURT было представлено в числах 1234567890, и когда буквы находятся в одной ячейке RGK, например, следующая ячейка записала бы их как 941. Это вообще возможно?

Спасибо!

Пример данных, которые я "перевел" вручную

В левом столбце есть данные в виде букв, в правом столбце они транскрибируются в числах, и это результат, который я хотел бы получить, используя формулу. Извините за сложные объяснения, я не являюсь носителем английского языка ...

Answer 1

Вы также можете сделать это по формуле

=SUMPRODUCT(MOD(SEARCH(MID(A1,ROW(A$1:INDEX(A:A,LEN(A1))),1),"klagenfurt"),10)*
10^(LEN(A1)-ROW(A$1:INDEX(A:A,LEN(A1)))))

Answer 2

Рассмотрим следующую пользовательскую функцию:

Public Function xlate(s As String) As String
    Dim L As Long, i As Long, j As Long
    Dim ch As String

    letters = Array("A", "G", "N", "L", "E", "F", "K", "U", "R", "T")
    numbers = Array("3", "4", "6", "2", "5", "7", "1", "8", "9", "0")

    L = Len(s)
    For i = 1 To L
        ch = Mid(s, i, 1)
        For j = 0 To 9
            If ch = letters(j) Then xlate = xlate & numbers(j)
        Next j
    Next i
End Function

Пользовательские функции (UDF) очень просто установить и использовать:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel позже, чем 2003, вы должны сохранить файл в формате .xlsm, а не .xlsx

К Удалить UDF:

1. вызвать окно VBE, как указано выше
2. очистить код
3. закрыть окно VBE

Для используйте UDF из Excel:

= MyFunction (А1)

Чтобы узнать больше о макросах в целом, см .:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

и подробности о UDF см .:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Для работы должны быть включены макросы!