コードをかきました

Sub siri()
 Dim N1 As Double
 Dim N2 As Double
 Dim Lion As Integer
 
 Lion = 10

For counter = 1 To Lion
 
 Sheets("Sheet1").Cells(2, counter).Value = Sheets("Sheet1").Cells(1, counter).Value

Next

For Neko = 1 To Lion

For Nezumi = Neko To Lion

N1 = Sheets("Sheet1").Cells(2, Neko).Value
N2 = Sheets("Sheet1").Cells(2, Nezumi).Value

If N2 <= N1 Then
 Sheets("Sheet1").Cells(2, Neko).Value = N2
 Sheets("Sheet1").Cells(2, Nezumi).Value = N1
End If

Next
Next




Dim N3 As Double

N3 = Sheets("Sheet1").Cells(3, 1).Value

Hitsuji = 0
Tori = 10

Do Until Tori - Hitsuji < 1
 Penguin = Tori + Hitsuji / 2
 
 If N3 < Sheets("Sheet1").Cells(2, Penguin).Value Then
    Tori = Penguin - 1
 ElseIf N3 > Sheets("Sheet1").Cells(2, Penguin).Value Then
    Hitsuji = Penguin + 1
 Else
  Sheets("Sheet1").Cells(4, 1).Value = 0
 Exit Do
 
 End If
 Loop
 
 
End Sub