VBAで赤い見出しが付いている列を削除するには

Question

赤い見出しのファイルがありますが、VBAコードを使用して列全体を削除しますか？ ループを使用して赤い見出しを見つけ、Column Countrtではなく列を削除できますか？

Answer 1

************もColumns(ICntr).Delete

************* EDITにColumns(ICntr).EntireColumn.Deleteを変更Cells(1,ICntr).とFont.ColorIndex間のラインIf Cells(1,ICntr). Font.ColorIndex = 3 Thenにスペースを削除します：
見出しにデータ/テキスト（最初の列のセル）があると仮定すると、このマクロはトリックを行います。 ROWSまたはCOLUMNSをループして削除するときは、ループを常に逆にして、すべての行または列がチェックされていることを確認してください。

Sub DeleteColumnsWithRedHeader() 

Dim ws As Worksheet 
Dim lColumn As Long 
Dim i As Long 

'Change to you sheet name!!!!!!!!!!!!! 
Set ws = Sheets("YOUR_SHEET_NAME") 

'This will give you the last column index with data 
lColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column 

'Loop through all column with data - REVERSE LOOP TO CHECK ALL COLUMNS 
For i = lColumn To 1 Step -1 

    'If first cell in column is RED then delete that column 
    If ws.Cells(1, i).Interior.ColorIndex = 3 Then ws.Columns(i).Delete 

Next i 

End Sub