Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить строки / 7 сообщений из 7, страница 1 из 1
22.01.2007, 13:48:32
    #34272123
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
Если заранее знать, какие строки удалять, то всё просто:
Код: plaintext
1.
ActiveSheet.Rows("23:45").Select
  Selection.Delete Shift:=xlUp
А как быть если номер первой строки для удаления хранится в X , а их количество - в Y ?
...
Рейтинг: 0 / 0
22.01.2007, 13:50:56
    #34272129
Дуб-дубом
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
про это?
ActiveSheet.Rows(" & X &":" & X+Y &").Select
...
Рейтинг: 0 / 0
22.01.2007, 13:51:32
    #34272130
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
Код: plaintext
ActiveSheet.Rows(X & ":" & Y).Delete Shift:=xlUp

...
Рейтинг: 0 / 0
22.01.2007, 13:52:03
    #34272133
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
т.е X+Y конечно

...
Рейтинг: 0 / 0
22.01.2007, 13:55:13
    #34272149
Oleg_Slip
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
Я думаю что так:
Код: plaintext
1.
ActiveSheet.Rows(X & ":" & X+Y).Delete Shift:=xlUp
Выделять Select`ом необязательно.
...
Рейтинг: 0 / 0
22.01.2007, 14:06:07
    #34272205
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
Всё бы хорошо, но только ругается: "Type mismatch".
Я подумал, может из-за того, что X и Y - integer, сделал так:
Код: plaintext
ActiveSheet.Rows(Str(X) & ":" & Str(X + Y)).Delete Shift:=xlUp
Всё равно "Type mismatch".
...
Рейтинг: 0 / 0
22.01.2007, 14:31:05
    #34272334
^junior^
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строки
Всем спасибо, всё работает.
Лоханулся с переменными - у меня в проекте X1 и Y1, поэтому для X и Y давало значения Empty.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удалить строки / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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