使用VBA仅在数组中存储行号

时间:2011-06-30 11:09:13

标签: arrays vba

我只是想知道是否有一种简短的方法将单元格位置的行号存储到数组中。我只使用'.Address'vba函数来存储整个单元格位置,但我不希望引用的列,所以我可以稍后在我的sub中设置数组。

2 个答案:

答案 0 :(得分:1)

如果要获取范围的行,可以使用row属性:

Dim myCell as Range
Dim myRow as Long
myRow = myCell.row

当然,您可以将行存储在数组中。

顺便说一下,这里有一些关于行和列的提示:http://www.exceltip.com/excel_tips/Cells,_Ranges,_Rows,_and_Columns_in_VBA/204.html

此致

最高

答案 1 :(得分:1)

尝试:

Sub HTH()

Dim rCell As Range
Dim vMyArray() As Variant
Dim iLoop As Integer

For Each rCell In Range("A1:A10")
    ReDim Preserve vMyArray(iLoop)
    vMyArray(iLoop) = rCell.Row
    iLoop = illop + 1
Next rCell

End Sub