transposes the values of a group of cells in a worksheet : Cell Value « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
 1 Access 2 Application 3 Data Type 4 Data Type Functions 5 Date Functions 6 Excel 7 File Path 8 Forms 9 Language Basics 10 Math Functions 11 Outlook 12 PowerPoint 13 String Functions 14 Windows API 15 Word 16 XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
 VBA / Excel / Access / Word » Excel » Cell Value
transposes the values of a group of cells in a worksheet
 ```  Public Sub Transpose()     Dim I As Integer     Dim J As Integer     Dim transArray(9, 2) As Integer     For I = 1 To 3         For J = 1 To 10             transArray(J - 1, I - 1) = Cells(J, Chr(I + 64)).Value         Next J     Next I     Range("A1:C10").ClearContents     For I = 1 To 3         For J = 1 To 10             Cells(I, Chr(J + 64)).Value = transArray(J - 1, I - 1)         Next J     Next I End Sub  ```
Related examples in the same category
 1 Define a string type variable and set to Cell(1,D) 2 StrConv("ALL LOWERCASE ", vbLowerCase) 3 Format("ALL LOWERCASE ", "<") 4 Checks values in a range 10 rows by 5 columns 5 Checks values in a range 10 rows by 5 columns with nested for loop 6 Place the value (result) of a formula into a cell rather than the formula. 7 Validation with a Spreadsheet Cell 8 Assing value in Cells to array, do the bubble sort and assign them back 9 Determining a cell's data type 10 Calculate cell