Excel VBA：第二次分配给对象变量时出现运行时错误“91”答案

【问题标题】：Excel VBA: Run-time error '91' on second assignment to Object variableExcel VBA：第二次分配给对象变量时出现运行时错误“91”
【发布时间】：2023-03-05 16:42:01
【问题描述】：

我正在为学校作业学习 Excel VBA。我已根据某些条件将对象“wtCell”分配为某个工作表中的某个单元格。

错误：“对象变量或未设置块变量”

我在 second 分配“wtCell”时遇到错误

Sub AddWardData()

   Dim Cell As Object
   Dim Ward As Object

    Dim lngLastRow As Long ' We need to know how many rows of data are in Column J
    lngLastRow = 0
    lngLastRow = Range("K" & Rows.Count).End(xlUp).Row ' Complex formula - just ignore the details for now
    Dim w As Integer ' ward number
    w = 0
    Dim wtCell As Object

    For Each Cell In Worksheets("Data").Range("K2:K" & lngLastRow).Cells ' Iterate thru the cells collection in Row K = a copy
        w = Val(Mid(Cell.Value, 6, 2))
        If (w = 0) Then
            Cell.Offset(0, 3).Value = ""
            Cell.Offset(0, 4).Value = ""
            Cell.Offset(0, 5).Value = ""
            GoTo no_ward
        End If
        For Each Ward In Worksheets("WardData").Range("B4:B46").Cells
            If (Ward.Value = w) Then
                Cell.Offset(0, 3).Value = Ward.Offset(0, 4) ' 2015 ward population
                Cell.Offset(0, 4).Value = Ward.Offset(0, 6) ' ward area
                Cell.Offset(0, 5).Value = Ward.Offset(0, 10) ' 2015 ward pop density
                GoTo ward_data_retrieved
            End If
ward_data_retrieved:
        Next
no_ward:
        If (Application.CountIf(Worksheets("WardData").Range("B5:B16").Cells, w)) Then
            Cell.Offset(0, 6).Value = "Urban"
            Cell.Offset(0, 7).Value = "Urban"
            wtCell = Worksheets("WardData").Range("F18") ' total population for ward type
            Cell.Offset(0, 8).Value = wtCell.Value
            Cell.Offset(0, 9).Value = wtCell.Offset(0, 2).Value ' total area for ward type
            Cell.Offset(0, 10).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            Cell.Offset(0, 11).Value = wtCell.Value
            Cell.Offset(0, 12).Value = wtCell.Offset(0, 2).Value ' total area for ward type
            Cell.Offset(0, 13).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
        ElseIf (Application.CountIf(Worksheets("WardData").Range("B21:B36").Cells, w)) Then
            Cell.Offset(0, 6).Value = "Suburban"
            wtCell = Worksheets("WardData").Range("F39") ' total population for ward type
            Cell.Offset(0, 8).Value = wtCell.Value
            Cell.Offset(0, 9).Value = wtCell.Offset(0, 2).Value ' total area for ward type
            Cell.Offset(0, 10).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            If (Application.CountIf(Worksheets("WardData").Range("B22:B23").Cells, w)) Then
                Cell.Offset(0, 7).Value = "OESA"
                wtCell = Worksheets("WardData").Range("F24") ' total population for ward type
                Cell.Offset(0, 11).Value = wtCell.Value
                Cell.Offset(0, 12).Value = wtCell.Offset(0, 2).Value ' total area for ward type
                Cell.Offset(0, 13).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            ElseIf (Application.CountIf(Worksheets("WardData").Range("B28:B29").Cells, w)) Then
                Cell.Offset(0, 7).Value = "RRSA"
                wtCell = Worksheets("WardData").Range("F30") ' total population for ward type
                Cell.Offset(0, 11).Value = wtCell.Value
                Cell.Offset(0, 12).Value = wtCell.Offset(0, 2).Value ' total area for ward type
                Cell.Offset(0, 13).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            ElseIf (Application.CountIf(Worksheets("WardData").Range("B34:B36").Cells, w)) Then
                Cell.Offset(0, 7).Value = "KSSA"
                wtCell = Worksheets("WardData").Range("F37") ' total population for ward type
                Cell.Offset(0, 11).Value = wtCell.Value
                Cell.Offset(0, 12).Value = wtCell.Offset(0, 2).Value ' total area for ward type
                Cell.Offset(0, 13).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            End If
        ElseIf (Application.CountIf(Worksheets("WardData").Range("B41:B46").Cells, w)) Then
            wtCell = Worksheets("WardData").Range("F46") ' total population for ward type
            Cell.Offset(0, 8).Value = wtCell.Value
            Cell.Offset(0, 9).Value = wtCell.Offset(0, 2).Value ' total area for ward type
            Cell.Offset(0, 10).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            Cell.Offset(0, 11).Value = wtCell.Value
            Cell.Offset(0, 12).Value = wtCell.Offset(0, 2).Value ' total area for ward type
            Cell.Offset(0, 13).Value = wtCell.Offset(0, 6).Value ' avg density for ward type
            Cell.Offset(0, 6).Value = "Rural"
            Cell.Offset(0, 7).Value = "Rural"
        End If
    Next

End Sub

我不知道如何在代码中加粗线，但就是这一行：

wtCell = Worksheets("WardData").Range("F39") ' total population for ward type

由调试器突出显示（在第一个 ElseIf 下）。非常感谢任何帮助。

【问题讨论】：

我认为您的问题在下面的答案中突出显示（即您需要“设置”任何对象变量）。另一件作为一般实践需要考虑的事情是删除“GoTo”结构。它会造成难以遵循的代码，并可能产生意想不到的后果。您应该能够使用嵌套的 if 语句获得相同的结果。
谢谢。没有他们很容易过日子。我一直在寻找 VBA 中的“中断”实现，GoTo 是我发现的第一个，但我不想养成坏习惯。

标签： vba excel runtime-error

【解决方案1】：

试试

set wtCell = Worksheets("WardData").Range("F39")

并确保将所有范围设置为某个值。不止这一行。

【讨论】：

解决了！谢谢。
欢迎。确保在代码的其他位置也设置wtCell。