排除macros中的标题行
我一直在寻找这个相当长的一段时间，但是我没有足够的理解来调整和实现我在这里find的其他解决scheme。
我正在使用macros在表单上执行一定数量的操作。 工作表的第一行包含标题，所以我需要从某些操作中排除第一行。
我将在下面粘贴我的代码，我知道这不是最好的方法来做到这一点（IF函数可能会更好），但这是我到现在为止。 有没有办法简单地排除macros中的整个标题行？ 或者只是在这3个步骤中排除T1，我填充列T？
Sub TASKDUESTATUS() ' ' TASKDUESTATUS Macro ' ' 'Filter Completed and In Progress ActiveSheet.UsedRange.AutoFilter Field:=21, Criteria1:= _ "=Completed", Operator:=xlOr, Criteria2:="=In Progress" 'Fill Column T with 3 Dim rX As Range Set rX = Intersect(ActiveSheet.UsedRange, Range("T:T")).Cells.SpecialCells(xlCellTypeVisible) rX.Value = "3" 'Filter Not Started ActiveSheet.UsedRange.AutoFilter Field:=21, Criteria1:= _ "Not Started" 'Filter Date up till todays date with today INCLUDED ActiveSheet.UsedRange.AutoFilter Field:=19, Criteria1:="<=" & Date 'Fill Column T with 2 Dim rX2 As Range Set rX2 = Intersect(ActiveSheet.UsedRange, Range("T:T")).Cells.SpecialCells(xlCellTypeVisible) rX2.Value = "2" 'Filter Not Started ActiveSheet.UsedRange.AutoFilter Field:=21, Criteria1:= _ "Not Started" 'Filter date after todays date with today EXCLUDED ActiveSheet.UsedRange.AutoFilter Field:=19, Criteria1:=">" & Date 'Fill Column T with 1 Dim rX3 As Range Set rX3 = Intersect(ActiveSheet.UsedRange, Range("T:T")).Cells.SpecialCells(xlCellTypeVisible) rX3.Value = "1" 'Add conditional formatting Columns("T:T").Select Selection.FormatConditions.AddIconSetCondition Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .ReverseOrder = False .ShowIconOnly = False .IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1) End With With Selection.FormatConditions(1).IconCriteria(2) .Type = xlConditionValuePercent .Value = 33 .Operator = 7 End With With Selection.FormatConditions(1).IconCriteria(3) .Type = xlConditionValuePercent .Value = 67 .Operator = 7 End With 'Clear filters ActiveSheet.UsedRange.AutoFilter Field:=21 ActiveSheet.UsedRange.AutoFilter Field:=19 End Sub 添加i = Range("a1048576").End(xlUp).Row如何find数据中最低的填充行，并将("T:T")更改为("T1:T" & i) 。
这在我的工作结束，试着让我知道。