If you are using the keyboard, then switching to the mouse can be time-consuming. Notice that you have to use the mouse for this task. Normally, the user right-clicks on a particular column and then selections the Insert option to add a new column.
Inserting a new column in Excel is probably one of the most frequently used tasks. Check these 6 shortcuts in Microsoft Excel which can be used to make manipulating columns and rows a breeze! Insert A New Column By using the correct shortcuts, you can also save a lot of precious time, which can be utilized for other productive work. It can definitely be said that for a beginner, the vast number of features in Excel seem overwhelming, but if you know a few shortcuts in Excel, the tasks can become much more simple. While most people consider this to be a disadvantage, that really isn’t true.
As a result, Excel has a steeper training curve compared to other spreadsheet software currently available. Hence, in order to cater to such a huge and diversified audience, Microsoft had to incorporate a huge number of features in Excel. Take it away Rishabh! Why Use Shortcuts Anyways?Įxcel is so versatile that it can be used by people from a variety of industries including students, teachers, businessmen, etc. This shifts the loop over to the next Row set.Hey everyone! Chris here and I want to introduce you to instructor/blogger Rishabh Pugalia from . He has graciously offered to stop by the blog and share with us some of the knowledge he currently teaches to the students in his online courses. Sheets(target).Cells(tRow, 6) = Sheets(source).Cells(iRow, colBase + 2) 'Configuration Col 2ĬolBase = colBase + 4 'Add 4 to the Column Base. Sheets(target).Cells(tRow, 5) = Sheets(source).Cells(iRow, colBase + 1) 'Configuration Col 1 Sheets(target).Cells(tRow, 4) = Sheets(source).Cells(iRow, colBase + 3) 'qty Sheets(target).Cells(tRow, 3) = Sheets(source).Cells(1, colBase) 'Getting The Row#, from Row 1 Sheets(target).Cells(tRow, 2) = Sheets(source).Cells(iRow, colBase) 'bbnum Sheets(target).Cells(tRow, 1) = Sheets(source).Cells(iRow, 1) 'Position LastCol = Sheets(source).Cells(2, Columns.Count).End(xlToLeft).Column
LastRow = Sheets(source).Range("A" & Rows.Count).End(xlUp).Row TRow = 2 'Define the start row of the target sheet Target = "Target" 'Set the Target sheet name Source = "Sheet1" 'Set your source sheet here Set the name of your source sheet in the code.
Make sure to check the code to see where the columns and rows begin on the source sheet. Loop through the column groups one "ROW#" (your label) at a time, through all rows deep.Ĭopy the data to the target sheet, in the format you wantĮxample: data starts on row 2 of Target Sheet Identify how many columns are in each group. Get the last row of the source sheet and the last column. As long as there are 4 columns in each Row group. This will work over as many columns as you have. I'm new to macro so hopefully I can make this automated otherwise I'm copying and pasting all of them manually. How can I make it happen using macro since there are ~20 "rows" and ~40 "positions" in my sheet. | 12 | Spaced | row2 | 0 | ingn | Spaced | | 12 | Spaced | row1 | 0 | ingo | Spaced | | position | bbnum | row | qty | Configuration | I want to use macro to transpose to look like this. | 12 | Spaced | ingo | Spaced | 0.00 | Spaced | ingn | Spaced | 0.00 | | 9 | Empty | inkf | Empty | 0.00 | Empty | inke | Empty | 0.00 | | 8 | Empty | inkf | Empty | 0.00 | Empty | inke | Empty | 0.00 | | 7 | Empty | inkq | Empty | 0.00 | Empty | inkp | Empty | 0.00 | | 6 | Empty | inkq | Empty | 0.00 | Empty | inkp | Empty | 0.00 | | 5 | Empty | inla | Empty | 0.00 | Empty | inkz | Empty | 0.00 | | 4 | Empty | inla | Empty | 0.00 | Empty | inkz | Empty | 0.00 | | 3 | NoFiber | | NoFiber | 0.00 | NoFiber | | NoFiber | 0.00 | | 2 | NoFiber | | NoFiber | 0.00 | NoFiber | | NoFiber | 0.00 | |position | item | Configuration | qty | item | Configuration | qty | Each "row" like row1 and row2 has a list of items, config, qty, and "rows" are sharing same "position".