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

我有下面的一些代码，目前不工作

它应该删除表1中BI列中值为空的所有行。但是，我希望它删除A1单元格等于“数据类型”的列中单元格为空的所有行

我怎样才能改变它来做我想要的？目前，我收到了一些奇怪的输出消息，上面写着“400”，我不知道这是什么意思

提前感谢

这样就可以了：

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

---

好的，这很好，但是我如何通过从单元格A1=“DATA_TYPE”而不是BI中定位列的名称来实现呢？嗯，我遇到了一个调试错误-Rng.entireclumn.Address=@Porkball21我的错-现在已经修复了，非常感谢！很有魅力

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