150

view

こんにちは。並び替えができない理由が気になります。とりあえずコード作成してみました。しかし、気になる点がほかにもあるので、、、＞A10にVLOOKUPを使って点数が１番低い人の名前を表示せっかくＶＢＡで並び替えするのなら、これもＶＢＡでやればいいのでは？＞B1～B8に名前、A1～A8にA列の人の点数人が増えたときはどうなるんでしょうか。＞A10に表示した人をA15・・・2番目に点数の低い人をA16・・・ここも固定でしょうか？点数と名前のシート、昇順後の結果シート、分けたほうが今後のためになると思います。Const シート As String = "結果"←シートを追加し、そのシート名を入力してください。--------------------------------------------------Sub test()Const 点数列 As String = "A"Const シート As String = "結果"Dim 最小点数 As LongDim R As RangeDim i As LongDim j As Long '結果シートをクリア Sheets(シート).Cells.Clear '点数列の最小点数の値を変数にセット 最小点数 = WorksheetFunction.Min(Columns(点数列)) '最小点数が0になるまで(なくなるまで)繰り返す Do Until 最小点数 = 0 '使用セル範囲を繰り返す For Each R In ActiveSheet.UsedRange '対象セルが点数列と同じで、点数が最小点数と同じなら If R.Column = Columns(点数列).Column And R.Value = 最小点数 Then i = i + 1 '貼り付け先の行数をカウントup '点数と名前を貼り付け Range(R, R.Offset(0, 1)).Copy Sheets(シート).Range(点数列 & i) Range(R, R.Offset(0, 1)) = "" '元データはクリア End If Next R '次のセルへ '次の最小点数を取得 最小点数 = WorksheetFunction.Min(Columns(点数列)) LoopEnd Sub--------------------------------------------------よろしければどうぞ～＾＾