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

我想运行一个macros/ Excelfunction，删除突出显示的列。 有这个简单的function吗？

我们需要为内部程序填充重复的字段，但需要删除外部方的重复项

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