Как получить количество строк в листе?

Question

Я пытаюсь этот код

row = 2 
With Summary 
    .Range("$A$1:$A$100").RemoveDuplicates Columns:=1, Header:=xlYes 
    For row To .Rows.Count 
     .Cells(row, 2) = 1 
     row = row + 1 
    Next row 
End With 

, но я получаю ошибку синтаксиса в для оператора цикла

Как это должно выглядеть?

Answer 1

Вам не нужен Loop:

Sub dural() 
    Dim N As Long, summary As Worksheet 
    Set summary = ActiveSheet 

    With summary 
     .Range("$A$1:$A$100").RemoveDuplicates Columns:=1, Header:=xlYes 
     N = .Cells(Rows.Count, 1).End(xlUp).Row 
     .Range("B2:B" & N).Value = 1 
    End With 
End Sub 

Примечание: код предполагает, что нет ничего в колонке .