Thread: copy ???
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Patrick Molloy[_2_] Patrick Molloy[_2_] is offline
external usenet poster
 
Posts: 1,298
Default copy ???

Here's a simple vba UDF for you
Function One_column(source As Range)
Dim output As Variant
Dim cell As Range
Dim index As Long
ReDim output(1 To source.Count)
For Each cell In source.Cells
index = index + 1
output(index) = cell.Value
Next
One_column = WorksheetFunction.Transpose(output)
End Function

to use it, select a column for output, the array enter the formula

eg, data table may range named MyData
select a column long enough for the output and type
=One_Column(mydata)
hold down shft+ctrl then press Enter to enter the formula as an array formula






"bandy2000" wrote:

HI

I have a 64 X 96 field with data and want to bring the 96 columns in one
column so that column Nr1s 64 entries are followed by column Nr2s entries. Is
that possible from another worksheet, too?

Thanks
ANDY