如何刪除整列如果沒有條目

你能幫我用我的簡單代碼嗎？如何刪除整列如果沒有條目

Sub DeleteBlankColumn() 
    On Error Resume Next 
    Columns("H").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete 
End Sub

注意如果沒有插入H列代碼將如何刪除一切？問題是，圖表在H5中有一個標題「Staff」。由於「職員」寫在單元格中，因此不會刪除該列。如何將代碼更改爲僅查看單元格H6和向下（在何處創建條目）？這樣，如果所有來自H6的單元格都是空白的，它將刪除整個列，包括其標題。

非常感謝！

編輯：

下面是截圖。

2016-03-07 BMRobin

謝謝大家！這是我能找到的：

Dim lr As Long 
lr = Cells(Rows.Count, "H").End(xlUp).Row 
If lr < 6 Then Columns("H").Delete

謝謝！

2016-03-17 17:18:25 BMRobin

If Range("H" & Rows.Count).End(xlUp).Row = 1 Then 
    'Delete 
End If

2016-03-07 17:56:00 Taosique

對不起！這對我不起作用:(我已經更新了我的問題，如果它有幫助。@Taosique謝謝你！ – BMRobin

@BMRobin你有沒有試過在Taosique的建議中用Range指數和xlDown代替xlUp？「H6」？ –

Hi @ Cindy謝謝，我試過你的建議，但它沒有工作:(這是我有： Sub DeleteStaffColumn（）如果Range（「H6」＆Rows.Count）.End（xlDown）.Row = 1然後 '刪除結束如果 End Sub – BMRobin

回答