数组“下标”的疑惑

zjzyj

With Sheet2
    arr = .Range(Range("a1"), Cells(Rows.Count, 2).End(3))
End With
选中sheet1，因为sheet1的B列只有一行数据，所以arr=sheet2.range(A1:B1)   所以ubound(arr)=1
选中sheet2，因为sheet2的B列有两行数据，所以arr=sheet2.range(A1:B2)   所以ubound(arr)=2


如果多加两个“.”，改为如下：
With Sheet2
    arr = .Range(.Range("a1"), .Cells(Rows.Count, 2).End(3))          注意比上面多了两个点
End With
那情况就不一样了，不管选sheet1还是sheet2
arr 都是 =sheet2.range(A1:B2) ，  ubound(arr)  都是 =2

dailj

zjzyj 发表于 2023-2-21 22:26
With Sheet2
    arr = .Range(Range("a1"), Cells(Rows.Count, 2).End(3))
End With

完全懂了，谢谢老师