
excel
VBASub冻结表头()Dim header As RangeDim lastRow As LongSet header = Range("A1")Set lastRow = header.End(xlUp).RowFor i = 1 To lastRowIf i = 1 Thenheader(i).EntireColumn.AutoFitheader(i).EntireColumn.USEObjectFrameSet=Falseheader(i).EntireColumn.SetHidden=TrueElseheader(i).EntireColumn.AutoFitheader(i).EntireColumn.USEObjectFrameSet=FalseEnd IfNextEnd Sub以上代码会自动设置所有行和列的数据区域,只保留表头,并且在表格滚动时保持固定位置。如果需要取消冻结,只需在上述代码中替换Set hidden=True为Set hidden=False即可。请注意,在运行宏之前,请确保已经启用了开发者选项卡。同时,也要注意修改单元格引用以适应你当前表格中实际存在的位置。希望以上内容对您有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号