VBA 実行時エラー424（オブジェクトが必要です）の原因を教えて下さい。

Question

以下のコードを実行してみると、
lastRow = ws.Cells(Row.count, 1).End(xlUp).Row
の部分で、実行時エラー424（オブジェクトが必要です）が出てきてしまいます。
Set lastRow = ws.Cells(Row.count, 1).End(xlUp).Row
としてもダメでした。

どなたか、教えてくだされば幸いです。
宜しくお願いします。

Sub 計算_Click()
     Call reCalc
End Sub

Sub reCalc()
    
    file = Application.GetOpenFilename(",*.xlsx")
        
    Set wb = Workbooks.Open(file)
    
    Set ws = wb.Worksheets(1)
    
    
    Dim lastRow As Integer
    
    lastRow = ws.Cells(Row.count, 1).End(xlUp).Row
    
    
    Dim lastRow2 As Integer
    
    lastRow2 = ThisWorkbook.Worksheets("sheet1").Cells(Row.count, 1).End(xlUp).Row
    
    
    Dim a As Integer
    Dim count As Integer
    
    For i = 2 To lastRow
        count = 0
        
        For j = i + 1 To lastRow
            If Cells(i, 1) = Cells(j, 1) Then
                a = Cells(i, 1)
                count = count + 1
            Else
                Exit For
            End If
        Next j
        
        For k = 2 To lastRow2
            If Cells(k, 1).Value = Cells(i, 1) Then
                Cells(k, 2).Value = count
                Exit For
            End If
        Next k
        
        
    Next i
    
       
                
                
            
            
    
    

End Sub

Answer 1

問題が起きたコードで使っている Row の定義が、質問に書かれたコードには見当たりません。

VBAでは、変数のデフォールトの型(型を指定せずに宣言された場合の方)はVariantです。
そして、variantには count というプロパティがありません。

そのため、「.countとついているから、変数Rowは、countというプロパティを持つオブジェクトじゃないといけないんですけどぉぉぉ、variantなんですよね（泣き）」というエラーメッセージが発生したのです。

この問題は、変数Rowを適切なクラスのオブジェクトとして定義すれば、解決します。

Comments

[SawadaKazuki]

丁寧な解説、ありがとうございました。
無事、解決することができました。

Answer 2

iruyasさんの回答と同じですが、記述に誤りがあると思われます。

(正）lastRow = ws.Cells(Rows.count, 1).End(xlUp).Row
(後）lastRow = ws.Cells(Row.count, 1).End(xlUp).Row

Comments

[SawadaKazuki]

解決できました。ありがとうございました

Answer 3

＞lastRow = ws.Cells(Row.count, 1).End(xlUp).Row
lastRow = ws.Cells(ws.Rows.count, 1).End(xlUp).Row

Comments

[SawadaKazuki]

解決できました。ありがとうございました。