根据空白或高亮等条件删除特定单元格答案

【问题标题】：Delete special cells base on criteria such as blanks or highlights根据空白或高亮等条件删除特定单元格
【发布时间】：2022-11-25 15:45:11
【问题描述】：

我有一些报告需要通过删除某些特定单元格（例如背景中的空白单元格或突出显示）来修改

我试图录制宏来删除特殊单元格。但是，位置将根据行号的不同而改变。我无法指定每个单元格的特定位置。

这是我的数据

这是我期望得到的

这是我录制的宏

`子宏 1()

'宏1宏

Range("B4").Select
Selection.Delete Shift:=xlToLeft
Range("B16").Select
Selection.Delete Shift:=xlUp
Range("B24").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll Down:=12
Range("B30").Select
Selection.Delete Shift:=xlToLeft

结束子`

【问题讨论】：

标签： vba excel-formula

【解决方案1】：

提前右键单击所选单元格，然后从右键单击菜单中选择删除。然后在弹出的删除对话框中查看整行选择，点击确定按钮。现在你会看到所有包含确定费用的单元格都被删除了。

【讨论】：

【解决方案2】：

您可以尝试以下操作，更改要删除的列

您可以使用 xlcelltype XXXX 更改条件

例如 xlcelltype

Dim b As Range

For Each b In [B:B].SpecialCells(xlCellTypeBlanks, 1).Offset(0, -1).Areas
    b.Delete Shift:=xlToLeft
Next
    
    
    Cells.Select
    Cells.EntireColumn.Autofit

        
End Sub

【讨论】：