使滤镜下拉菜单移动到标题 - VBA Excel 2016

Question

向下滚动时，第1行应替换标题中的字母，但使用我的代码它就会像普通行一样消失。 如何我必须改变，为了我的代码得到这个结果？：

（默认的Excel 2016 CSV导入）

现有代码：

With ActiveSheet .Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address).AutoFilter End With

Answer 1

要隐藏标题

个

它是在带状...查看... ...显示标题

VBA代码

ActiveWindow.DisplayHeadings = False 

然后分裂和冻结顶行

记录，如果你的动作宏需要代码

Answer 2

这个问题的解决方案是创建一个表（插入 - >表 - >表）并选择“我的表有头”

Guide on support.office.com