求助！如何将A2到A2区域最后一个单元格 赋值给数组

胡萝卜好贤惠

各位大神，求助啊啊啊啊，
如何选取A2到 A2所在区域这一列的最后一个有值单元格，把他们赋值给数组ARR，以下是我瞎写的：求改正

Sub chaifen()
    Dim i As Long, a As Range, n As Range, chanpinArr() As Variant, rng As Range

    a = Sheet22.Range("a2")
    n = Sheet22.Range("a65536").End(xlUp)  'A列最后一个非空单元格
    chanpinArr = Sheet22.Range("a:n").Value

我看了《VBA其实很简单》那本书，但是如何用规范语句还是云里雾里啊
谢谢！

胡萝卜好贤惠

另外我登录了1小时才登陆上论坛，不知道怎么回事啊555

gxl19870625

chanpinArr = Sheet22.Range("A2:A"&Sheet22.Range("a65536").End(xlUp).Row)

胡萝卜好贤惠

gxl19870625 发表于 2016-1-25 21:34
chanpinArr = Sheet22.Range("A2:A"&Sheet22.Range("a65536").End(xlUp).Row)

请教一下 A"&Sheet22.Range("a65536").End(xlUp).Row 这句 A"& 这里是什么用法啊，十分谢谢

胡萝卜好贤惠

gxl19870625 发表于 2016-1-25 21:34
chanpinArr = Sheet22.Range("A2:A"&Sheet22.Range("a65536").End(xlUp).Row)

不好意思啊因为十分小白，请问是不是应该是这样的chanpinArr = Sheet22.Range("A2:A"&Sheet22.Range("a65536").End(xlUp).Row“)


刚才试过了，以上是不可以的，但是评论好像不能删掉

gxl19870625

胡萝卜好贤惠 发表于 2016-1-25 21:54
请教一下 A"&Sheet22.Range("a65536").End(xlUp).Row 这句 A"& 这里是什么用法啊，十分谢谢

Sheet22.Range("a65536").End(xlUp).Row 就是最后一行的行数,后面不要加",这是惯用的写法,你以后见多了就知道了.

gxl19870625

胡萝卜好贤惠 发表于 2016-1-25 21:59
不好意思啊因为十分小白，请问是不是应该是这样的chanpinArr = Sheet22.Range("A2:A"&Sheet22.Range("a65 ...

作为成长路上的见证吧,哈哈

胡萝卜好贤惠

gxl19870625 发表于 2016-1-25 22:02
Sheet22.Range("a65536").End(xlUp).Row 就是最后一行的行数,后面不要加",这是惯用的写法,你以后见多了就 ...

  "&  这两个符号就是可以接在列A后面表示某个单元格位置，是这样吗？
我多问问您这样以后遇到了才会用，谢谢谢谢

gxl19870625

胡萝卜好贤惠 发表于 2016-1-26 08:49
"&  这两个符号就是可以接在列A后面表示某个单元格位置，是这样吗？
我多问问您这样以后遇到了才会用 ...

开始多模仿并慢慢理解,后面就会独立写了.