设置范围内单元格的值

Question

我遇到了运行时错误91，对象变量或未设置块变量的问题。我正在尝试写入范围内的单元格。下面是我最新的代码，我尝试过各种方法。

使用.Value不起作用，也没有.Cells（1,1）.Value，也没有Set .Cells（1,1）.Value。不太清楚我在这里缺少什么。

我试图写的价值偶尔也会传递，但我想确切地知道我做错了什么，所以我可以防止将来发生这种情况。

谢谢，

有问题的代码，ElseIf就是它挂起的地方。 If可能有也可能没有问题......

Private Sub IncrementSPN()

    If Not tempSPNRange Is Nothing And Not isDuplicate Then
        ' Increment appropriate SPN family
        tempSPNRange.Value = tempSPN + 1
    ElseIf tempSPNRange Is Nothing And Not isDuplicate Then
        ' Don't increment anything, silly!
        Set tempSPNRange.Cells(1, 1).Value = tempSPNRange.Cells(1, 1).Value + 1
    End If
End Sub

Answer 1

如果 tempSPNRange Dim＆＃39; 作为范围，那么在ElseIf中，它需要设置为一组工作表中的单元格然后可以将值分配给组内的单元格。