Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление строк во всей книге - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк во всей книге (Макросы/Sub)
Удаление строк во всей книге
Espada Дата: Вторник, 11.08.2020, 14:30 | Сообщение № 1
Группа: Пользователи
Ранг: Форумчанин
Сообщений: 100
Репутация: 0 ±
Замечаний: 0% ±

Доброго дня, подскажите пожалуйста, может у кого есть готовый макрос, или кто-то может помочь в написании. Есть файлик, на вкладке "Штрих-коды" список кодов которые нужно удалить во всём документе. т.е. на всех закладках нужно удалить строчки в которых есть штрихкод со страницы Штрих-коды
К сообщению приложен файл: 5994449.xlsx(15.0 Kb)
 
Ответить
СообщениеДоброго дня, подскажите пожалуйста, может у кого есть готовый макрос, или кто-то может помочь в написании. Есть файлик, на вкладке "Штрих-коды" список кодов которые нужно удалить во всём документе. т.е. на всех закладках нужно удалить строчки в которых есть штрихкод со страницы Штрих-коды

Автор - Espada
Дата добавления - 11.08.2020 в 14:30
NikitaDvorets Дата: Понедельник, 19.10.2020, 11:18 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 1 ±
Замечаний: 20% ±

Excel 2019
Решение без макроса прилагается.
К сообщению приложен файл: 5994449-solutio.xlsx(38.8 Kb)
 
Ответить
СообщениеРешение без макроса прилагается.

Автор - NikitaDvorets
Дата добавления - 19.10.2020 в 11:18
_Igor_61 Дата: Понедельник, 19.10.2020, 18:14 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 338
Репутация: 69 ±
Замечаний: 0% ±

Excel 2007
Вариант макроса
[vba]
Код
Sub Del_rows()
    Dim shCount&, sh&, i&, r&
    shCount = ThisWorkbook.Worksheets.Count
    Application.ScreenUpdating = False
For i = 1 To Sheets("Штрих-коды").Cells(Rows.Count, 1).End(xlUp).Row
  For sh = 1 To Sheets.Count
      ThisWorkbook.Sheets(sh).Activate
   For r = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If ThisWorkbook.Sheets(sh).Cells(r, 4).Value = ThisWorkbook.Sheets("Штрих-коды").Cells(i, 1).Value Then
       ThisWorkbook.Sheets(sh).Rows(r).Delete
    End If
  Next r
Next sh
      ThisWorkbook.Sheets("Штрих-коды").Activate
Next i
      Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: Espada.xlsm(24.2 Kb)


Сообщение отредактировал _Igor_61 - Понедельник, 19.10.2020, 18:16
 
Ответить
СообщениеВариант макроса
[vba]
Код
Sub Del_rows()
    Dim shCount&, sh&, i&, r&
    shCount = ThisWorkbook.Worksheets.Count
    Application.ScreenUpdating = False
For i = 1 To Sheets("Штрих-коды").Cells(Rows.Count, 1).End(xlUp).Row
  For sh = 1 To Sheets.Count
      ThisWorkbook.Sheets(sh).Activate
   For r = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If ThisWorkbook.Sheets(sh).Cells(r, 4).Value = ThisWorkbook.Sheets("Штрих-коды").Cells(i, 1).Value Then
       ThisWorkbook.Sheets(sh).Rows(r).Delete
    End If
  Next r
Next sh
      ThisWorkbook.Sheets("Штрих-коды").Activate
Next i
      Application.ScreenUpdating = True
End Sub
[/vba]

Автор - _Igor_61
Дата добавления - 19.10.2020 в 18:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк во всей книге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!