Заполнить ячейки и удалить строки по условию во всех листах

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

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

Заполнить ячейки и удалить строки по условию во всех листах (Макросы/Sub)

AnRusik

Дата: Пятница, 27.10.2023, 12:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

2010

Товарищи. Помогите пожалуйста: есть книга в которой куча с почти одинаковой структурой листов (отличие лишь в кол-ве строк). Во вложении пример. Нужно по всем листам макросом пройти и заменить значения начиная с A11 вниз значением из ячейки B5 при условии заполненности ячеек начиная с ячейки L11. А так же нужно удалить, при условии незаполненности ячеек начиная с L11, "лишние" строчки. В примере есть лист "Итоговый_Результат_Лист1" на примере Лист1.
Спасибо огромное, очень выручите!

К сообщению приложен файл: kniga.xlsm (15.9 Kb)

Ответить

Serge_007

Дата: Пятница, 27.10.2023, 13:18 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            If IsEmpty(Cells(i, 12)) Then Rows(i).Delete
        Next
    Next WS
End Sub

[/vba]

К сообщению приложен файл: 20231027_anrusik.xls (54.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

AnRusik

Дата: Пятница, 27.10.2023, 14:01 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

2010

Serge_007, Спасибо. А можно сделать, что бы макрос сразу все листы в книге "прошел"? Я еще обратил внимание, что макрос не вставляет в ячейки с A11 занчение ячейки B5

Сообщение отредактировал AnRusik - Пятница, 27.10.2023, 14:03

Ответить

WowGun

Дата: Пятница, 27.10.2023, 14:24 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 44

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

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

Excel 2016

For Each WS In ~~Worksheets~~ Workbooks
Наверное это имелось в виду.

УЧИТЕСЬ ... спрашивать.

Ответить

Serge_007

Дата: Пятница, 27.10.2023, 14:26 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата AnRusik, 27.10.2023 в 14:01, в сообщении № 3 (

)

не вставляет в ячейки с A11 занчение ячейки B5

Добавил:[vba]

Код

Sub AnRusik()
Dim LR&, WS As Worksheet
    For Each WS In Worksheets
     LR = WS.Cells(Rows.Count, 11).End(xlUp).Row
        For i = LR To 11 Step -1
            WS.Cells(i, 1) = WS.Cells(5, 2)
            If IsEmpty(WS.Cells(i, 12)) Then WS.Rows(i).Delete
        Next
    Next WS
End Sub

[/vba]

К сообщению приложен файл: 20231027_anrusik_v2.xls (53.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Заполнить ячейки и удалить строки по условию во всех листах (Макросы/Sub)

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