Excel: Удаление строчки целиком со смещением номеров

[Maitris]

Мне нужно удалить строку, например 152, и чтобы 152 строкой стала следующая строка.
Как это осуществить?

[alibek]

Строки всегда удаляются со смещением номеров.

[bi-lya]

Код: Выделить всё

    Rows("152:152").Select
    Selection.Delete Shift:=xlUp


Это что, прикол? Простейший макрос отвечает...

[Pavel55]

позволю себе немного изменить вышеуказанный код на

Код: Выделить всё

Rows(152).EntireRow.Delete shift:=xlUp

но этого ли хотел автор темы, вроде в Excel автоматически перестраиваются все ссылки и номера столбцов и рядов

[Nicky]

позволю себе немного изменить вышеуказанный код на

Код: Выделить всё

Rows(152).Delete

[Pavel55]

Nicky рулит ))

P.S. Cells.Delete - ещё лучше)

[Nicky]

expression.Delete(Shift)

expression Required. An expression that returns an object in the Applies To list.

Shift Optional Variant. Used only with Range objects. Specifies how to shift cells to replace deleted cells. Can be one of the following XlDeleteShiftDirection constants: xlShiftToLeft or xlShiftUp. If this argument is omitted, Microsoft Excel decides based on the shape of the range.