View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Carlos Carlos is offline
external usenet poster
 
Posts: 84
Default Invert excel data

You could also write some code with Visual

Option Explicit
Public Sub InvertedData()
Dim i As Long 'counter
Dim ws As Long 'the number of the worksheet
Dim first As Long 'the first cell in which data starts
Dim last As Long 'the last cell of the data column
first = 2 'Suppose data starts at row two
last = 10 'Suppose data ends at row 10
ws = 1 'Suppose data is stored in worksheet 1
With Worksheets(ws)
For i = first To last
.Cells(i, 2) = .Cells(last - i + first, 1)
Next i
End With
End Sub

--
Carlos


"PJ" wrote:

How can I paste data in inverse column order. From col A to col B

Col A Col B Paste in B
1 4
2 3
3 2
4 1