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

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