VBA - “错误的参数数量或无效的属性赋值” - Cells（）

Question

遵循VBA Excel上的数组教程。正如您所看到的，几乎所有内容都已注释掉，我仍然会收到此错误。如果我使用范围（“A1”，“A1”）。值= 1 没有问题。我还注意到，知识分子没有拿起'细胞（'

Option Explicit

Sub ArrayTest()

'Dim arrayint(1 To 5) As Integer
'Dim i As Integer
'Dim j As Integer


'    For j = 1 To UBound(arrayint)
'        arrayint(j) = 10 * j
'    Next j

'    For i = i To UBound(arrayint)
        Cells(1, 1).Value = 1 'arrayint(i)
'    Next i

End Sub

Answer 1

尝试使用Application并检查Intellisense是否选择Cells属性 如果是这样，请用以下代码替换您的代码：

Application.Cells(1, 1).Value = 1

Answer 2

您尚未对该行进行评论

Cells(1, 1).Value = 1 'arrayint(i)

这可能是错误的原因。