如何删除整个列，如果没有条目

你能用我简单的代码来帮助我吗？

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

请注意，如果在H列中没有插入任何内容 ，代码将会删除所有内容 。 问题是，图表在H5中有一个标题“Staff”。 因为“职员”是写在一个单元格中，所以不会删除该列。 我怎样才能改变代码，只看单元格H6和下（在哪里进入）？ 这样，如果所有来自H6的单元格都是空白的，它将删除整个列，包括其标题。

非常感谢！

编辑：

这是一个截图。

Answer 1

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

Answer 2

谢谢大家！ 这是我能够find的：

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

谢谢！