删除两行表头的列空值，如何写宏代码？

hy7525

各位大神，我想删除两行表头的列空值，如何写宏代码？我找到了一段代码，但只能是单行表头的，请各位帮忙看看怎么改，最好实现这个效果，实际工作中，表的行列数不等。谢谢！
Sub DeleteBlankColumn()
Dim i As Integer
Dim X As Integer
're = [a1].CurrentRegion.ListHeaderRows
X = [iv1].End(xlToLeft).Column
For i = X To 1 Step -1
    If Cells(65536, i).End(xlUp).Row = 1 Then
        Debug.Print i
        Columns(i).Delete
    End If
Next
End Sub

08yj2001

把=1改成等于2试试

hy7525

08yj2001 发表于 2018-9-16 16:12
把=1改成等于2试试

试过了，不行，没反应

08yj2001

hy7525 发表于 2018-9-16 17:17
试过了，不行，没反应

我这测试是可以实现的

lsc900707

不会用吧，第一行也要先行删除的。测试附件：

hy7525

08yj2001 发表于 2018-9-17 12:05
我这测试是可以实现的

谢谢您的热心帮助， 我之前改1的地方改错了，再次感谢您！

hy7525

lsc900707 发表于 2018-9-17 12:49
不会用吧，第一行也要先行删除的。测试附件：

谢谢您的热心帮助，是我之前改错地了，再次感谢您！