实在是搜索不到了，在这里求指点，Sheet1.[b3].Resize(9)＝ar

ww111222

    r = Sheet1.[b65536].End(3).Row
'sheet1的b列最后非空行的行号赋给r

ar = Sheet1.Range("b3:b" & r)
'(sheet1的b3:br单元格区域的值赋给数组ar)  假如r=100，则Range("b3:b" & r)＝Range("b3:b100")
'这里是把 B 列的全部姓名存到  数组 ar


Sheet1.[b3].Resize(UBound(ar)) = ar


上面 这段代码是什么意思？

  网上实在搜索不出来了，

求解


谢谢。

般若敏敏

这不是有注释吗？

mxf21cn

Sheet1.[b3].Resize(UBound(ar)) = ar
UBound(ar)    获取数组的上标，也就是98
Sheet1.[b3].Resize(UBound(ar)) 以b3单元格算向下范围为UBound(ar)   【 '也就是B3：B100】
Sheet1.[b3].Resize(UBound(ar)) = ar       把数组ar的值一次写入B3：B100

LikeStudy

Resize
调整指定区域的大小
UBound
返回数组最大下标

逐步执行以下代码，便于理解。
MsgBox UBound(ar)
Sheet1.[b3].Resize(UBound(ar)).Select

ww111222

谢谢各位的指点，

明白了。