Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Transferring one-dimensional arrays with build-in function

Sub trans()     range("A1:A3").value = Application.WorksheetFunction.Transpose(range("A1:C1")) End Sub