Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
lSamuro
1 / 1 / 0
Регистрация: 28.03.2016
Сообщений: 15
1

Удаление строк с ориентиром на столбец

10.06.2017, 17:39. Просмотров 752. Ответов 5
Метки нет (Все метки)

Приветствую всех гуру VBA, а также всех НЕ гуру тоже приветствую!

очередной обывательский вопрос возник

в документе Exel присутствуют несколько тысяч строк и все они берут своё начало в столбце C:6 и завершаются столбцом L:6.
Ячейки всех строк заполнены реквизитами, нумерация строк происходит по законам Exel сверху вниз 6,7,8,9,10...

И вдруг обнаруживается, что некоторые ячейки столбца "I" - пусты (например I:6, I:7, I:10, I:13, I:14)
Наличие пустых ячеек в столбце "I" означает, что вся строка подлежит полному удалению с C:6 по L:6).
И по идее место удалённой строки должна занять нижеследующая строка в которой ячейка "I" является заполненной.

Более наглядно этот вопрос постарался отразить в файле на закладках "Ввод" и "Результат".
Быть может кто подскажет каким кодом достичь решение этой задачи?

Всем благодарности, благодарности и ещё раз благодарности.
0
Вложения
Тип файла: xlsx удаление строк.xlsx (11.8 Кб, 2 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2017, 17:39
Ответы с готовыми решениями:

Добавление строк в столбец
Доброго времени суток, господа. Имеются периодически повторяющиеся числовые...

Перенос данных из строк в столбец
Господа, добрый день. Использую макрос для переноса данных из столбцов в...

Вставить значения строк в один столбец
Необходимо вставить значения строк в один столбец, при этом для каждого...

Объединить данные в 1 столбец без повторений и пустых строк
Как можно объединить данные в 1 столбец без повторений и пустых строк? С...

Ошибка «9» в модуле, который данные из строк вставляет в столбец
ЗДРАВСВУЙТЕ!!! У меня такой вопрос есть модуль который данные из строк...

5
kalbasiatka
396 / 248 / 77
Регистрация: 27.10.2012
Сообщений: 832
10.06.2017, 18:10 2
Отсортировать массив по столбцу I, удалить лишнее.
0
OLEGOFF
971 / 432 / 108
Регистрация: 27.02.2013
Сообщений: 1,266
10.06.2017, 18:45 3
Лучший ответ Сообщение было отмечено lSamuro как решение

Решение

lSamuro, попробуйте так
Visual Basic
1
2
3
4
5
6
7
8
9
Sub DeleteNullValues()
Dim i As Integer
i1 = Range("I" & Cells.Rows.Count).End(xlUp).Row
    For i = 1 To i1
        If Cells(i, 9).Value = "" Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub
1
lSamuro
1 / 1 / 0
Регистрация: 28.03.2016
Сообщений: 15
10.06.2017, 19:11  [ТС] 4
Великолепно!! Благодарю
0
kalbasiatka
396 / 248 / 77
Регистрация: 27.10.2012
Сообщений: 832
10.06.2017, 23:24 5
Цитата Сообщение от OLEGOFF Посмотреть сообщение
попробуйте так
Лучше не надо
При удалении строк цикл надо организовывать от последней строки к первой.
0
Hugo121
6286 / 2388 / 402
Регистрация: 19.10.2012
Сообщений: 7,061
10.06.2017, 23:52 6
Да и Integer - это будет работать только в некотором частном случае... когда строк только несколько тысяч
0
10.06.2017, 23:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2017, 23:52

Удаление строк
Подскажите пожалуйста, почему у меня не удаляет строки. Вот код: Sub...

удаление строк
мне надо удалить строки. Посмотрел как это делает сам excel через макрос: ...

Удаление строк
Здравствуйте! Подскажите в чем может быть проблема. Делаю макрос чтобы он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru