Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Помогите сделать макрос с переносом и сортировкой данных
 
Всем здравствуйте!

Помогите, пожалуйста, сделать макрос с такой функцией:
При нажатии кнопки помеченые числа должны оказаться правее и располагаться по возрастанию. Прицепила пример.
Огромное спасибище!  :)
 
Код
Sub jjj_copy_and_H_sort_A()
    Dim rngR As Range
    
    With Range("B1").CurrentRegion
        .Copy .Offset(, 3 + .Columns.Count)
        With .Offset(, 3 + .Columns.Count)
            For Each rngR In .Rows
                With rngR.Parent.Sort
                    .SortFields.Clear
                    .SortFields.Add Key:=rngR, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                        xlSortNormal
                    .SetRange rngR
                    .Header = xlGuess
                    .MatchCase = False
                    .Orientation = xlLeftToRight
                    .SortMethod = xlPinYin
                    .Apply
                End With ' rngR.Parent.Sort
            Next rngR
        End With
    End With
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Спсибо  :)
Страницы: 1
Читают тему (гостей: 1)
Наверх