SyntaxFix

[excel] Excel VBA - Range.Copy transpose paste

Here's an efficient option that doesn't use the clipboard.

Sub transposeAndPasteRow(rowToCopy As Range, pasteTarget As Range)
    pasteTarget.Resize(rowToCopy.Columns.Count) = Application.WorksheetFunction.Transpose(rowToCopy.Value)
End Sub

Use it like this.

Sub test()
    Call transposeAndPasteRow(Worksheets("Sheet1").Range("A1:A5"), Worksheets("Sheet2").Range("A1"))
End Sub

Examples related to excel

• Python: Pandas pd.read_excel giving ImportError: Install xlrd >= 0.9.0 for Excel support • Converting unix time into date-time via excel • How to increment a letter N times per iteration and store in an array? • 'Microsoft.ACE.OLEDB.16.0' provider is not registered on the local machine. (System.Data) • How to import an Excel file into SQL Server? • Copy filtered data to another sheet using VBA • Better way to find last used row • Could pandas use column as index? • Check if a value is in an array or not with Excel VBA • How to sort dates from Oldest to Newest in Excel?

Examples related to transpose

• Converting rows into columns and columns into rows using R • Postgres - Transpose Rows to Columns • Transposing a 2D-array in JavaScript • What is the fastest way to transpose a matrix in C++? • Excel VBA - Range.Copy transpose paste • Transpose list of lists • Transposing a 1D NumPy array • An efficient way to transpose a file in Bash • Transpose/Unzip Function (inverse of zip)?

Examples related to vba

• Copy filtered data to another sheet using VBA • Better way to find last used row • Check if a value is in an array or not with Excel VBA • Creating an Array from a Range in VBA • Excel: macro to export worksheet as CSV file without leaving my current Excel sheet • VBA: Convert Text to Number • What's the difference between "end" and "exit sub" in VBA? • Rename Excel Sheet with VBA Macro • Extract Data from PDF and Add to Worksheet • Quicker way to get all unique values of a column in VBA?