OutSheet.Cells(OutRow, 2) = Cells(c.Row, x) xlShiftUp 'This clears the output sheet.įor Each c In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:A")) Set OutSheet = Sheets("Sheet2") 'Put the name in the quotes Sub ForJeremy() 'You can call this whatever you wantĮndCol = Sheet2 should contain the results you are looking for. Run the macro by pressing Alt+F8, clicking on the macro, and pressing Run I use Sheet2 to place the transposed data, but you can use whatever you want.Īfter you have done this, you may close the editor and select the sheet with your non-transposed data. You may want to change the output sheet name as I have shown in the code. ![]() ![]() Paste the code into the right side of this. Right click to the left side and select "Insert Module" To implement this, press Alt+F11 to open the VBA editor.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |