Добрый день.
Прошу помочь в решении задачи удаления столбцов на листе книги по заданному условию.
Есть два десятка файлов по 2-2,5 тысячи столбцов с названием и принадлежностью объекта к определенному сегменту. Из них нужно всего 10-15% данных, остальное можно удалять. В названиях столбцов есть повторяющиеся признаки, например здание, склад и дальше прикручен адрес. Хочу по условию наличия слова (части текста) в определенной ячейке найти удалить не нужные столбцы.
Пока нашел только такой вариант, но в нем не устраивает необходимость ввода условия в код "............" и точного совпадения.
Помогите, пожалуйста, сделать в коде ссылку на ячейку листа с проверкой на наличие частичного совпадения. Или подскажите как это корректно сделать.
Времени дали день, полная засада. Буду признателен за помощь.
Прошу помочь в решении задачи удаления столбцов на листе книги по заданному условию.
Есть два десятка файлов по 2-2,5 тысячи столбцов с названием и принадлежностью объекта к определенному сегменту. Из них нужно всего 10-15% данных, остальное можно удалять. В названиях столбцов есть повторяющиеся признаки, например здание, склад и дальше прикручен адрес. Хочу по условию наличия слова (части текста) в определенной ячейке найти удалить не нужные столбцы.
Пока нашел только такой вариант, но в нем не устраивает необходимость ввода условия в код "............" и точного совпадения.
Помогите, пожалуйста, сделать в коде ссылку на ячейку листа с проверкой на наличие частичного совпадения. Или подскажите как это корректно сделать.
Времени дали день, полная засада. Буду признателен за помощь.
Код |
---|
Sub Макрос2() ' 'Sub test() ' перебираем столбцы ' 2000 - это как бы последний столбец For y = 1 To 2000 ' перебираем строки ' если нужна 3-я строка, комментируем цикл for и жестко говорим что i=3 либо меняем for For i = 3 To 3 Cells(i, y).Select If (Cells(i, y).Value = "..........") Then Columns(y).Delete y = y - 1 GoTo Next_: End If Next i Next_: Next y End Sub |