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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить строки, если ячейка столбца пустая, начиная от слова - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удалить строки, если ячейка столбца пустая, начиная от слова
timo64uk Дата: Четверг, 07.11.2024, 12:49 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
Добрый день :)
В столбце С есть текст "от Заказчика / Owner" (блуждающий по строкам, но фиксированный по столбцу С), после данного текста и до последней заполненной ячейки по столбцу F нужно удалить строки, если по столбцу F в ячейке пусто (нет текста, цифр, символов).
Этот код съедает строку с текстом "от Заказчика / Owner": [vba]
Код
PS = Range("F" & Rows.Count).End(xlUp).Row
    PF = Application.Match("от Заказчика / Owner", Range("C:C"), 0)
    For i = PS To PF Step -1
    If Cells(i, 6) = "" Then
    Rows(i).Delete
    End If
    Next
[/vba]
Помощи прошу.
(отредактировал, т.к. файл доложил)
К сообщению приложен файл: 111002.xlsx (228.5 Kb)


Сообщение отредактировал timo64uk - Пятница, 08.11.2024, 02:44
 
Ответить
СообщениеДобрый день :)
В столбце С есть текст "от Заказчика / Owner" (блуждающий по строкам, но фиксированный по столбцу С), после данного текста и до последней заполненной ячейки по столбцу F нужно удалить строки, если по столбцу F в ячейке пусто (нет текста, цифр, символов).
Этот код съедает строку с текстом "от Заказчика / Owner": [vba]
Код
PS = Range("F" & Rows.Count).End(xlUp).Row
    PF = Application.Match("от Заказчика / Owner", Range("C:C"), 0)
    For i = PS To PF Step -1
    If Cells(i, 6) = "" Then
    Rows(i).Delete
    End If
    Next
[/vba]
Помощи прошу.
(отредактировал, т.к. файл доложил)

Автор - timo64uk
Дата добавления - 07.11.2024 в 12:49
Nic70y Дата: Четверг, 07.11.2024, 13:18 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
PF = Application.Match("от Заказчика / Owner", Range("C:C"), 0) +1
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 07.11.2024, 13:18
 
Ответить
Сообщение[vba]
Код
PF = Application.Match("от Заказчика / Owner", Range("C:C"), 0) +1
[/vba]

Автор - Nic70y
Дата добавления - 07.11.2024 в 13:18
timo64uk Дата: Пятница, 08.11.2024, 02:45 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
Спасибо большое.
 
Ответить
Сообщение Спасибо большое.

Автор - timo64uk
Дата добавления - 08.11.2024 в 02:45
  • Страница 1 из 1
  • 1
Поиск:

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