Patient Name

Question

Excel中的病人表

            A
 1          |Patient Name  |
 2          |Jane Doe      |

当这个表只列出一个病人时，下面的例程就会失败。

Sub RunMerge()

Dim ptsArray As Variant
Dim strPtName As Variant
Dim lRowCount As Long

lRowCount = Worksheets("Patients").UsedRange.Rows.Count

ptsArray = ThisWorkbook.Worksheets("Patients").Range("A2:A" & lRowCount).value

    For Each strPtName In ptsArray
            . . .
    Next
End Sub

在VBA编辑器中，我看到strPtName显示为空 但ptsArray显示包含Jane Doe. 程序就会停顿。但如果我添加第二个或更多的病人，所有的工作都是正常的。为了在只剩下一个病人的情况下运行该例程，我缺少什么？