excel - 从 USEDRANGE 方法中排除第一行(它是我的工作表中的第 1 行)？

Question

我有一些来自经纪人的输入数据。我编写了一些代码来自动计算、添加列并插入一些公式。

最后，我想做一些条件格式化(影响整行)来确定有利可图的交易(绿色字体整行)和丢失的交易(红色字体整行)。

为此，我使用了 USEDRANGE 方法 - 我知道这是一个棘手的方法，因为我的数据是一致的 - 没有空行，只有几个空列，所以我认为 USEDRANGE 可以处理它。我需要使用 USEDRANGE，因为下次运行此报告时会有更多行。

但是我的数据中有第一行，我在其中保留标题 4 我的列。

我希望我的标题保持黑色(字体)，但我仍然想使用 USEDRANGE 方法。

如何使用 USEDRANGE 方法执行条件格式，不包括第一行(因此它保持黑色字体)。

Option Explicit
Dim RowNumber As Long
Dim LastRow As Long
Dim ColumnNumber As Integer
Dim LastColumn As Integer
Dim VBA As Worksheet
Dim TotalRange As Range

Sub CondicionalFormating_WholeRows()
    Set VBA = Workbooks("lista transakcji Dukascopy od October 2015.xlsm").Worksheets("VBA")
    Set TotalRange = VBA.UsedRange
    LastRow = VBA.Cells(Rows.Count, 1).End(xlUp).Row
    LastColumn = VBA.Cells(1, Columns.Count).End(xlToLeft).Column

TotalRange.FormatConditions.Add Type:=xlExpression, Formula1:="=$H1<0"
TotalRange.FormatConditions(TotalRange.FormatConditions.Count).SetFirstPriority
    With TotalRange.FormatConditions(1).Font
        .Bold = False
        .Italic = False
        .Strikethrough = False
        .Color = -16777024
        .TintAndShade = 0
    End With
    TotalRange.FormatConditions(1).StopIfTrue = False

TotalRange.FormatConditions.Add Type:=xlExpression, Formula1:="=$H1>0"
TotalRange.FormatConditions(TotalRange.FormatConditions.Count).SetFirstPriority
    With TotalRange.FormatConditions(1).Font
        .Bold = False
        .Italic = False
        .Strikethrough = False
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.499984740745262
    End With
    TotalRange.FormatConditions(1).StopIfTrue = False

    '   VBA.Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select
End Sub

Answer 1

Set TotalRange = VBA.UsedRange '<<< your existing line

'Add this line right after
Set TotalRange = TotalRange.Offset(1,0).Resize(TotalRange.Rows.Count-1, _
                                               TotalRange.Columns.Count)