VBA - как автозаполнение полностью вниз до последней ячейки B данными

Question

Я записал макрос и попытался автоматически заполнить столбец C функцией COUNTIF до тех пор, пока столбец B не получит значение последней ячейки. Это не работает с новыми данными, поэтому я попытался отредактировать макрос и заменить его на Range ("D2: D"), но это не сработало.

Sub COUNTIF()
'
' COUNTIF Macro
'

'
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-3],RC[-3])>1"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D")
End Sub

Answer 1

Лучше найти последнюю ячейку. Также избегайте использования select, так как это замедляет ваш код.

Sub COUNTIF()

Dim LastRowB As Long
LastRowB = Range("B" & Rows.Count).End(xlUp).Row
Range("D2").FormulaR1C1 = "=COUNTIF(C[-3],RC[-3])>1"
Range("D2: " & "D" & LastRowB).FillDown

End Sub

Теперь измените формулу "=COUNTIF(C[-3],RC[-3])>1" на то, что вы действительно хотите заполнить.