Question

VBA数组调用问题："缺少数组或用户定义类型"

想通过一个过程调用数组给单元格赋值，但是总是报错。详见图片！程序运行通过，马上给分。

Answer 1

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim zone As Object, name1()
 Set zone = Worksheets(2).[a1:e1]
 name1 = Array(1, 2, 3, 4, 5)
 Call range_yuebao(zone, name1)
End Sub

Option Explicit

Sub range_yuebao(zone As Object, ByRef arr())
 Dim i&
 For i = 0 To UBound(arr)
  zone.Cells(1, i + 1) = arr(i)
 Next i
End Sub

name为系统的，尽量不用。

ByRef必须要，否则出错。