powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос на удаление по номерам
8 сообщений из 8, страница 1 из 1
макрос на удаление по номерам
    #35703025
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
всем привет. ребята, нужна помощь! Имеется файл(см. во вложении). Нужен такой макрос(или подскажите как можно без него), который бы удалял строки с определенными номерами(их задаю произвольно) из общего отчета. Заранее спасибо за помощь!
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35703072
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
akimak,

на листе 2 вводить что удалить.
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35704302
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
nporaMep, спасибо! Но что-то не могу понять, куда в этот скрипт я могу вводить номера строк, которые я хочу удалить?
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35704307
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ой, пардон, запарился... сейчас попробую :)
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35704313
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
выдает ошибку: runtime error '91' object variable or With block variable not set.

на всякий случай выкладываю оригинал файла, в котором нужно производить это выборочное удаление. Кол-во строк может меняться!
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35704402
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
akimak,

не, ну это нормально в примере просить искать соответствия в столбце А, а на деле писать их в столбец В :)

В аттаче ищет эти строки в столбце B.
Если что можно поменять строку Set d = ws.Range("B:B")

на например:
Set d = ws.Range("A:A") - ищет в столбце А
Set d = ws.Range("A:B") - ищет в столбцах А,В
Set d = ws.Range("A1").CurrentRegion - ищет во всех столбцах (посмотреть где он ищет, можно выделив A1 и нажав CTRL-A)
Set d = ws.Cells - ищет во всех ячейках
Set d = ws.UsedRange - ищет в использованных ячейках.
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35704510
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
nporaMep, спасибо большое! выручил :)
...
Рейтинг: 0 / 0
макрос на удаление по номерам
    #35707098
akimak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
nporaMep, еще к тебе такой вопрос(извини за назойливость :)

Этот макрос сейчас у нас удаляет выборочно строки(со всеми данными в них) из листа 2. А можно сделать так, чтобы он не удалял их, а ПЕРЕНОСИЛ, допустим, на другой лист? Например, 4-й?
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос на удаление по номерам
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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