Сортировка до пустой строки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сортировка до пустой строки (Макросы/Sub)

Сергей13

Дата: Воскресенье, 15.09.2019, 12:36 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!
Ребята помогите изменить диапазон сортировки таким образом, дабы сортировка осуществлялась не фиксировано как показано в коде, а c g9 до ad-пустой строки, или до ad-пустой ячейки.
[vba]

Код

Sub SortNak()
[g9:ad14].sort [g9], xlAscending, , , , , , xlYes
End Sub

[/vba]

Сообщение отредактировал Сергей13 - Воскресенье, 15.09.2019, 13:43

Ответить

RAN

Дата: Воскресенье, 15.09.2019, 15:18 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

[g9].CurrentRegion.sort [g9], xlAscending, , , , , , xlYes

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Сергей13

Дата: Воскресенье, 15.09.2019, 15:56 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

RAN, тут необходимо чтобы сортировка осуществлялась по строкам в диапазоне столбцов g9:ad9 до пустой строки или до пустой ячейки по столбцу ad9.

Ответить

RAN

Дата: Воскресенье, 15.09.2019, 16:42 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Кому действительно нужно, тот показывает, что ему нужно.

Быть или не быть, вот в чем загвоздка!

Ответить

Сергей13

Дата: Воскресенье, 15.09.2019, 19:05 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

RAN, подготовил тестовый пример под фиксированный диапазон.

К сообщению приложен файл: 8853811.xlsm (20.7 Kb)

Сообщение отредактировал Сергей13 - Воскресенье, 15.09.2019, 19:07

Ответить

krosav4ig

Дата: Воскресенье, 15.09.2019, 20:47 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте
[vba]

Код

Sub SortNak()
    Dim r As Range: Set r = [g9]
    With r.CurrentRegion
        With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells)
            .Sort r, xlAscending, , , , , , xlYes
        End With
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Pelena

Дата: Воскресенье, 15.09.2019, 20:53 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Можно ещё так попробовать
[vba]

Код

Sub SortNak()
Range(Cells(10, "g"), Cells(10, "ad").End(xlDown)).Sort [g9], xlAscending, , , , , , xlNo
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Сергей13

Дата: Воскресенье, 15.09.2019, 21:43 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Оба кода функционируют, в первом случае неясно как на основании одного данного происходит нужная сортировка…
Ребята, а можно подкорректировать так, чтобы сортировка со столбца G влияла на строки впереди стоящих столбцов, по сути диапазон сортировки d:ad а сортируется с g.