如何刪除特定列名中單元格爲空的所有行

它應該刪除所有行中值爲空的列中的列BI中的行。但是，我希望它刪除所有列的單元格爲空的行，其中A1單元格等於「DATA_TYPE」。

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

我該如何改變這種做法？目前，我得到一些奇怪的輸出消息返回，指出「400」，我不知道這意味着什麼...提前

感謝

來源

2017-04-26 Porkball21

有你嘗試過（複製）'Sheets（「Sheet1」）。Columns（「BI：BI」）。SpecialCells（xlCellTypeBlanks）.EntireRow.Delete'？ – pnuts

好吧，那很好，但是我怎麼能通過查找Cell A1 =「DATA_TYPE」而不是BI的列名來實現呢？ – 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

來源

2017-04-26 12:38:47 Jeremy

嗯，我得到一個調試錯誤 - Rng.EntireColumn.Address = <對象變量或與塊變量未設置> – Porkball21

@ Porkball21我的壞 - 它現在已修復 – Jeremy

非常感謝！奇蹟般有效 – Porkball21

如何刪除特定列名中單元格爲空的所有行

回答

相關問題