Home |
Search |
Today's Posts |
#1
|
|||
|
|||
how do i flip a column round in excel?
I've a long column of numbers in excel which i need to flip round or invert
but dont know how. I cant use the sort function as it only sorts it in ascending or descending order but i want to reverse the order of the numbers so that bottom becomes top and top becomes bottom for example. Thanks |
#2
|
|||
|
|||
One way is to use a helper column next to your data and enter 1 at the top
and fill down holding the CTRL key down until you reach the bottom of your data. Then sort both columns using the 1 thru N column as the sort column. HTH Regards, Howard "shockwave_dave" wrote in message ... I've a long column of numbers in excel which i need to flip round or invert but dont know how. I cant use the sort function as it only sorts it in ascending or descending order but i want to reverse the order of the numbers so that bottom becomes top and top becomes bottom for example. Thanks |
#3
|
|||
|
|||
Insert a blank column next to your column of numbers. Fill it with a series
of numbers - enter a 1 in the cell next to your first number, then highlight the column down to the point even with the bottom of your list. Choose Edit | Fill | Series from the menu Once you have the series, sort the two columns on the series, but in descending order. Then delete your series column Voila "shockwave_dave" wrote: I've a long column of numbers in excel which i need to flip round or invert but dont know how. I cant use the sort function as it only sorts it in ascending or descending order but i want to reverse the order of the numbers so that bottom becomes top and top becomes bottom for example. Thanks |
#4
|
|||
|
|||
If you can use a code solution...
'================================================= ===== ' Dec 17, 2001 - created by Jim Cone ' San Francisco, USA '---------------------------------------------------------------------- ' Reverses the position of selected range data in either rows or columns. ' This is accomplished by caching the selected data in an array and then ' reading the array data backwards into the range selection. ' No functions are required. '================================================= ====== Sub FlipTheSelection() On Error GoTo EndMacro Application.EnableCancelKey = xlErrorHandler Dim Rng As Range Dim N As Long Dim Rws As Long Dim Cols As Long Dim Response As Long Dim Msg As String Dim MsgTitle As String MsgTitle = " Flip Selection" N = vbExclamation '48 Select Case True Case ActiveSheet Is Nothing Exit Sub Case ActiveSheet.ProtectContents Msg = "The worksheet must be unprotected. " Case ActiveSheet.PivotTables.Count 0 Msg = "This program will not work on Pivot Tables. " Case TypeName(Selection) < "Range" Msg = "Select at least two cells. " Case Selection.Count = 1 Msg = "Select at least two cells. " N = vbInformation '64 Case Selection.Areas.Count 1 Msg = "Multiple selections will not work. " N = vbInformation '64 Case Else Set Rng = Selection If WorksheetFunction.CountA(Rng) = 0 Then Msg = "The selection is blank. " N = vbInformation '64 Else Rws = Rng.Rows.Count Cols = Rng.Columns.Count 'Prevents user from doing something he probably doesn't want to do. 'If entire rows or columns selected then resize selection. If Rws = Rows.Count Or Cols = Columns.Count Then Set Rng = Application.Intersect(Selection, ActiveSheet.UsedRange) Rws = Rng.Rows.Count Cols = Rng.Columns.Count End If Select Case True Case Rws = 1 Msg = "Data order in the selection will be reversed. " MsgTitle = " Flip Row Selection" N = 65 'vbOKCancel + vbInformation Case Cols = 1 Msg = "Data order in the selection will be reversed. " MsgTitle = " Flip Column Selection" N = 65 'vbOKCancel + vbInformation Case Else Msg = "Yes..to reverse column data. " & vbCr & _ " No..to reverse row data." MsgTitle = " Flip Selection - Choose..." N = 35 'vbQuestion + YesNoCancel End Select If Rng.HasFormula Or IsNull(Rng.HasFormula) Then _ Msg = Msg & vbCr & vbCr & "Note: This can mess up formulas. " End If End Select Application.Cursor = xlDefault Response = MsgBox(Msg, N, MsgTitle) If Response = vbCancel Or (N Mod 16 = 0) Then Set Rng = Nothing Exit Sub End If Dim CellArray() As Variant Dim CalState As Long ''Following variables used by the StatusBar ' Dim StartPos As Long ' Dim Factor As Long ' Dim CellCount As Long CalState = Application.Calculation Msg = "[" & String$(60, 46) & " ]" 'Fill with "." Application.StatusBar = Msg Application.Cursor = xlWait Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If Response = vbNo Or Rws = 1 Then 'Reverse Rows ReDim CellArray(1 To Cols) 'Each row completed before the next row is done. For Rws = 1 To Rws With Rng.Rows(Rws) 'Read selection data into the array. For N = 1 To Cols CellArray(N) = Range(.Address)(N).FormulaLocal Next N = Cols 'Read array data back into the selection. For Cols = 1 To Cols Range(.Address)(Cols) = CellArray(N) N = N - 1 Next 'Cols End With Cols = Cols - 1 Next 'Rws Else 'Reverse Columns ReDim CellArray(1 To Rws) 'Each column completed before the next column is done. For Cols = 1 To Cols With Rng.Columns(Cols) 'Read selection data into the array. For N = 1 To Rws CellArray(N) = Range(.Address)(N).FormulaLocal Next N = Rws 'Read array data back into the selection. For Rws = 1 To Rws Range(.Address)(Rws) = CellArray(N) N = N - 1 Next 'Rws End With Rws = Rws - 1 Next 'Cols End If CleanupAndQuit: On Error Resume Next Erase CellArray Set Rng = Nothing Application.Calculation = CalState Application.StatusBar = False Application.Cursor = xlDefault Application.ScreenUpdating = True Exit Sub EndMacro: Beep Application.ScreenUpdating = True Application.Cursor = xlDefault If Err.Number < 18 Then MsgBox "Error " & Err.Number & " - " & Err.Description & vbCr & _ "Contact the programs author (James Cone) if the problem persists. ", _ vbCritical, MsgTitle Else If MsgBox("User interupt occurred... " & vbCr & "Continue ?", _ vbYesNo + vbQuestion, MsgTitle) = vbYes Then Application.ScreenUpdating = False Resume End If End If Resume CleanupAndQuit End Sub '========================= "shockwave_dave" wrote in message ... I've a long column of numbers in excel which i need to flip round or invert but dont know how. I cant use the sort function as it only sorts it in ascending or descending order but i want to reverse the order of the numbers so that bottom becomes top and top becomes bottom for example. Thanks |
#5
|
|||
|
|||
dave
Use a helper column next to the numbers column. Enter 1 in top cell of helper column. Enter 2 in second cell. Select the two cells and double-click on the fill handle to autofill to bottom. Sort descending on this column. When happy, delete the helper column. Gord Dibben Excel MVP On Tue, 5 Apr 2005 08:25:02 -0700, "shockwave_dave" wrote: I've a long column of numbers in excel which i need to flip round or invert but dont know how. I cant use the sort function as it only sorts it in ascending or descending order but i want to reverse the order of the numbers so that bottom becomes top and top becomes bottom for example. Thanks |
#6
|
|||
|
|||
Use a helper column. If column A hold the numbers you want to flip, but don't want them to sort in ascending or descending order, put a 1 in B1 and fill down in series: 1, 2, 3, and so on. Highlight columns A, B and sort on helper column B. -- cycling-rod |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
why does Excel 2003 flip picture objects in a document created in. | Excel Discussion (Misc queries) | |||
How do I flip a column in excel (top becomes bottom)? | Excel Worksheet Functions | |||
In Excel, how do you get it to not automatically round my dollars. | Excel Worksheet Functions | |||
How do I sort a column of formulas in Excel? | Excel Discussion (Misc queries) | |||
getting data from 2 excel sheets automatically | Excel Worksheet Functions |