powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с Rows.Select
5 сообщений из 5, страница 1 из 1
Проблема с Rows.Select
    #36162823
Денис_Сочи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Когда исполняется код Rows(6).Select, то выбирается и 5 и 6 строка из-за объединенных ячеек. Как сделать так, чтобы только 6 строка выбиралась?
Суть задачи стоит в том, чтобы удалить строки и все наименования шли по порядку. Количество подсчитываю правильно, но удаляется на несколько строк больше из-за неправильного выбора.

Выбираю и удаляю кодом:

Код: plaintext
1.
Rows(i).Select
Selection.Delete Shift:=xlUp
...
Рейтинг: 0 / 0
Проблема с Rows.Select
    #36162903
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
Rows(i).Select
Selection.UnMerge
Selection.Delete
...
Рейтинг: 0 / 0
Проблема с Rows.Select
    #36164875
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не так. Не зачем селектить строки. Не зачем анмержить строки где нет объединенных ячеек.

Код: plaintext
1.
2.
3.
With Rows(i)
If .MergeCells Then .MergeArea.UnMerge
.Delete
End With
...
Рейтинг: 0 / 0
Проблема с Rows.Select
    #36165206
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а такой вариант?
Код: plaintext
Rows(i).Delete Shift:=xlUp
...
Рейтинг: 0 / 0
Проблема с Rows.Select
    #36165444
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sergeyvgа такой вариант?
Код: plaintext
Rows(i).Delete Shift:=xlUp


Тогда уже просто
Код: plaintext
 Rows(i).Delete

Shift... - это опциональный оператор, имеет смысл при удалении прямоугольных блоков ячеек, для удаления строк - он бессмысленен - строку невозможно удалить по-другому, иначе как со сдвигом вверх.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с Rows.Select
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]