Доброго вечера!
Пытаюсь доработать макрос так, чтобы он удалял все столбцы, кроме нужных мне. Пока никак не получается — без i = i-1 удаляет вообще какие-то левые столбцы, которых нет в списке, а с i = i -1 вообще удаляет всё и вешает Excel.
Буду благодарен за любую помощь, глаза уже в кучу... Пример файла для обработки прилагается.
Заранее спасибо.
| Код |
|---|
Sub Обработка_статистики_новый1()
'
' Обработка_статистики_новый1 Макрос
'
For i = 1 To 100 ' цикл от первого столбца до последнего
Cells(1, i).Select
If (Cells(1, i).Value = "Название сделки" Or Cells(1, i).Value = "WC total" Or _
Cells(1, i).Value = "Бюджет" Or Cells(1, i).Value = "Переводчик" Or _
Cells(1, i).Value = "WC переводчика (факт)" Or Cells(1, i).Value = "Ставка переводчика" Or _
Cells(1, i).Value = "Сумма" Or Cells(1, i).Value = "Редактор" Or _
Cells(1, i).Value = "WC редактора (факт)" Or Cells(1, i).Value = "CAT" Or _
Cells(1, i).Value = "Ставка редактора" Or Cells(1, i).Value = "" Or _
Cells(1, i).Value = "Дедлайн" Or Cells(1, i).Value = "Постобработка" Or _
Cells(1, i).Value = "Верстальщик" Or Cells(1, i).Value = "Объём вёрстки" Or _
Cells(1, i).Value = "Стоимость вёрстки" Or Cells(1, i).Value = "Примечания общие" Or _
Cells(1, i).Value = "Примечание 1" Or Cells(1, i).Value = "Примечание 2" Or _
Cells(1, i).Value = "Примечание 3" Or Cells(1, i).Value = "Примечание 4" Or _
Cells(1, i).Value = "Примечание 5" Or Cells(1, i).Value = "(До)внести стат. в SC" Or _
Cells(1, i).Value = "Ссылка в CAT/TMS") Then Else ' сравнение текста с ячейкой
Columns(i).Delete ' удалить столбец(i)
i = i - 1
Next i
End Sub
|
