使用Excel VBA连接特定的单元格数据

我想有一个MsgBoxpopup一个名单，有缺less的信息（电话号码或地址）的列表。 到目前为止我有：

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 

没有初始化我 ，它从0开始，这是错误的来源。

Answer 2

“我”在哪里开始？ 因为（i – 2）可以是-2，而不是excel中的行＃。