Dim ARRY(1 To 10) As Integer
For i = 1 To 10
 ARRY(i) = Cells(TMP, i - 1)
 Next
Call dianpu(ARRY)’红字报错
Private Sub dianpu(ByVal ARRY As Integer)
End Sub

Private Sub dianpu(ByRef ARRY() As Integer)
End Sub
---试试..