2 вопроса по Excel

сортировкой от а до я, должно помочь :) пустые строки уйдут в низ

создать и запустить такой макрос:

Sub DeleteEmptyRows()

    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

    Application.ScreenUpdating = False

    For r = LastRow To 1 Step -1

        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete

    Next r

End Sub

создать и запустить такой макрос:

Public Sub DeleteOddRows()

   

   Dim Row As Long

   For Row = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1

      If Row Mod 2 = 1 Then ActiveSheet.Rows(Row).Delete

   Next Row



End Sub

спасибо большое всем. 1 и 2 вопрос решён.

Можете помочь с 3-им?

Оу!, если не принципиально в какой ячейки окажется вариант, то самое простое будет использовать ф-ю СЦЕПИТЬ

orphelin, объясните, пожалуйста, каким образом эта функция позволит добавить скобки ?

вот так:

=СЦЕПИТЬ("(";A1;")")

где A1 номер ячейки.

Или еще более простая реализация задачи ="("&A1&")"

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

ну ок.. такой вариант тоже сойдёт

всем спасибо!