vba - 如果不等于标题，则插入或删除列

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

这四行替换了原始帖子中的所有代码。