強調表示された列を削除する方法はありますか？

Question

私は強調表示されている列を削除するマクロ/ Excel関数を実行したいと思います。簡単な機能がありますか？

私たちは、内部手続きの重複フィールドを移入する必要がありますが、あなたは黄色で強調表示列全体を持っているので、外部の関係者

Answer 1

のための重複を削除する必要があり、これは単なる行1のセルが黄色であるかどうかをチェックします。その場合は、列が削除されます。

Sub deleteYellowColumns() 
Dim lastCol As Long, i As Long 
Dim ws as Worksheet 
Set ws = Sheets("Sheet1") ' Change this as necessary 
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column 

For i = lastCol To 1 Step -1 
    If ws.Cells(1, i).Interior.Color = 65535 Then ws.Cells(1, i).EntireColumn.Delete 
Next i 

End Sub