用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

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

沒有初始化i ，它從0開始，這是錯誤的根源。

Answer 2

我從哪里開始？ 因為（i-2）可以是-2，所以在Excel中不是行號。