当我运行此模块时,我得到一个“需要对象”错误。我是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
我试过几次修改,但都没有成功。
1条答案
按热度按时间roejwanj1#
使用Cells属性,如下所示:
而不是快捷符号;后者适用于由冒号分隔的起始和结束单元格引用定义的范围(如[A1:C5])