二番目に小さい数の求め方について

Question

入力された８個の数から、二番目に小さい数をプログラムで求めたいです。最小値は出力されますが、二番目の値は出力されません。u が二番目の値になるつもりで書きました。どこがだめか教えていただきたいです。また、二番目の値を出した人の名前（AAAなど）を（１１，２）、（１２，２）～に出力されるようにしたいです。複数人いる場合もあるのですが、私のプログラムで対応できるでしょうか。よろしくお願いします。

A = InputBox("AAA")
B = InputBox("BBB")
C = InputBox("CCC")
D = InputBox("DDD")
E = InputBox("EEE")
F = InputBox("FFF")
G = InputBox("GGG")
H = InputBox("HHH")
Cells(2, 2) = "AAA"
Cells(2, 3) = "BBB"
Cells(2, 4) = "CCC"
Cells(2, 5) = "DDD"
Cells(2, 6) = "EEE"
Cells(2, 7) = "FFF"
Cells(2, 8) = "GGG"
Cells(2, 9) = "HHH"
Cells(3, 2) = A
Cells(3, 3) = B
Cells(3, 4) = C
Cells(3, 5) = D
Cells(3, 6) = E
Cells(3, 7) = F
Cells(3, 8) = G
Cells(3, 9) = H

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

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

j = 2
For k = 2 To 9
    If Cells(3, k) = u Then
        Cells(11, j) = Cells(2, k)
        j = j + 1
    End If
Next k

Comments

[Zuishin]

https://teratail.com/questions/5tfykudklt5c0z

過去に投稿した質問と同じ内容の質問です。質問を削除依頼してください。

[Zuishin]

複数のアカウントを使うのもやめましょう。通報しますよ。

[tatsu99]

一番小さい数値が４つあった場合、二番目に小さい数値はどうなりますか？
AAA=10 BBB=10 CCC=10 DDD=10 EEE=11 FFF=11 GGG=11 HHH=11
のような場合、二番目に小さい数値は何を表示すれば良いのでしょうか？

Answer 1

１番目に小さい値が一人、２番目に小さい値が１人という前提であれば、あなたのプログラムを多少修正すれば、
求める結果が得られるかと思います。
１番目に小さい値が複数人、２番目に小さい値が複数人の場合、どのような表示をするのかが、決まっていませんので、なんとも言えませんが、複数人表示するのであれば、現行のやり方では対応できないでしょう。
全体を昇順にソートして、そこから結果を表示するのが一番簡単かと思います。
複数人対応まで含めて、解決したいなら、まず、複数人の場合、どのように表示するのかを明記しないと、回答者は回答できないかと思います。

Answer 2

最初のforループで最小値sを出してますが、その次のループではそれが使われてません。
ｓ以下の数値の場合は無視して、かつ一番小さな値を求めるようにif文の条件式を書く必要があります