如何執行正確的 IF-THEN 語句？

Question

當我運行此模塊時，出現 Object Required 錯誤。 我是 VBA 的新手，我看不出代碼有什么問題。

Sub CountOccurances()
Dim Total As Integer
Dim Column As Integer
Dim Row As Integer

Total = 0
For Column = 2 To 51
    If Worksheets("Sheet1").[13,Column].Value = 1 Then
        For Row = 12 To 16
          If Worksheets("Sheet1").[Row, Column].Value = 2 Then Worksheets("Sheet1").[20,Row+8].Value = Total + 1
        Next Row
    End If
Next Column
End Sub

我嘗試了一些修改，但沒有成功。

Answer 1

使用 Cells 屬性，如下所示：

 Worksheets("Sheet1").Cells(13, Column).Value = 1 

而不是快捷符號； 后者適用於由冒號分隔的起始和結束單元格引用定義的范圍（如 [A1:C5]）