插入或刪除列，如果不等於標題

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 

這四行代替原始文章中的所有代碼。