Кодирование в квадрате Полибия

[Серей]

Уважаемые форумчане, добрый день.
Есть матрица - Х/Y, в которой каждый символ представлен как координата оси Х и оси Y соответственно (квадрат Полибия)
Есть поля, в которые пользователь вносит буквенно-цифровые значения для кодировки (B20 - AG20).
На выходе необходимо получить координаты (х, y) для каждого кодируемого символа (B21 - AG21).
Пытался решить проблему с использованием функций, по следующему алгоритму:
* найти значение в массиве;
* определить местоположение с использованием поискпоз;
* получить "координаты" х и y путем использования смещ;
...но запнулся на первом же шаге - стандартные функции поиска: впр; гпр; просмотр; поискпоз - в этой конструкции не работают (либо не хватает умения применить функции поиска в массиве).
Требуемый символ можно легко найти с помощью Ctrl+F, но дальше того, чтобы использовать "Запись макроса" на это действие я не ушел... а как написать шаги № 2 - 3 в VBA без понятия... макросы - это не мое.
Может кто-нибудь оказать содействие в решении задачи?
Файл прилагаю.

[kalbasiatka]

Не знаю чей там квадрат, может так

[IgorGO]

несколько первых букв закодировалось...

[Серей]

Сообщение от kalbasiatka

Не знаю чей там квадрат, может так

Сообщение от IgorGO

несколько первых букв закодировалось...

Большое спасибо! Оба варианта работают!

Сообщение от kalbasiatka

Не знаю чей там квадрат, может так

А можно узнать, как допилить макрос, чтобы если поля, которые надо кодировать - пустые (NULL) - макрос их не заполнял?

Сообщение от IgorGO

несколько первых букв закодировалось...

Буквы кодирует отлично, а вот цифры (1 - 9) не отрабатывает (например, вместо "2" выдает код на "ç").

Еще раз огромное спасибо! Главное - помогли решить задачу глобально. А то, что не получается - попробую допилить сам, если у вас не найдется возможности ответить.

[IgorGO]

опечатка в формуле, не правильно указан диапазон (проблемы должны были быть с цифрами 0-9 и латинскими буквами A-F)

[kalbasiatka]

Рихтанул

Sub поличтото()
    Dim a(), b(), c()
    Dim i&, j&
    a = Range("A1:Q17").Value
    Set sd = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(a)
        For j = 2 To UBound(a, 2)
            If a(i, j) <> "" Then
                sd.Item(a(i, j)) = a(1, j) & a(i, 1)
            End If
        Next
    Next
    b = Range("B20", Cells(20, Cells(20, Columns.Count).End(xlToLeft).Column)).Value
    ReDim c(1 To 1, 1 To UBound(b, 2) + 1)
    For j = 1 To UBound(b, 2) Step 2
        If b(1, j) <> "" Then
            c(1, j) = Left(sd.Item(b(1, j)), 1)
            c(1, j + 1) = Right(sd.Item(b(1, j)), 1)
        End If
    Next
    Range("B21").Resize(, UBound(c, 2)) = c
    Beep
End Sub

[Серей]

Сообщение от IgorGO

опечатка в формуле, не правильно указан диапазон (проблемы должны были быть с цифрами 0-9 и латинскими буквами A-F)

Теперь не работает на следующих символах: 0 (ноль), C, G, H, I, J, K, L, M, N, O, Q, W, X, Y, Z, c, g, h, i, g, k, l, m, n, o, q, w, x, y, z.

[Серей]

Сообщение от kalbasiatka

Рихтанул

Sub поличтото()
    Dim a(), b(), c()
    Dim i&, j&
    a = Range("A1:Q17").Value
    Set sd = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(a)
        For j = 2 To UBound(a, 2)
            If a(i, j) <> "" Then
                sd.Item(a(i, j)) = a(1, j) & a(i, 1)
            End If
        Next
    Next
    b = Range("B20", Cells(20, Cells(20, Columns.Count).End(xlToLeft).Column)).Value
    ReDim c(1 To 1, 1 To UBound(b, 2) + 1)
    For j = 1 To UBound(b, 2) Step 2
        If b(1, j) <> "" Then
            c(1, j) = Left(sd.Item(b(1, j)), 1)
            c(1, j + 1) = Right(sd.Item(b(1, j)), 1)
        End If
    Next
    Range("B21").Resize(, UBound(c, 2)) = c
    Beep
End Sub

Отрабатывает только на первой ячейке (B20), если остальные (D20 - AG20) пустые - оставляет заполненные значения.

[IgorGO]

Вы уж было меня порадовали...

Главное - помогли решить задачу глобально. А то, что не получается - попробую допилить сам

а не тут-то было.

я провтыкал, сравнение "r"="R" даст истина, необходимо сравнивать с учетом регистра.

ну и Вы отличились - некоторые символы в таблице кодировки по 2 раза написаны, в формуле СУММ..., вот она и складывает суммы и выпадает за пределы таблицы...

[Серей]

Сообщение от IgorGO

Вы уж было меня порадовали...

а не тут-то было.

я провтыкал, сравнение "r"="R" даст истина, необходимо сравнивать с учетом регистра

Не-не-не... я просто увидел, Вы начали отвечать, решил что вам интересно допилить. Мои комменты - просто по итогам тестирования, как обратная связь и ни в коем случае не призыв доделывать что-то за меня.

Сообщение от IgorGO

ну и Вы отличились - некоторые символы в таблице кодировки по 2 раза написаны, в формуле СУММ..., вот она и складывает суммы и выпадает за пределы таблицы...

Это даже не я, это NEC - приведенная таблица, это способ кодировки имени звонящего на ip-телефонах. Руками перенес таблицу из их мануала в Excel.
Еще раз спасибо за помощь - благодаря вам мата на свете станет меньше (в процессе кодировки аппаратов).