Question

excel中的vba的数组赋值问题

Sub aaa()

Dim 人物签() As Variant
Dim a

人物签 = Sheets("人物总表").Range(Cells(2, 1), Cells(7, 5)).Value

a = 人物签(1, 5)
Debug.Print a

End Sub

以上内容运行，如果是"人物总表"页选中激活状态，就可以正常运行，如果是其他也激活，就会报错
1004，应用程序或对象定义错误。

初学者，求各位神相助

Answer 1

cells当前选中的range的成员，所以如果要用cells,一定要先用选中表，在选中一个RANGE，如果未指定range，则用整个表的单元格做父对象
所以像题目中这样的用法，如果sheet指定的是错误的，则range的结果是错误的。
可以在前面加一句
sheets("人物总表").select

Answer 2

Sub aaa()
Dim 人物签() As Variant
    Dim a
   人物签 = Sheets("人物总表").Range(Sheets("人物总表").Cells(2, 1), Sheets("人物总表").Cells(7, 5)).Value
   a = 人物签(1, 5)
    Debug.Print a
End Sub

Answer 3

问题出在你的Range(Cells(2, 1), Cells(7, 5))cells里面，当你不在人物总表的时候，cells(,2,1)就是你其它表里的值了。
这样修改就正常了。

Sub aaa()
Dim 人物签() As Variant
Dim a
人物签 = Sheets("人物总表").Range(Sheets("人物总表").Cells(2, 1), Sheets("人物总表").Cells(7, 5)).Value
a = 人物签(1, 5)
Debug.Print a
End Sub