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.

5d4c6b0924f9ab5a9d7c92c7d3cd58f1.xls