Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удалить строки где в первом столбце 4 а во втором пусто - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки где в первом столбце 4 а во втором пусто (Макросы/Sub)
Удалить строки где в первом столбце 4 а во втором пусто
Kaiyr Дата: Среда, 12.02.2020, 06:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Нужен макрос в VBA по удалению строк где в первом столбце 4 а во втором пусто. Файл прикреплен.
К сообщению приложен файл: ___.xlsx(21.0 Kb)


Активный участник Википедии, могу проконсультировать. Также по казахской генеалогии и программам.
 
Ответить
СообщениеДобрый день! Нужен макрос в VBA по удалению строк где в первом столбце 4 а во втором пусто. Файл прикреплен.

Автор - Kaiyr
Дата добавления - 12.02.2020 в 06:41
Nic70y Дата: Среда, 12.02.2020, 08:54 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5945
Репутация: 1299 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "b").End(xlUp).Row
    For i = u To 6 Step -1
        v = Range("b" & i).Value
        y = Range("d" & i).Value
        If v = 4 And y = "" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]


ЯД(poison) 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "b").End(xlUp).Row
    For i = u To 6 Step -1
        v = Range("b" & i).Value
        y = Range("d" & i).Value
        If v = 4 And y = "" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 12.02.2020 в 08:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки где в первом столбце 4 а во втором пусто (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!