How to join many columns of data in array?

You can try creating an Array and then Transposing:

In[14]:= Transpose @ Array[test, 4]

Out[14]= {{1, 2, 3, 4}, {1, 2, 3, 4}, {1, 2, 3, 4}}

num = 4;
test[#] & /@ Range[num] // Transpose

{{1, 2, 3, 4}, {1, 2, 3, 4}, {1, 2, 3, 4}}

Array[test, 4, 1, Transpose[{##}] &]

{{1, 2, 3, 4}, {1, 2, 3, 4}, {1, 2, 3, 4}}

also

Array[test, 4, 1, Flatten[{##}, {2}] &]
Array[test, 4, 1, Thread[{##}] &]

Related