使用Excel VBA連接特定單元格數據

Question

我希望MsgBox彈出一個包含缺失信息（電話號碼或地址）的名稱列表。到目前爲止，我有：

Dim missing As String 
Do While Cells(i, 1).Value <> "" 
    If StrComp(Cells(i, 1), "Need address") = 0 Then missing = Cells(i - 2, 1) 
Loop 
MsgBox missing 

電子表格的格式有在列A 所有的客戶信息中的順序：

名稱

電話號碼

地址

到目前爲止，我只是一個1004運行時錯誤

Answer 1

'我'開始在哪裏？因爲（i - 2）可以是-2，這不是excel中的行＃。

Answer 2

您必須初始化和增量我

Sub dural() 
    Dim missing As String, i As Long 
    i = 1 

    Do While Cells(i, 1).Value <> "" 
     If StrComp(Cells(i, 1), "Need address") = 0 Then missing = Cells(i - 2, 1) 
     i = i + 1 
    Loop 
    MsgBox missing 
End Sub 

沒有初始化我，它開始於，這是錯誤的來源。