数组赋值遇到单元格时，问题求助

tsdaquan

有很多sheet需要遍历，将第一列的值付给数组。
当遇到只有一行数据的sheet时，给数组赋值出现 “类型不匹配” 错误。
请问，如何不管sheet有几行数据，都能给数组赋值？
代码：
Sub tt()
Dim arr(), r
Dim sht As Worksheet
For Each sht In Sheets
    r = sht.Cells(Rows.Count, 1).End(xlUp).Row
    arr = sht.Range("a1:a" & r)
Next
End Sub


附件：
ArrQuestion.rar (11.63 KB, 下载次数: 4)

2018-9-20 20:59 上传

点击文件名下载附件

erlia2004

Dim arr(), r   改为Dim arr,r

tsdaquan

谢谢，这个问题解决了。
还要请教下面的语句
Sub tt()

Dim arr, r, i
Dim sht As Worksheet

For Each sht In Sheets
    r = sht.Cells(Rows.Count, 1).End(xlUp).Row
    arr = sht.Range("a1:a" & r)
Next

For i = 1 To UBound(arr)

'////////
k = k + 1

Next
End Sub

当运行到
For i = 1 To UBound(arr)
出现同样的错误提示。循环里面的操作无法进行。
请问，有办法解决吗？