有没有办法删除突出显示的列？

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