ヘッダー値に基づいて列を削除し、列をスキップしません。 VBAの使用

Question

VBAを使用して、ヘッダー値に基づいてデータの列を削除しようとしています。私は間違いなくこれに初心者なので、どんな助けにも感謝します。現時点では、マクロを実行するたびに列の一部を削除するが、列の一部をスキップするように見える場合を除いて、これを行うコードを見つけることができました。列が削除されると列が新しい場所に移動するため、F5が削除され、G5がF5に移動してからクエリをエスケープするためです。これはコードです

Answer 1

これは古典的な問題です。行または列を削除する場合は、必ず最後から削除を開始してください。

Sub DeleteSpecifcColumn() 
    For i = 4 To 1 Step -1 
     If Cells(1, i) = "old" Then 
      Cells(1, i).EntireColumn.Delete 
     End If 
    Next i 
End Sub