Вставить или Удалить столбец, если он не равен Заголовок

Question

У меня есть заголовки столбцов, начинающиеся в столбце L в будущем. Заголовки столбцов должны быть в определенном порядке.

Рукой, мне нужно вставить столбцы, чтобы все было в порядке. Я помещаю вставку или удаление в заголовок вопроса, потому что я предполагаю, что легко пройти между ними.

Я понятия не имею, как это начать. У меня есть код для удаления строк при добавлении наблюдения с помощью «Всего». Однако как изменить его, чтобы он работал для столбцов?

LR = ThisWorkbook.Sheets("Cheese_D").Range("A" & Rows.Count).End(xlUp).Row 

With ThisWorkbook.Sheets("Cheese") 
    For i = LR To 2 Step -1 
     With ThisWorkbook.Sheets("Cheese").Range("A" & i) 
      If Right(.Value, 5) = "Total" Then .EntireRow.Delete 
     End With 
    Next i 
End With 

Answer 1

Один из способов взглянуть на столбцов в диапазоне, как это:

Set rng = Range("L:S") 
For Each col In rng.Columns 
    'do your logic and .EntireColumn.Delete 
next 

---

Или посмотрите на все столбцы в листе, как это:

For Each col in ThisWorkbook.Sheets("Cheese").Columns 
    'your logic 
Next 

---

Теперь добавьте в свою логику:

Set rng = Range("L:S") 
For Each col In rng.Columns 
    If Cells(1, col.Column).Value = "Total" Then col.EntireColumn.Delete 
next 

Эти четыре строки заменяют весь ваш код в исходном сообщении.