excel 如何执行正确的IF-THEN语句?

bvk5enib  于 2022-11-26  发布在  其他
关注(0)|答案(1)|浏览(174)

当我运行此模块时,我得到一个“需要对象”错误。我是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

我试过几次修改,但都没有成功。

roejwanj

roejwanj1#

使用Cells属性,如下所示:

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

而不是快捷符号;后者适用于由冒号分隔的起始和结束单元格引用定义的范围(如[A1:C5])

相关问题