Добрый вечер, уважаемые форумчане
Подскажите что подправить:
появилась ошибка при открытии файла после сортировки столбцов (на VBA)/
Сортирую таким образом:
Подскажите что подправить:
появилась ошибка при открытии файла после сортировки столбцов (на VBA)/
Сортирую таким образом:
Код |
---|
With .Sort .SortFields.Add Key:=Range(Cells(1, 4), Cells(1, Application.WorksheetFunction.Match("Âñã", Range("D1:AX1"), False))), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range(Cells(1, 4), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Application.WorksheetFunction.Match("Âñã", Range("D1:AX1"), False))) .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With |