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

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

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

1 个答案: