Нужно написать программу сортировки по латинскому алфавиту

[Галина Козлова]

Здравствуйте. Очень нужна помощь, пишу курсовую на тему "Разработка программы сортировки по латинскому алфавиту". Нужно написать программу, которая будет сортировать в VBA из таблицы в Excel. Желательно подробно объясняя, так как я дуб дубом.

[Aleksandr H.]

Option Explicit

Sub Макрос1()
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A1:A500") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A1:A500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub