Подсчет удаленных строк

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет удаленных строк (Макросы/Sub)

Gopronotmore

Дата: Четверг, 07.04.2016, 09:36 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 199

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

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

Excel 2007

Доброго всем утро форумчане!

Подскажите есть вопрос по макросу! Есть макрос который удаляет задвоенные значения, которые на выходе дают 0, а вот как сделать что бы он в информационном окне показывал количество удаленных строк

Спасибо

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

Ответить

_Boroda_

Дата: Четверг, 07.04.2016, 09:44 | Сообщение № 2

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Dybpe recjr djn nfr yfgbibnt
[vba]

Код

    On Error Resume Next
    n_ = Range("A1").Resize(UBound(arr, 1), 1).SpecialCells(xlCellTypeBlanks).Rows.Count
    Range("A1").Resize(UBound(arr, 1), 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0

    Application.ScreenUpdating = True

    MsgBox "Готово! Удалено строк: " & n_, vbInformation

[/vba]

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

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