Необходимо найти в заданном файле последнюю непустую строку, содержащую данные или формулу, и удалить её.
версия Excel 2016
| Код |
|---|
CountStr = ActiveCell.SpecialCells(xlLastCell).Row ' Считаем количесство рядов
Rows("CountStr:CountStr").Select ' ВЫДЕЛЯЕМ СТРОКУ с номером CountStr, здесь неправильно использована переменная
Selection.Delete Shift:=xlUp ' УДАЛЯЕМ выделенную СТРОКУ С ПОДНЯТИЕМ |
версия Excel 2016