Очистка строки от значений без удаления формул

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка строки от значений без удаления формул (Макросы/Sub)

dmtgrs

Дата: Среда, 26.12.2018, 10:58 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Помогите пожалуйста
Нашел макрос (на сколько правильный не знаю, ибо совсем новичок), который вставляет скопированную строку, но мне нужно чтобы после вставки строки во всех ячейках очищались значения, а формулы оставались.
[vba]

Код

Sub Добавление_строки()

Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Insert Shift:=x1Down

End Sub

[/vba]

К сообщению приложен файл: __.xlsm (66.2 Kb)

Сообщение отредактировал dmtgrs - Среда, 26.12.2018, 11:01

Ответить

Roman777

Дата: Среда, 26.12.2018, 12:00 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

dmtgrs, Вы имели в ввиду такое действие?
[vba]

Код

Sub Добавление_строки()
Dim r As Range
    Application.ScreenUpdating = False
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=x1Down
    With ActiveSheet.Rows(ActiveCell.Row + 1)
        For Each r In .SpecialCells(xlCellTypeConstants)
            r = ""
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Среда, 26.12.2018, 12:01

Ответить

dmtgrs

Дата: Среда, 26.12.2018, 12:23 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Класс!!! Огромнейшее спасибо!

Ответить

_Boroda_

Дата: Среда, 26.12.2018, 12:25 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Еще вариант
[vba]

Код

Sub DobStr()
on error resume next
    With Rows(ActiveCell.Row)
        .Copy
        .Insert Shift:=x1Down
        .SpecialCells(xlCellTypeConstants, 23).ClearContents
    End With
End Sub

[/vba]

*Что-то у меня Ваш файл глючит

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка строки от значений без удаления формул (Макросы/Sub)

Страница 1 из 1
1