|
ああ、ポイントは、得点ランクをもとに自動判定する部分でしたか?
それと、文字列操作のもっと基本的な手法も書いておきましょう。
以下はサンプルです。
得点ランクが一つのケースです。必要なら繰り返しに持ち込んで下さい。
Sub test2()
Dim r As Range
Dim name As String
Dim score As Long
Dim s As String
Dim scoreRank As String
Dim lowScore As Long
Dim highScore As Long
Columns("E").ClearContents
scoreRank = Cells(1, 3).Value
lowScore = CLng(Split(scoreRank, "〜")(0))
highScore = CLng(Split(scoreRank, "〜")(1))
For Each r In Range(Range("A1"), Range("A1").End(xlDown))
name = r.Value
score = r.Offset(, 1).Value
If score >= lowScore Then
If score <= highScore Then
s = s & name & ","
End If
End If
Next
s = Left(s, Len(s) - 1) '尻尾の","をカット
Cells(1, 4).Value = s
End Sub
|
|