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

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

10.06.2017, 17:39. Просмотров 141. Ответов 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" является заполненной.

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

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

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

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

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

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

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

5
kalbasiatka
396 / 248 / 76
Регистрация: 27.10.2012
Сообщений: 832
10.06.2017, 18:10 #2
Отсортировать массив по столбцу I, удалить лишнее.
0
OLEGOFF
966 / 426 / 107
Регистрация: 27.02.2013
Сообщений: 1,265
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 / 76
Регистрация: 27.10.2012
Сообщений: 832
10.06.2017, 23:24 #5
Цитата Сообщение от OLEGOFF Посмотреть сообщение
попробуйте так
Лучше не надо
При удалении строк цикл надо организовывать от последней строки к первой.
0
Hugo121
6211 / 2330 / 390
Регистрация: 19.10.2012
Сообщений: 6,910
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
Привет! Вот еще темы с решениями:

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

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

Удаление непустых строк
Private Sub CommandButton4_Click() If...

Удаление скрытых строк
Добрый день! Как в макросе прописать удаление скрытых строк, не проходя циклом...


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

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

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