Сортировка значений с сохранением структуры порядка пробелов

Vlad_Sm Пользователь Сообщений: 14 Регистрация: 01.10.2019	#1 30.12.2019 17:48:50 . Изменено: Vlad_Sm - 10.11.2020 10:06:59

Андрей VG Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#2 30.12.2019 20:23:53 Доброе время суток Вариант на Power Query Прикрепленные файлы Книга1 (10).xlsx (19.97 КБ)

Андрей_26 Пользователь Сообщений: 647 Регистрация: 30.01.2018	#3 30.12.2019 21:35:09 Выделяете соответствующую строку (2, 18, 34 и т.д.) ставите фильтр и сортируете как Вам угодно. Прикрепленные файлы Книга1.xlsx (9.42 КБ)

artyrH Пользователь Сообщений: 2054 Регистрация: 01.07.2018	#4 30.12.2019 22:21:51 . Прикрепленные файлы Книга1 (14).xlsx (10.85 КБ)

Smurov

Пользователь

Сообщений: 40 Регистрация: 27.04.2019

31.12.2019 19:58:25

Добрый день!
Решение при помощи макроса.

Код

Sub SortWithBlanks()
With Sheets(1).Columns(1)
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
        If Trim(.Cells(i).Value) = "" Then .Cells(i).Offset(1, 0).CurrentRegion.Sort Key1:=.Cells(i).Offset(1, 0), Order1:=2
    Next
End With
End Sub