Private Sub CommandButton1_Click()
Dim ID(1 To 10)  As Integer
Dim DE(1 To 10)  As Single
Dim I, j, k, sm As Integer
Dim Temp1, Temp2 As Integer
Dim T As String
Sheets("sheet1").Select
For I = 2 To 9
    T = Trim(Str(I))
    ID(I - 1) = Range("A" + T).Value
    DE(I - 1) = Range("G" + T).Value
    'Range("I" + T).Value = DE(I - 1)
Next I
For I = 1 To 7
   sm = DE(I)
   k = I
   For j = I + 1 To 8
      If (sm > DE(j)) Then
        sm = DE(j)
         k = j
      End If
   Next j
    Temp1 = DE(k)
    DE(k) = DE(I)
    DE(I) = Temp1
    Temp2 = ID(k)
    ID(k) = ID(I)
    ID(I) = Temp2


Next I
For I = 2 To 9
    T = Trim(Str(I))
    Range("I" + T).Value = ID(I - 1)
    Range("J" + T).Value = DE(I - 1)
Next I






End Sub