Удаление строк во всей книге

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление строк во всей книге (Макросы/Sub)

Espada

Дата: Вторник, 11.08.2020, 14:30 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Доброго дня, подскажите пожалуйста, может у кого есть готовый макрос, или кто-то может помочь в написании. Есть файлик, на вкладке "Штрих-коды" список кодов которые нужно удалить во всём документе. т.е. на всех закладках нужно удалить строчки в которых есть штрихкод со страницы Штрих-коды

К сообщению приложен файл: 5994449.xlsx (15.0 Kb)

Ответить

NikitaDvorets

Дата: Понедельник, 19.10.2020, 11:18 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 611

Репутация: 142 ±

Замечаний: 0% ±

Excel 2019

Решение без макроса прилагается.

К сообщению приложен файл: 5994449-solutio.xlsx (38.8 Kb)

Ответить

_Igor_61

Дата: Понедельник, 19.10.2020, 18:14 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 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

Ответить

Удаление строк во всей книге (Макросы/Sub)

Страница 1 из 1
1