fill array from active cell
I have tried to find how to do this from previous posts but my limited
programming skills have not been able to accomplish it.
What I need to do, is take a cell in excel with data and put into an array
i.e. Cell data contains 3,6,8 and I need an 1x3 array arrary(1)=3
array(2)=6, array(3)=8
I want to be able to select a cell and then run the macro
Here is what I have so far (it doesnt work):
Sub FindAreas()
Dim areas()
areas = Split(ActiveCell.Value, ",")
Range("B1", "B3").Select
For i = 1 To 3
ActiveCell(i) = areas(i)
Next i
End Sub
|