excel 根据条件删除特殊单元格，如空白或突出显示

wlwcrazw 于 2022-11-26 发布在其他

关注(0)|答案(2)|浏览(187)

我有一些报告需要修改，需要删除一些特定单元格，如空白单元格或背景中的突出显示
我已经尝试录制宏来删除特殊单元格。但是，由于行号不同，位置会发生变化。我无法指定每个单元格的特定位置。
这是我的数据

这是我想要

这是我录制的宏

Sub Macro1()

 'Macro1 Macro

    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

End Sub

excel

来源：https://stackoverflow.com/questions/74569456/delete-special-cells-base-on-criteria-such-as-blanks-or-highlights

2条答案

按热度按时间

zbsbpyhn1#

您可以尝试下面的方法，更改您要删除的列
您可以使用xlcelltype XXXX更改条件
例如xlcelltype

Dim b As Range

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

        
End Sub

赞(0）回复(0）举报 2022-11-26

jgwigjjp2#

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

赞(0）回复(0）举报 2022-11-26