宏

获取区域值

With Sheet1
        arrData = .Range("A2:A" & .Range("A1").CurrentRegion.Rows.Count).Value2
    End With

获取array大小

UBound(array)