удалить выделенные столбцы, оставив первые 3 и последние 30

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

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

удалить выделенные столбцы, оставив первые 3 и последние 30 (Формулы/Formulas)

Vintnight

Дата: Среда, 16.10.2019, 15:39 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Добрый день!
Вопрос в следующем;
Нужно с помощью макроса выделить область на листе, отступив первых три столбца(то-есть с лева на право три) и последних 30(то-есть
справа налево). И в последствии удалить выделенную область, оставив первые 3 и последние 30. Как это сделать?

Сообщение отредактировал Pelena - Среда, 16.10.2019, 18:00

Ответить

Sergey21

Дата: Среда, 16.10.2019, 16:46 | Сообщение № 2

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

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

Сообщений: 14

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

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

Excel 2016

[vba]

Код

Sub vvF()
Columns("D:XDZ").Select
Selection.ClearContents
End Sub

[/vba]

К сообщению приложен файл: 12.xltm (12.7 Kb)

Ответить

Pelena

Дата: Среда, 16.10.2019, 17:54 | Сообщение № 3

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

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

Сообщений: 19392

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

Замечаний: ±

Excel 365 & Mac Excel

С примером было бы сподручнее, без примера как-то так
[vba]

Код

Public Sub ddd()
    r0 = 1 'начальная строка
    c0 = 1 'начальный столбец
    col = Cells(r0, Columns.Count).End(xlToLeft).Column 'последний заполненный столбец
    If col - c0 > 32 Then Columns(c0).Offset(, 3).Resize(, col - с0 - 32).Delete
End Sub

[/vba]

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

Ответить

Vintnight

Дата: Вторник, 22.10.2019, 09:21 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2007

Извиняюсь за долгое молчание. Pelena ОГРОМНОЕ СПАСИБО все гениальное просто.....Это именно то что нужно!!!!

Ответить

удалить выделенные столбцы, оставив первые 3 и последние 30 (Формулы/Formulas)

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