エクセル Rank関数をマクロで

質問

こんにちは　いつもお世話になっています。

Rank関数を作ることが多いのでマクロを作ることにしました。
例えば、C3からc23まで数字が入っています。c3-c23を選択した状態でマクロを動かしたいです。
実際は、特定列の一列の選択されたセルを対象にしたいです。
D列には別のデータが入っているのでC列とD列の間に新規に列を挿入し、新規のD3-D23にRankをいれます。つまり、選択セルの右側に新規の列を挿入したいです。
引数の数値はD3にはC3、D4にはC4…D23にはC23。参照は選択セルのC3からC23。順序は降順です。
一応、マクロ記録してみましたが

Sub Macro1()
'
' Macro1 Macro
'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RANK(RC3,R3C3:R23C3)"
Selection.AutoFill Destination:=Range("D3:D23"), Type:=xlFillDefault
Range("D3:D23").Select
End Sub

よろしくお願いします。

回答No.3

keithin · ベストアンサー

＞c3-c23を選択した状態でマクロを動かしたい
＞選択セルの右側に新規の列を挿入したい

sub macro1()
　dim s as string
　s = selection.address(,,xlr1c1)

　selection.offset(0, 1).entirecolumn.insert shift:=xlshifttoright
　selection.offset(0, 1).formular1c1 = "=RANK(RC[-1]," & s & ")"
end sub
ぐらいで。

お礼

keithin 様　ありがとうございました。お蔭様で解決しました。

汎用性が高くて助かります。
大切に使わせていただきます。
簡単で恐縮ですが、お礼申し上げます。

回答No.2

tom04

No.1です。

たびたびごめんなさい。
前回のコード内の数式での
＞=RANK(C3,C$3:C$23,1)
の最後の「1」を削除してください。

質問文に「降順」とありましたので、勘違いしていました。
普通に数値の大きい順のRANKでよい訳ですよね？

結局
＞=RANK(C3,C$3:C$23)
と普通にワークシート関数で大丈夫だと思います。m（_ _）m

お礼

tom04　様　ありがとうございました。

訂正までしていただき助かりました。大変勉強になりました。
わかりにくくて済みません、選択セルはC列とは限らずに任意の場所という意味でした。
大切に使わせていただきます。
簡単で恐縮ですが、お礼申し上げます。

回答No.1

tom04

こんばんは！

ごくごく単純に

Sub Sample1()
Range("D:D").Insert
Range("D3:D23").Formula = "=RANK(C3,C$3:C$23,1)"
End Sub

ではダメですか？m（_ _）m