Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro issues - trying to get an array to a column
I found a great macro I want to use to convert an array to a column. This
one takes an array like so: 1 2 3 4 5 6 and makes it 1 4 2 5 3 6 But I need 1 2 3 4 5 6 Can anyone help me edit it? I can't get it to work for the life of me. Thanks! Sub Matrix2Column() Dim v As Variant Dim nCol As Long Dim nRow As Long Dim rOut As Range Dim iCol As Long On Error Resume Next v = Application.InputBox("Select range to copy", Type:=8).Value If IsEmpty(v) Then Exit Sub nRow = UBound(v, 1) nCol = UBound(v, 2) Set rOut = Application.InputBox("Select destination", Type:=8).Resize(nRow, 1) If rOut Is Nothing Then Exit Sub For iCol = 1 To nCol rOut.Value = WorksheetFunction.Index(v, 0, iCol) Set rOut = rOut.Offset(nRow) Next iCol End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pastying From web issues: 1 column | New Users to Excel | |||
2-Column ComboBox Issues | Excel Programming | |||
multi-column listbox on userform, multiple issues | Excel Programming | |||
Array issues | Excel Worksheet Functions | |||
String array issues. Need help... | Excel Programming |