چاپ اعداد

[میثم66]

یک سری اعداد در یک ستون قرار دارند میخواهیم اولین عدد این ستون را در ستون دوم به عنوان آخرین عدد چاپ کنیم و الی آخر.

Sub test()
For i = 1 To 10
n = Cells(i, 1)
For j = 10 To 1
Cells(j, 2) = n
Next j
Next i
End Sub 

[امين اسماعيلي]

با درود
تو هزار و یک شب ها اگه اشتباه نکنم Flip... میتونی پیدا کنی . دقیقا همینو(ترفند های اکسل)
هزار و یک شب اکسل - شب چهل و چهارم نمایش یک ستون از انتها به ابتدا با فرمول Flipping a List