初学者的简单代码错误 - Excel VBA

Question

我的问题是：

• 我在工作表“Crono”上有 2 列显示事件及其发生地点。我需要再添加两列，其中包含活动的开始日期和结束日期

所有信息都在另一张纸上（“Projetos Novo”）。 事件的数量是可变的，这就是我创建变量 i 的原因。

当我运行代码时，它会出现Run-time error '91': Object variable or With block variable not set

它实际上复制了前六个日期，然后崩溃了。

我非常需要你的帮助！！

Sub Datas()

Dim w As Long
Dim t As Long
Dim i As Long


t = Sheets("Crono").Cells(Rows.Count, "A").End(xlUp).Row


For i = 8 To t

w = Sheets("Projetos NOVO").Range("C:C").Find(Sheets("Crono").Range("A" & i).Value).Row


If Sheets("Projetos NOVO").Range("D" & w).Find(Sheets("Crono").Range("C" & i).Value).Row Then


Sheets("Crono").Range("F" & i).Value = Sheets("Projetos NOVO").Range("R" & w).Value
Sheets("Crono").Range("G" & i).Value = Sheets("Projetos NOVO").Range("S" & w).Value

Else

End If

Next i

End Sub

`

Answer 1

您应该使用Range 变量，然后测试是否找到来自 Crono 的值（如果未找到，您将收到当前看到的错误）；

Sub Datas()

Dim rng1 As Range
Dim t As Long
Dim i As Long

t = Sheets("Crono").Cells(Rows.Count, "A").End(xlUp).Row

For i = 8 To t

Set rng1 = Sheets("Projetos NOVO").Range("C:C").Find(Sheets("Crono").Range("A" & i).Value)
If Not rng1 Is Nothing Then
    MsgBox rng1.Row
Else
    MsgBox Sheets("Crono").Range("A" & i).Value & " not found"
End If