如果没有输入，如何删除整个列

Question

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

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

如果H列中没有插入任何内容，请注意代码如何删除所有内容？问题，图表在H5中有一个标题，“Staff”。因为“Staff”是在单元格中写入的，所以不会删除该列。 如何将代码更改为仅查看单元格H6和向下（条目的位置）？这样，如果来自H6的所有单元格都是空白，则会删除整个列，包括其标题。

非常感谢你！

编辑：

这是截图。

Answer 1

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

Answer 2

谢谢大家！这就是我能找到的：

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

谢谢！