R
Rob
If someone would be kind enough to help me, I would greatly appreciate
it.
I simply want to take a row of answers from 10 students and position
these answers horizontally instead of vertically on another
spreadsheet. Seems simple enough but for the life of me, I can not
figure it out.
So Student One's answers are presently listed like the following:
1
2
3
1
4
2
3
3
I would like to list on another spreadsheet like this:
Student One 12314233
Any help would be appreciated.
I have the following code, but it does not seem to work:
Set Source = Range(Cells(3, 10), Cells((LastRow + 1), LastColumn))
X = 1
Y = 1
ReDim Data(Source.Count)
LastColumn = ActiveSheet.UsedRange.Columns
(ActiveSheet.UsedRange.Columns.Count).Column
LastRow = ActiveSheet.UsedRange.Rows
(ActiveSheet.UsedRange.Rows.Count).Row
For Each K In Source
Data(X) = K.Value
X = X + 1
Next
Sheets(1).Select
Range("b3").Select
rw = 2
cl = 10
For cl = 10 To LastColumn
For rw = 2 To LastRow
Cells(rw, cl).Value = Data(rw)
X = X + 1
Next rw
Next cl
End Sub
it.
I simply want to take a row of answers from 10 students and position
these answers horizontally instead of vertically on another
spreadsheet. Seems simple enough but for the life of me, I can not
figure it out.
So Student One's answers are presently listed like the following:
1
2
3
1
4
2
3
3
I would like to list on another spreadsheet like this:
Student One 12314233
Any help would be appreciated.
I have the following code, but it does not seem to work:
Set Source = Range(Cells(3, 10), Cells((LastRow + 1), LastColumn))
X = 1
Y = 1
ReDim Data(Source.Count)
LastColumn = ActiveSheet.UsedRange.Columns
(ActiveSheet.UsedRange.Columns.Count).Column
LastRow = ActiveSheet.UsedRange.Rows
(ActiveSheet.UsedRange.Rows.Count).Row
For Each K In Source
Data(X) = K.Value
X = X + 1
Next
Sheets(1).Select
Range("b3").Select
rw = 2
cl = 10
For cl = 10 To LastColumn
For rw = 2 To LastRow
Cells(rw, cl).Value = Data(rw)
X = X + 1
Next rw
Next cl
End Sub