エクセルの関数式について

質問

エクセルを使って回数順に並べたいものがあるのですが、上手くいかないのでわかる方教えてください。

ちょっとわかりにくいと思うのですが、

　　　　　Ａ　　　　　　Ｂ　　　　　Ｃ　　Ｄ　→（日時）
　　１　 7/1　　　　7/2　　　　　…
　　２　書籍名　　書籍名
　　３　書籍名　　書籍名
　　↓　　
（貸し出した本）

という感じのデータをシート１に作成していて、
シート２に月ごとに貸し出した本の順位付けを行いたいのですが、
色々な関数を試してみても上手くいきません。

先程、同じような内容で投稿を行った際に
項目を記載して行う方法を教えてもらったのですが、
項目が多すぎて把握しきれません。
（図では2冊しか記載していませんが実際は毎日10冊以上あります）

どうにかして順位付けを行う方法はあるのでしょうか？
それとも、こういったことはエクセルで作ることは出来ないのでしょうか？

やり方が分かる方教えていただけないでしょうか？

回答No.1

ASIMOV · ベストアンサー

＞こういったことはエクセルで作ることは出来ないのでしょうか

出来ますよ

ただ、書籍名の「一覧表」は作成しなければなりません
それが出来れば、COUNTIF と RANK 関数で出来ます

「シート２」に書籍名を１列にコピーするマクロ（ＶＢＡ）
－－－－－－－－－－－－－－－－－－－
Sub syo()
　　Dim sdata(100)
　　sc1 = 1
　　sl2 = 2
　　Do
　　　　Sheets("シート１").Select
　　　　sl1 = 2
　　　　If Cells(sl1, sc1) <> "" Then
　　　　　　Do Until Cells(sl1, sc1) = ""
　　　　　　　　sdata(sl1) = Cells(sl1, sc1)
　　　　　　　　sl1 = sl1 + 1
　　　　　　Loop
　　　　　　Sheets("シート２").Select
　　　　　　For i = 2 To sl1
　　　　　　　　Cells(sl2, 1) = sdata(i)
　　　　　　　　sl2 = sl2 + 1
　　　　　　Next
　　　　　　sc1 = sc1 + 1
　　　　Else
　　　　　　Exit Do
　　　　End If
　　Loop
End Sub
－－－－－－－－－－－－－－－－－－－
（実行上の注意）
　シートの下のタブに表示されているシート名が、
　上記の"シート１"、"シート２"と同じにする
　月末の右の列は空白であること

これを、「標準モジュール」で実行すると
書式名がシート２のＡ列に１列にコピーされます

次にA2から下までを選択し、「並べ替え」を実行
B2以下に次の式を入れます
B2 =IF(A2=A3,"",A2)
　以下コピー

B1に「書籍名」とでも入れて、オートフィルターを設定します
そして、「空白以外のセル」をクリックすると、一覧表が出来ます

それを範囲指定して、コピー、Ｃ列に貼り付けます
オートフィルターを解除　(「すべて」をクリック）

Ｄ列とＥ列に次の式を入れます
D =COUNTIF(A$2:A$17,C5)　　（範囲はA列のデーターに合わせる）
E =RANK(D5,D$5:D$10)　　（範囲はA列のデーターに合わせる）
以下、下にコピー

お礼

お礼が遅くなり申しわけありません。
詳しい説明ありがとうございました。
思いもつかなかった式なので少しずつ噛み砕いて理解＆構成をしていこうと思います。