Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/удалить выделенные столбцы, оставив первые 3 и последние 30 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » удалить выделенные столбцы, оставив первые 3 и последние 30 (Формулы/Formulas)
удалить выделенные столбцы, оставив первые 3 и последние 30
Vintnight Дата: Среда, 16.10.2019, 15:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Vintnight
Дата добавления - 16.10.2019 в 15:39
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)
 
Ответить
Сообщение[vba]
Код
Sub vvF()
    Columns("D:XDZ").Select
    Selection.ClearContents
End Sub
[/vba]

Автор - Sergey21
Дата добавления - 16.10.2019 в 16:46
Pelena Дата: Среда, 16.10.2019, 17:54 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19166
Репутация: 4412 ±
Замечаний: ±

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
 
Ответить
СообщениеС примером было бы сподручнее, без примера как-то так
[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]

Автор - Pelena
Дата добавления - 16.10.2019 в 17:54
Vintnight Дата: Вторник, 22.10.2019, 09:21 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Vintnight
Дата добавления - 22.10.2019 в 09:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » удалить выделенные столбцы, оставив первые 3 и последние 30 (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!