部分代码:
objBook.Sheets("sheet1").Rows("1:1").AutoFilter objSheet.Range("A:A").EntireColumn.Hidden = True
附 件:
点击下载此附件
演 示: