can i reverse the data of cells?
 

I want to reverse the data of my worksheet from cell A1-A10 , as it appears
as A10-A1, is it possible?
if yes so please help me out to get answer of this question.

Thanks

can i reverse the data of cells?
 

Try this:

Sub RevData()
Dim rng As Range
Dim Arr As Variant
Dim a As Integer, b As Integer, c As Integer

Set rng = Range("A1:A10")
Arr = rng.Value
a = 0: b = rng.Count
For c = b To 1 Step -1
rng(b - c + 1, 1) = Arr(c, 1)
Next
End Sub

Regards,
Greg


"Anney" wrote:

I want to reverse the data of my worksheet from cell A1-A10 , as it appears
as A10-A1, is it possible?
if yes so please help me out to get answer of this question.

Thanks

can i reverse the data of cells?
 

A minor simplification to my post:

Sub RevData()
Dim rng As Range
Dim Arr As Variant
Dim a As Integer, b As Integer

Set rng = Range("A1:A10")
Arr = rng.Value
a = rng.Count
For b = a To 1 Step -1
rng(a - b + 1, 1) = Arr(b, 1)
Next
End Sub

Regards,
Greg

"Greg Wilson" wrote:

Try this:

Sub RevData()
Dim rng As Range
Dim Arr As Variant
Dim a As Integer, b As Integer, c As Integer

Set rng = Range("A1:A10")
Arr = rng.Value
a = 0: b = rng.Count
For c = b To 1 Step -1
rng(b - c + 1, 1) = Arr(c, 1)
Next
End Sub

Regards,
Greg