特定の列名でセルが空白の行をすべて削除する方法

Question

現在動作していない以下のコードがあります。

シート1の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