使濾鏡下拉菜單移動到標題 - 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