Subtraction Of Series Of Cells' / Array Values
Hi,
I have a column with the following values:
94,80
94,10
95,60
91,90
93,00
92,50
94,00
95,60
99,50
98,50
100,10
100,70
I'm using the following code
Code:
Option Explicit
Sub CTest()
Dim r As Long
Dim ka, k()
Dim i As Long
r = Range("C" & Rows.Count).End(3).Row + 1
ka = Range("C3:C" & r)
ReDim k(1 To UBound(ka, 1), 1 To 1)
For i = 1 To UBound(ka, 1) - 1
k(i, 1) = ka(i + 1, 1) - ka(i, 1)
Next
Range("O3").Resize(UBound(k, 1)) = k
End Sub
The data obtained are correct.
1 - Wonder if the procedure is properly optimized.
2 - If I use: r = Range("C" & Rows.Count).End(3).Row
Wonder how it must be interpreted
Thanks in advance
