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






  1. VBA / Excel / Access / Word
  2. Excel
  3. 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