0

L列から始まる列見出しがあります。列見出しは特定の順序にする必要があります。

手で列を挿入する必要があるため、すべてが整然としています。質問のタイトルに挿入または削除を入れました。2つの間を行き来するのは簡単だと思うからです。

これを開始する方法がわかりません。観測に「合計」が追加されたときに行を削除するコードがあります。ただし、列で機能するように変更するにはどうすればよいですか?

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
4

1 に答える 1

0

範囲内の列を確認する 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

これらの 4 行は、元の投稿のすべてのコードを置き換えます。

于 2013-10-03T19:20:05.880 に答える