Xpose twenty rows then the next twent etc.
Want to xpose a list of items in A to cells in B twenty at a time then the next twentyin B below the first etc.
Thanks,
Howard
Option Explicit
Sub SuperJoin()
Range("B1") = Join(Application.Transpose(Range(Range("A1"), _
Range("A" & Rows.Count).End(xlUp))), " , ") '" / ")
End Sub
|