For i = 1 To Num
    For j = i To Num
        If 합계(i) < 합계(j) Or _
        (합계(i) = 합계(j) And 고객번호(i) > 고객번호(j)) Then
        End If
       
            Temp = 합계(i)
            합계(i) = 합계(j)
            합계(j) = Temp
           
            Temp = 고객번호(i)
            고객번호(i) = 고객번호(j)
            고객번호(j) = Temp
         End If
                       
    Next j
   
Next i