Макрос на два диапазона листов

Вход

Регистрация

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

= Мир MS Excel/Макрос на два диапазона листов - Мир MS Excel

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

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

Макрос на два диапазона листов (Макросы/Sub)

Макрос на два диапазона листов

Alex2354

Дата: Суббота, 23.04.2022, 14:58 | Сообщение № 1

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

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

Сообщений: 18

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

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

Добрый день.

Есть книга с листами: "Л1", "Л1 Итог", "Л2", "Л2 Итог", "Л3", "Л3 Итог", ..."

Необходимо для листов: "Л1, Л2, Л3, ..." выполнить одну последовательность действий (например, удались столбцы A, B, C)
А для листов: "Л1 Итог, Л2 Итог, Л3 Итог, ..." другую (например, удались столбцы D, E, F)

Помогите, пожалуйста, запихнуть номера листов в два цикла.

В диспетчере имен "Л1, Л2, Л3, ..." сохранены под именем "Листы", а "Л1 Итог, Л2 Итог, Л3 Итог..." под именем "Итог"
Можно ли их названия взять из диспетчера имен? Если нет, то помогите сделать перебор.

Спасибо.

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

Сообщение отредактировал Alex2354 - Суббота, 23.04.2022, 14:58

Ответить

Pelena

Дата: Суббота, 23.04.2022, 17:30 | Сообщение № 2

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

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

Сообщений: 19403

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте
[vba]

Код

Public Sub www()
    Dim nm
    For Each nm In [Листы].Value
        Sheets(nm).Columns("A:C").Delete
    Next nm
    For Each nm In [Итог].Value
        Sheets(nm).Columns("D:F").Delete
    Next nm
End Sub

[/vba]

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Макрос на два диапазона листов (Макросы/Sub)

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