Удаление данных макросом

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

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

Удаление данных макросом (Удаление данных в строке диапазона)

Удаление данных макросом

Мур

Дата: Среда, 10.10.2012, 15:56 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 436

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

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

Приветствую участников форума!
В процессе работы появилась необходимость в макросе,
который удалял бы данные из последней строки диапазона (см пример)
Заранее благодарен за помощь.

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

Ответить

RAN

Дата: Среда, 10.10.2012, 16:01 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Code

Sub Для_удаления_строки()
Sheets("НУЖНЫЙ_ЛИСТ").Cells(Rows.Count, 1).End(xlUp).EntireRow.Delete
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Мур

Дата: Среда, 10.10.2012, 16:18 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 436

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

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

RAN, спасибо, но
таким образом удаляется строка.
Нужно удалить данные (очистить строку).

Ответить

Serge_007

Дата: Среда, 10.10.2012, 17:07 | Сообщение № 4

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Code

Sub Для_очистки_строки()
Dim i&
i = Cells(Rows.Count, 1).End(xlUp) + 6
Sheets("НУЖНЫЙ_ЛИСТ").Rows(i).ClearContents
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

_Boroda_

Дата: Среда, 10.10.2012, 17:10 | Сообщение № 5

Группа: Админы

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

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Замените в макросе от RAN делит на
ClearContents - стереть только значения
Clear - стереть все (с форматами)

Rows.Count - количество строк в листе (всего, включая пустые)
Range("A" & Rows.Count) - ячейка A1048576 (для 2007/2010)
Range("A" & Rows.Count).End(xlUp) - подняться от ячейки A1048576 вверх до первой непустой ячейки (эквивалентно Ctrl+стрелка вверх)

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

Ответить

Мур

Дата: Среда, 10.10.2012, 17:22 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 436

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

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

Serge_007, да, здорово.
Это в коде RAN, вместо EntireRow.Delete тоже можно ClearContents?
А что значит "End(xlUp)?"
И еще, после удаления последней строки выдвет ошибку
"Изменить часть объединенной ячейки невозможно"
Как записать команду по которой после очистки последней (7) строки выдало бы
сообщение, типа MSGBOX "Очистка архива завершена"?