Как мне сделать мои формулы условного формата более динамичными?

Question

Sub Top10()

Dim rngRows As Range, rngCols As Range

LastRow = Range("CA" & Rows.Count).End(xlUp).Row

Set rngRows = Range("CA" & LastRow + 1)
Set rngCols = rngRows & columns.count

End Sub

Я пытаюсь вставить формулу промежуточного итога в строку смещения +1 столбца CA и расширить ее до столбца DO (последний столбец).

Как мне обновить это, чтобы сделать это?

Как я также могу изменить это, чтобы отразить эти динамические строки / столбцы?

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=CA$50452>=LARGE($CA$50452:$DO$50452,10)"
Selection.FormatConditions(Selection.FormatConditions.Count).Set

Как мне реализовать материал lastrow / lastcolumn в коде условного форматирования?

Answer 1

Вот ответ на первый:

Sub Top10()

Dim ws As Worksheet
Set ws = Worksheets("Sheet1") 'Change to your sheet

Dim LastRow As Long
LastRow = Range("CA" & Rows.Count).End(xlUp).Row

Dim LastCol As Long
LastCol = ws.Cells(LastRow, ws.Columns.Count).End(xlToLeft).Column

'This will sum everything from row 2 to the last used row.
'Change the 2 in the formula to your first row.
ws.Range(ws.Cells(LastRow + 1, "CA"), ws.Cells(LastRow + 1, LastCol)).Formula = "=SUM(CA2:CA" & LastRow & ")"

End Sub