Question

我下面有一些代码，目前无效。

它应该删除Sheet 1中Column BI中值为空的所有行。但是，我希望删除其中单元格为空的所有行，其中A1单元格等于“DATA_TYPE”。

Sub RemoveBlanks()
    Sheets("Sheet 1").Select
    Columns("BI:BI").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

我怎样才能改变这一点来做我想做的事情？目前，我收到一些奇怪的输出消息，说“400”，我不知道这意味着什么......

提前致谢

Answer 1

这样做：

Sub DeletedBlankCells()
Dim Rng As Range

Set Rng = Rows("1:1").Find(What:="DATA_TYPE", After:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
Sheets("Sheet1").Columns(Rng.EntireColumn.Address).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

如何删除特定列名称中单元格为空的所有行

1 个答案: