Debugging 运行时错误1004-在“停止”；以“结束”；通过调试器

好吧，我想解释我要做的事情有点困难，但调试器在“EndWith”上卡住了，无法继续。我就是不知道怎么了。非常感谢您的帮助

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Range(Cells(i, 2)), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB00" & Range(Cells(i, 4)).Value & ".xlsm", _
                        ScreenTip:="", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

---

我设法解决了这个问题。运行时错误的主要原因是以下命令：

Range(Cells(i, 2)).Value 

以及所有其他

Range(Cells(#, #))

以下是重新定义的代码正常工作：

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Cells(i, 1), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB\MIB00" & Cells(i, 4).Value & ".xlsm", _
                        ScreenTip:="Info", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

---

我想这个问题已经在StackOverflow的其他地方得到了解答，但我甚至无法找出问题所在+我的VBA技能和一件像我这样的新手需要记住的简单事情：）谢谢大家

即使很难，也试着解释一下。否则我们不知道答案是什么样的。

i，2

和

i，4

中的值是什么？