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