Страницы: 1
RSS
Автоматическое удаление констант в Макросе
 
Доброго всем времени суток!
Проблема такая. Макрос Copyval, перемещает крайнюю строку (Итого) вниз, а предыдущую ПОЛНОСТЬЮ КОПИРУЕТ вниз. Подскажите пожалуйста как сделать так чтобы у предпоследней строки копировались только функции и формулы, а константы удалялись.
Файл прикрепил  
 
Лев Погудин, добрый вечер.
 
Лев Погудин Здравствуйте Неверно можно еще так.
Код
Sub Copyval()
Dim sh As Worksheet
Set sh = Worksheets("лист1") ' При необходимости пишите имя листа
LR = sh.Range("AA13").End(xlDown).Row
Application.ScreenUpdating = False
sh.Range("B" & LR & ":AE" & LR).Copy sh.Range("B" & LR + 1)
sh.Range("B" & LR - 1 & ":AE" & LR - 1).Copy sh.Range("B" & LR)
On Error GoTo ex
sh.Range("B" & LR & ":AE" & LR).SpecialCells(xlCellTypeConstants, 23).ClearContents
ex:
With sh.Cells(sh.Rows.Count, 1).End(xlUp)
.Offset(1) = .Value + 1
End With
Application.ScreenUpdating = True
End Sub
Страницы: 1
Наверх