シートの行数を取得する方法は？

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 

をしようとしていますが、私はforループ文

に構文エラーが出るこれはどのようにのようになりますか？

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 

注：コードが列で他に何もありません想定しています。