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
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
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
>
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks