Excelmacros：如何在检查列时忽略标题行

这个HideEmptyColumns()macros隐藏所有没有任何数据的列。 如何修改它，使其忽略标题行（第1行）？

 Sub HideEmptyColumns() Dim Col As Range For Each Col In ActiveSheet.UsedRange.Columns Col.EntireColumn.Hidden = RangeIsEmpty(Col) Next Col End Sub Function RangeIsEmpty(R As Range) As Boolean Dim Cell As Range RangeIsEmpty = True For Each Cell In R.Cells If Cell.Value <> "" Then RangeIsEmpty = False Exit For End If Next Cell End Function 

Answer 1

只要检查一下它是什么行

 Sub HideEmptyColumns() Dim Col As Range For Each Col In ActiveSheet.UsedRange.Columns Col.EntireColumn.Hidden = RangeIsEmpty(Col) Next Col End Sub Function RangeIsEmpty(R As Range) As Boolean Dim Cell As Range RangeIsEmpty = True For Each Cell In R.Cells 'are we not on the first row (header row) If Cell.Row <> 1 Then If Cell.Value <> "" Then RangeIsEmpty = False Exit For End If End If Next Cell End Function