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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить лишние столбцы по шаблону - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить лишние столбцы по шаблону (Макросы/Sub)
Удалить лишние столбцы по шаблону
bobrenja Дата: Понедельник, 18.02.2019, 12:43 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac and WIN
Добрый день.
С макросами не очень.... прошу помочь в решении задачи.
Есть 2 листа таблицы с названием столбцов.

Лист1 - много разных названий столбцов.
Лист2 - шаблон столбцов которые нужно оставить на листе1

Очень часто нужно редактировать таблицу (выбрасывать огромное к-во не нужных), хотелось бы упростить работу и сократить ошибки.
Возможно есть и другие варианты без макроса?
К сообщению приложен файл: stolb-test.xlsx(10.2 Kb)
 
Ответить
СообщениеДобрый день.
С макросами не очень.... прошу помочь в решении задачи.
Есть 2 листа таблицы с названием столбцов.

Лист1 - много разных названий столбцов.
Лист2 - шаблон столбцов которые нужно оставить на листе1

Очень часто нужно редактировать таблицу (выбрасывать огромное к-во не нужных), хотелось бы упростить работу и сократить ошибки.
Возможно есть и другие варианты без макроса?

Автор - bobrenja
Дата добавления - 18.02.2019 в 12:43
bobrenja Дата: Понедельник, 18.02.2019, 13:28 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac and WIN
Нашел на просторах интернета код, но он только удаляет столбцы которые прописаны в массив. Малость не то ((

[vba]
Код
Sub test2()

    Dim iCell As Range, iColumn As Variant
    For Each iColumn In Array("A1", "Customer name", "Carrier")
        Set iCell = ActiveSheet.UsedRange.Rows(1).Find(iColumn, , xlValues, xlWhole, , , False)
        If Not iCell Is Nothing Then iCell.EntireColumn.Delete
    Next
End Sub
[/vba]


Сообщение отредактировал bobrenja - Понедельник, 18.02.2019, 13:31
 
Ответить
СообщениеНашел на просторах интернета код, но он только удаляет столбцы которые прописаны в массив. Малость не то ((

[vba]
Код
Sub test2()

    Dim iCell As Range, iColumn As Variant
    For Each iColumn In Array("A1", "Customer name", "Carrier")
        Set iCell = ActiveSheet.UsedRange.Rows(1).Find(iColumn, , xlValues, xlWhole, , , False)
        If Not iCell Is Nothing Then iCell.EntireColumn.Delete
    Next
End Sub
[/vba]

Автор - bobrenja
Дата добавления - 18.02.2019 в 13:28
Karataev Дата: Понедельник, 18.02.2019, 19:13 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1326
Репутация: 524 ±
Замечаний: 0% ±

Excel


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
Сообщение

Автор - Karataev
Дата добавления - 18.02.2019 в 19:13
bobrenja Дата: Понедельник, 18.02.2019, 23:44 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac and WIN
Работает отлично!!
 
Ответить
СообщениеРаботает отлично!!

Автор - bobrenja
Дата добавления - 18.02.2019 в 23:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить лишние столбцы по шаблону (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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