Excel VBA - 循环以将多个行值放入数组中

Question

我是Excel VBA的新手并尝试创建一个循环，它将获取一组客户端名称（从拆分Userform标签RepList1的标题获得），返回找到每个名称的工作表行，然后放置将这些行值放入自己的数组中以供进一步使用。

看起来很简单，但它给了我各种令人头疼的问题 - 下标超出范围，类型不匹配等。当下面的当前版本，当它试图填充ShowRow时，它是“91：对象变量或者没有设置块变量”

有什么想法吗？

Sub CreateRep_Click()

Dim reportlist() As String
Dim FindRow As Range
Dim ShowRow() As Long
Dim a As Long

reportlist = Split(RepList1.Caption, Chr(10))

Sheet1.Activate
For a = 1 To UBound(reportlist)
    Set FindRow = Sheet1.Columns("A").Find(what:=reportlist(a - 1), LookIn:=xlValues, lookat:=xlWhole)
    ShowRow(a - 1) = FindRow.Row
Next a

'code using ShowRow

End Sub