Question

如何使用vba统计并用数组存储excel所选区域各个单元格的位置？

假设有（A1:B2）用鼠标拖选的连续区域，共有四个单元格A1、A2、B1、B2。我想使用vba将这四个单元格的位置存储到数组里面，数组里面就存储有A1、A2、B1、B2四个字符串，如何用vba代码实现？

Answer 1

sub test()
dim RangeSelect as Range,rng1 as range
dim iRngs as Long,Arrs() as String,i as long
Set RangeSelect =Range("A1:B2")
iRngs=RangeSelect.Count
Redim Arrs(iRngs)
for each rng1 in RangeSelect
Arrs(i)=rng1.Address

i=i+1

next
End sub

Answer 2

Sub test()
arr = Range(Cells(1, 1), Cells(2, 2))
MsgBox arr(1, 1)
MsgBox arr(1, 2)
MsgBox arr(2, 1)
MsgBox arr(2, 2)
End Sub

Answer 3

按ctrl键，再选