сортировка нужных строк

[mistx]

Есть таблица. В ней перечень организаций с переносом на следующую строку.
Как можно отсортировать только по начальной строке.
Было бы неплохо перенести вторую строку на первую, при этом строки первого столбца должны измениться соответственно, а пустые строки удалить.

Заранее благодарен.

[EducatedFool]

А в чём сложность?

Примените формулу для формирования нового списка:

  Ячейка: C1      Формула  (стиль A1):   =ЕСЛИ(ЕПУСТО(A2);B1&" "&B2;ЕСЛИ(ЕПУСТО(A1);"";B1))
                  Формула  (стиль R1C1): =ЕСЛИ(ЕПУСТО(R[1]C[-2]);RC[-1]&" "&R[1]C[-1];ЕСЛИ(ЕПУСТО(RC[-2])
;"";RC[-1]))

А потом уже можно сортировать:

[mistx]

Сообщение от EducatedFool

А в чём сложность?

действительно все просто. уже и забыл, что такая формула существует.
Пустые строки с помощью формулы можно удалить?


спасибо!

[mistx]

не нашел формулы, которая удаляла бы пустые строки.
Подскажите, пожалуйста макрос для удаления пустых строк определенного диапазона.

[EducatedFool]

Sub test()
    Dim ra As Range: Set ra = Intersect(Range("c:c"), ActiveSheet.UsedRange)
    ra.Value = ra.Value: ra.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[mistx]

Сообщение от EducatedFool

Sub test()
    Dim ra As Range: Set ra = Intersect(Range("c:c"), ActiveSheet.UsedRange)
    ra.Value = ra.Value: ra.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Благодарю.