二番目に小さい値の求め方

Question

入力された数字から二番目に小さい数字を求めたいです。下記のようなコードを書いたのですが、最小値は出力されるものの、二番目に小さい値は出力されません。間違いを指摘していただきたいです。
また、二番目に小さい値を出した人の名前(AAAなどは名前だとしています)もワークシート上で（11,2）,(11,3)~ の順番で出力されるようにしたいです。二番目に小さい値の人が複数（何人かはわかりません）いた場合に対応できないのですが、どうすれば良いでしょうか。
よろしくお願いします。
ここに言語を入力

A = InputBox("AAA")
B = InputBox("BBB")
C = InputBox("CCC")
D = InputBox("DDD")

A = Cells(6, 1)
B = Cells(6, 2)
C = Cells(6, 3)
D = Cells(6, 4)

s = Cells(6, 1)
For i = 2 To 4 Step 1
 t = Cells(6, i)
 If (s > t) Then
  s = t
 End If
Next i

Cells(7, 1) = t

v = Cells(6, 2)
For j = 1 To 4 Step 1
 u = Cells(6, j)
 If (v > u) And (u > t) Then
  v = u
 End If
Next j

Cells(7, 2) = u


If (u = A) Then
 Cells(11, 2) = "AAA"
ElseIf (u = B) Then
 Cells(11, 2) = "BBB"
ElseIf (u = C) Then
 Cells(11, 2) = "CCC"
ElseIf (u = D) Then
 Cells(11, 2) = "DDD"
End If

コード

Comments

[Zuishin]

Excel ならややこしいことをせずとも、普通に small 関数を使えばいいでしょう。

[jinoji]

一番小さい人が複数いると、SMALL関数は使いづらいかな、と思いました。

Answer 1

Dim A, B, C, D
A = InputBox("AAA")
B = InputBox("BBB")
C = InputBox("CCC")
D = InputBox("DDD")

Cells(5, 1) = "AAA"
Cells(5, 2) = "BBB"
Cells(5, 3) = "CCC"
Cells(5, 4) = "DDD"
Cells(6, 1) = A
Cells(6, 2) = B
Cells(6, 3) = C
Cells(6, 4) = D

Dim arr
arr = Range(Cells(6, 1), Cells(6, 4)).Value

Dim ichiban, niban
ichiban = WorksheetFunction.Min(arr)

Dim i
For i = 1 To 4
    If arr(1, i) = ichiban Then arr(1, i) = "-"
Next
niban = WorksheetFunction.Min(arr)

Dim j
j = 2
For i = 1 To 4
    If arr(1, i) = niban Then
        Cells(11, j) = Cells(5, i)
        j = j + 1
    End If
Next

Answer 2

入力した数字というのを、個別の変数ではなく、配列に入れるようにして、それをソートしましょう。
そして２番めを取り出せばいいのです