# Assing value in Cells to array, do the bubble sort and assign them back : Cell Value « Excel « VBA / Excel / Access / Word

Assing value in Cells to array, do the bubble sort and assign them back

Public Sub BubbleSort2()
Dim tempVar As Integer
Dim anotherIteration As Boolean
Dim I As Integer
Dim myArray(10) As Integer
For I = 1 To 10
myArray(I - 1) = Cells(I, "A").Value
Next I
Do
anotherIteration = False
For I = 0 To 8
If myArray(I) > myArray(I + 1) Then
tempVar = myArray(I)
myArray(I) = myArray(I + 1)
myArray(I + 1) = tempVar
anotherIteration = True
End If
Next I
Loop While anotherIteration = True
For I = 1 To 10
Cells(I, "B").Value = myArray(I - 1)
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 transposes the values of a group of cells in a worksheet 9 Determining a cell's data type 10 Calculate cell