こんにちは～ドットコムパソコン塾の徳丸です
最近ブログのUPが出来ずに申し訳ありません～
今日もさっそくマクロの問題にいきたいと思います～
今日は、ランダムに並んだ数字にRANK関数を
使用しないで順位をつけるというものです。
こちらも以前知恵袋でBAをいただいた問題です
下図をご覧ください～
A列にランダムに数字が並んでいます。
B列に順位をつけるマクロです。
コードは以下のとおりです。
Sub 昇順()
Dim myRow As Long
myRow = Cells(Rows.Count, 1).End(xlUp).Row
With Range("C1:C" & myRow)
.Value = Range("A1:A" & myRow).Value
.Sort key1:=Range("C1"), order1:=xlAscending
End With
With Range("B1:B" & myRow)
.Formula = "=match(A1,C:C,0)"
.Value = .Value
.Offset(, 1).ClearContents
End With
End Sub
こんな感じです～
いったんC列に昇順に数字を取り出して、
その後、B列に順位を表示するといった感じです♪
そして取り出したC列はClearContents（クリアコンテンツ）で削除
結果はこちら
いかがでしょうか？
これはめっちゃ簡単なマクロですので初心者の方は是非コードを記述して
やってみてください～（コピペ厳禁です）（笑）(＊´艸｀)
～マクロ受講者の方々へ～
この度、黒木先生が不在でマクロ受講が出来ずに
大変申し訳ありません～
10日程で戻ってくると思いますので
それまでお待ちください～
また個別にご連絡させていただきます。
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
