所以,建议你尝试使用Collect对象,来实现类似于动态数组的功能。给你一个参考示例: Rem -==巴蜀兄弟连==- 团队提供支持Public Arr As New CollectionPublic Function Add(ByRef R As Range) As Range Set Add = R '创建对参数R对应单元格的引用 Arr.Add Add '将建立的引用实例添加到Arr集合End Function然后标准模块创建实例,并返回集合元素的值: Private mm As New unsamesky '创建类模块unsamesky的一个实例mmPrivate Sub xx() Dim i As Long For i = 1 To 10 mm.Add Sheet1.Cells(i, 1) '给A1到A10单元格添加到mm实例的Arr集合中 NextEnd SubSub yy() Call xx '调用xx MsgBox mm.Arr(3) '试试返回集合的第3个元素,也就是工作表的第A3单元格的内容!End Sub可使用附件测试: