Удаление на листах определенного диапазона - VBA

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста, как осуществить удаление на листах со 2 по 7 и только 30 столбцов(и только первые 15 сверху строк) после указанного количества столбцов которые надо сохранить (слева на право от столбца А)? - например 10 первых столбцов надо сохранить на листах со 2-7, все остальное надо удалить в диапазоне 30 столбцов и 15 строк сверху
я написал код удаления строк, но нет удобного варианта чтоб просто указываешь количество в какой-то всплывающей таблички при нажатии макроса и все удалялось
попытался так, не выходит с несколькими листами, только с одной активной

Решение задачи: «Удаление на листах определенного диапазона»

textual
Листинг программы
i = Application.InputBox("Удаление", Type:=1)
For c = 2 To 7
    Worksheets("Лист" & c).Cells(1, i + 1).Resize(15, 30).Delete xlToLeft
Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы