| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
HOW TO MOVE DATA FROM ONE COLUMN TO MULTI ROW - please help
Thanks so much
Chuong Nguyen "merjet" wrote in message ... Sub Macro1() 'runs on ActiveSheet Dim iRow As Integer iRow = 2 Do Range("A" & iRow & ":A" & iRow + 3).Copy Range("B" & iRow - 1).PasteSpecial Paste:=xlPasteAll, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True iRow = iRow + 5 Loop Until Range("A" & iRow) = "" Do Until iRow = 2 iRow = iRow - 5 Rows(iRow & ":" & iRow + 3).Delete Shift:=xlUp Loop Application.CutCopyMode = False End Sub Hth, Merjet |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to find a value with multi-column, multi-record list | Excel Worksheet Functions | |||
| Sum data in a column if multi creteria met | Excel Worksheet Functions | |||
| How do I seperate data in one column into multi columns | Excel Worksheet Functions | |||
| Extract values from a multi-select multi-column list-box | Excel Programming | |||
| Multi column Data Validation List | Excel Programming | |||
Threaded Mode
