Question

если в колонке А записаны буквы английского алфавита, как в Экселе с помощью VBA записать в колонке В номера этих букв по алфавиту?

Answer 1

Для удобства запуска на листе рабочей книги установлена кнопка и в ней прописан следующий код:

Private Sub CommandButton1_Click()
    cA = Asc("A") - 1
    a = Range("A2:B27")
    For i = 1 To 26
        a(i, 1) = UCase(a(i, 1))
        a(i, 2) = Asc(a(i, 1)) - cA
    Next i
    Range("A2:B27") = a
End Sub

Во вложении находится рабочая книга Excel-2003.

Answer 2

Вот пример кода на VBA, который записывает номера букв английского алфавита в колонку B, соответствующие буквам в колонке A:

vbaCopy code
Sub НомераБукв()
    Dim последняяСтрока As Long
    Dim ячейка As Range
    
    последняяСтрока = Cells(Rows.Count, 1).End(xlUp).Row
    
    For Each ячейка In Range("A1:A" & последняяСтрока)
        ячейка.Offset(0, 1).Value = Asc(UCase(ячейка.Value)) - 64
    Next ячейка
End Sub

Прежде чем запустить этот код, убедитесь, что в колонке A есть буквы английского алфавита. Код найдет последнюю заполненную строку в колонке A и затем выполнит цикл для каждой ячейки в диапазоне от A1 до последней заполненной строки. В колонку B будет записываться номер каждой буквы по алфавиту.

Чтобы запустить код, выполните следующие шаги:

1. Откройте Excel и активируйте вкладку "Разработчик" (если она еще не отображается, вы можете активировать ее в настройках Excel).
2. Щелкните на кнопке "Visual Basic" в группе "Код" на вкладке "Разработчик".
3. В окне VBA нажмите Insert и выберите Module, чтобы добавить новый модуль.
4. Скопируйте и вставьте код в новый модуль.
5. Закройте окно VBA и вернитесь к своему листу Excel.
6. Запустите макрос, выбрав его вкладку "Разработчик" -> "Макрос" -> "НомераБукв".
7. Номера букв будут записаны в колонку B рядом с соответствующими буквами в колонке A.

Обратите внимание, что код предполагает, что буквы в колонке A записаны в верхнем регистре. Если есть вероятность, что в колонке A будут и маленькие буквы, вам нужно изменить UCase на LCase в коде.