571 :
>>552修正:アンケート自動集計ver.3(6/6):
住所別投稿表の1を表数値ソート。住所別投稿表を配列逆順。「E26」をエクセル選択
1のエクセルシート注目。「E27」へ住所別投稿表をエクセル一括設定
一覧は「」
ハンドル別投稿数のハッシュキー列挙を反復
一覧にハンドル別投稿数@「{対象}」を配列追加
最大投稿数=一覧の配列最大値。投稿別人数は「」。投稿ランキングは「」
最大投稿数 回
投稿数=最大投稿数−(回数−1)
人数=0
一覧を反復
もし、対象=投稿数ならば、人数=人数+1
投稿別人数=投稿別人数&「{投稿数}通,{人数}人{~}」
もし、投稿数>3ならば、
ハンドル別投稿数のハッシュキー列挙を反復
もし、ハンドル別投稿数@「{対象}」=投稿数ならば、
投稿ランキング=投稿ランキング&「{投稿数}通,{対象},,」&(結果@「{対象}」)&「{~}」
投稿別人数を配列逆順。1のエクセルシート注目
「H26」をエクセル選択。1のエクセルシート注目。「H27」へ投稿別人数をエクセル一括設定
「K26」をエクセル選択。1のエクセルシート注目。「K27」へ投稿ランキングをエクセル一括設定
「B1」をエクセル選択
おわり