Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Shifting information from multiple columns to one column
I made a macro that copys the information foorm mutiple columns and pastes
the information into a new sheet. The information can be in column: "A","B","C" or "D" as shown. Is there a way to shift all of the information to column "A"? I have this now: (Info put into multiple columns) A B C D Info1 Info2 Info3 Info4 Info5 Desired Result:(Info shifted to column "A") A B C D Info1 Info2 Info3 Info4 Info5 Thanks for your help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Shifting information from multiple columns to one column
U¿ytkownik "Elceller in distress" napisa³ w wiadomo¶ci ... I made a macro that copys the information foorm mutiple columns and pastes the information into a new sheet. The information can be in column: "A","B","C" or "D" as shown. Is there a way to shift all of the information to column "A"? I have this now: (Info put into multiple columns) A B C D Info1 Info2 Info3 Info4 Info5 Desired Result:(Info shifted to column "A") A B C D Info1 Info2 Info3 Info4 Info5 Thanks for your help try Sub fill() For Each cell In Range("a1:a" & ActiveSheet.UsedRange.Rows.Count) If cell.Value = "" Then cell.Value = cell.End(xlToRight).Value cell.End(xlToRight).ClearContents End If Next End Sub mcg |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Shifting information from multiple columns to one column
Thanks "It Worked!"
"Gazeta" wrote: U¿ytkownik "Elceller in distress" napisa³ w wiadomo¶ci ... I made a macro that copys the information foorm mutiple columns and pastes the information into a new sheet. The information can be in column: "A","B","C" or "D" as shown. Is there a way to shift all of the information to column "A"? I have this now: (Info put into multiple columns) A B C D Info1 Info2 Info3 Info4 Info5 Desired Result:(Info shifted to column "A") A B C D Info1 Info2 Info3 Info4 Info5 Thanks for your help try Sub fill() For Each cell In Range("a1:a" & ActiveSheet.UsedRange.Rows.Count) If cell.Value = "" Then cell.Value = cell.End(xlToRight).Value cell.End(xlToRight).ClearContents End If Next End Sub mcg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Multiple if statements based on two columns of information | Excel Worksheet Functions | |||
Sorting multiple columns and maintaining grouping of information | Excel Discussion (Misc queries) | |||
Time-shifting information | Excel Worksheet Functions | |||
Shifting rows into columns | Excel Discussion (Misc queries) | |||
Columns Shifting on Import of Data | Excel Programming |