特殊な順位付け（飛び飛びデータに順位を付ける）

Question

使用ソフト：EXCEL2016

１．RANK関数でが値データがあれば順位を付けれますが、
A 順位 式
１　13000　　 1　　=RANK(A1,$A$1:$A$3,0)
２　11000　 　2　
３　10000 3

２．今回データが例えば　A1に13000　A2に10000の値があるとして
A1 13000 A2 10000 間隔条件　1000など設定することで
ワークシート上は以下の順位表示させたい
A 順位 式
１　13000　　 1　
←RANK関数のデータ12000がない状態　
２　10000　 　3　

VBAでも実現が出来れば、方法は問いません。

何とか教示頂けんせんでしょうか。
宜しくお願い致します

Comments

[imihito]

10000のときは「3」でよろしいですか？（12000 -> 2, 11000 -> 3, 10000 -> 4 ではないですか？）

[masayone]

申し訳ございません。ご指摘の通りです。12000 -> 2, 11000 -> 3, 10000 -> 4 です、宜しくお願いします。

Answer 1

やりたいことを

指定された値が、最大の値から、間隔条件の単位で、どれだけ離れているか、

と考えてみると、以下の数式でいかがでしょうか？

= 1 + QUOTIENT( MAX($A$1:$A$3) - A1 , 1000 )

= 1 + QUOTIENT( 最大の値 - 指定された値 , 間隔条件 )

MAX($A$1:$A$3) - A1で最大の値との差を取得し、
QUOTIENT( , 1000)で1000で割った商を求めます。

そのままだと最大の値の時に0になるので、+1しておきます。

端数がある場合若干結果が変わってくるため、その場合は事前にQUOTIENTを適用するなどしてください。

Comments

[masayone]

imihitoさんありがとうございました。この関数事態一度も使用したことがありませんでした。
まして、数値を除算することすら考え付きませんでした。感謝！感謝！
また、素早いご対応で悩む期間が少なく大変助かりました。
ベストアンサーとさせて頂きます。

Answer 2

順位とは違うものですね。

B1に =QUOTIENT($A$1-A1,1000)+1
下方向にオートフィルでどうですか。

Comments

[masayone]

QUOTIENT関数は全く知りませんでした。（除算の商の小数値を切り捨てて整数のみを返す。）
大変勉強になりました。
ありがとうございます。
また、ご教示お願い致します。