Удалить лишние столбцы по шаблону

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить лишние столбцы по шаблону (Макросы/Sub)

bobrenja

Дата: Понедельник, 18.02.2019, 12:43 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 123

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

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

Excel для Mac and WIN

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

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

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

К сообщению приложен файл: stolb-test.xlsx (10.2 Kb)

Ответить

bobrenja

Дата: Понедельник, 18.02.2019, 13:28 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 123

Репутация: 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]