Удалить строки по условию если в ячейке 0

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки по условию если в ячейке 0 (Макросы/Sub)

dx84

Дата: Понедельник, 12.05.2014, 18:13 | Сообщение № 1

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

Ранг: Участник

Сообщений: 71

Репутация: -8 ±

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

Excel 2010

Всем доброго дня!
Уважаемые спецы нужен макрос который бы удалял с листа (день) строки если в столбце (С) имеются ячейки которые равны 0.

К сообщению приложен файл: 3948024.xlsx (8.5 Kb)

Ответить

Pelena

Дата: Понедельник, 12.05.2014, 18:23 | Сообщение № 2

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

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

Сообщений: 19196

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

Замечаний: ±

Excel 365 & Mac Excel

Поиском не пробовали пользоваться?
http://www.excelworld.ru/board....-1-0-36

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

dx84

Дата: Понедельник, 12.05.2014, 18:31 | Сообщение № 3

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

Ранг: Участник

Сообщений: 71

Репутация: -8 ±

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

Excel 2010

Pelena, В моем случае условие значение а там Level 2 пробивал менять не получилось

Ответить

AlexK

Дата: Понедельник, 12.05.2014, 18:54 | Сообщение № 4

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

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

Сообщений: 34

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

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

Excel 2010

Примерно так, но кол-во строк не должно превышать 2000

К сообщению приложен файл: 3948024-1.xlsx (12.9 Kb)

Ответить

nilem

Дата: Понедельник, 12.05.2014, 18:55 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

для примера:
[vba]

Код

Sub example_05()
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("день").Range("B2").CurrentRegion
     .Columns(2).Replace 0, Empty
     .Sort Key1:=.Cells(1, 2), Order1:=xlAscending
     .Columns(2).SpecialCells(4).EntireRow.Delete
     .Parent.UsedRange
End With
Application.ScreenUpdating = True
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

krosav4ig

Дата: Понедельник, 12.05.2014, 18:57 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

[vba]

Код

Private Sub del_0()
      Dim rng As Range
      With ThisWorkbook.Worksheets("день").Range("C:C")
          Set rng = .Find(0, , LookIn:=xlValues, lookat:=xlWhole)
          If Not rng Is Nothing Then
              Do
                  rng.EntireRow.Delete
                  Set rng = .FindNext()
              Loop While Not rng Is Nothing
          End If
      End With
End Sub

[/vba]