accessing data from an array
varData is ReDimmed as a 2-d array, so varData(i+1) throws an error.
When that is changed to varData(i+1,1), the code throws an error at
varData(i+1,1) when i=the number of elements in Nums.
I think the following code does what Tom Ogilvy intended:
Dim varData() As Double
ReDim varData(1 To Range("Nums").Count, 1 To 1)
i = 1
For Each c In Range("Nums")
varData(i, 1) = c.Value
Debug.Print i, (varData(i, 1))
i = i + 1
Next
Range("D1").Resize(i - 1, 1).Value = varData '<--I used D1 'cause
I 'have something else in A1
But that raises the fundamental problem that all it does is create
another range that is identical to Nums; what's the point? I.e., if the
OP already has Nums, she already has the output she said she's seeking!??
Alan Beban
Tom Ogilvy wrote:
Assume Nums is a single column or single row
Dim varData() as double
Redim VarData(1 to Range("Nums").count, 1 to 1)
i = 0
For each c in Range("nums")
i = i + 1
varData (i+1) = c.Value
Next
Range("A1").Resize(i,1).Value = varData
|