[[20180501223718]]　『結果のシートのデータを元にして順位のシートに順』（H）　ページの最後に飛ぶ

『結果のシートのデータを元にして順位のシートに順位通りに出したいのですが』（H）

こんばんははじめまして
結果のシートのデータを元にして　
順位のシートに順位通りに出したいのですがどうすればよろしいでしょうか
あと結果のシートのA列には１部～３部の数字があると思いますが
その部内での順位もだしたいです
よろしくお願い致しますファイルを参考までに載せておきます
https://drive.google.com/open?id=1Nlv-K3Y97pN6ylba4VL_8xxk-eFDhYY7

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ＞ファイルを参考までに載せておきます

 参考と云うレベルなんですかねぇ・・
 それを見なかったら質問として成立しないですけど？

 参考ファイルは見に行く気はないですが、
 他所の板で聞いている「ひろさん」と同じ質問なんですか？

 Yesなら、これで（あっちは、閉じた方がいいですよ。マルチポスト云々という話に発展しますので）
 　　　　　　↓
 (1) F2セル =INDEX(A:A,MOD(SMALL(INDEX($C$2:$C$15*1000+ROW($C$2:$C$15),0),ROW(A1)),1000))
 (2) G2セル =SMALL(C$2:C$15,ROW(A1))
 (3) H2セル =INDEX(B:B,MOD(SMALL(INDEX($C$2:$C$15*1000+ROW($C$2:$C$15),0),ROW(A1)),1000))
 (4) I2セル =LARGE(D$2:D$15,ROW(A1))
 (5) J2セル =COUNTIFS(A$2:A$15,F2,C$2:C$15,"<"&G2)+1

 <結果図>
  行  _A_  __B__  __C__  __D__  _E_  _F_  __G__  __H__  __I__  ____J____
   1  部   名前   順位   点数        部   順位   名前   点数   部内順位 
   2    3  A         6   1210          2     1   B      2,510         1 
   3    2  B         1   2510          2     2   M      2,050         2 
   4    1  C        12    130          1     3   K      2,000         1 
   5    2  D        10    780          2     4   J      1,920         3 
   6    2  E        12    130          1     5   H      1,640         2 
   7    3  F         7   1140          3     6   A      1,210         1 
   8    1  G        11    630          3     7   F      1,140         2 
   9    1  H         5   1640          3     8   I      1,070         3 
  10    3  I         8   1070          1     9   L        870         3 
  11    2  J         4   1920          2    10   D        780         4 
  12    1  K         3   2000          1    11   G        630         4 
  13    1  L         9    870          1    12   C        130         5 
  14    3  N        14      0          2    12   E        130         5 
  15    2  M         2   2050          3    14   N          0         4

（半平太） 2018/05/01(火) 23:21

 すみませんが回答ではありません。セキュリティの関係などで見られない人のために
 表を載せておきます。

 	A	B	C	D	E	F	G	H	I	J
 1	部	順位	名前	点数				１部		
 2	2	1	B	2510				1	K	2000
 3	2	2	M	2050				2	H	1640
 4	1	3	K	2000				3	G	630
 5	2	4	J	1920				4	C	130
 6	1	5	H	1640						
 7	3	6	A	1210						
 8	3	7	F	1140						
 9	3	8	I	1070						
 10	1	9	L	870						
 11	2	10	D	780						
 12	1	11	G	630						
 13	1	12	C	130	同点					
 14	2	12	E	130	同点					
 15	3	14	N	0						
（bi） 2018/05/02(水) 08:07

Sub main()

    Dim c As Range, i As Long
    Columns("A:D").Copy Range("H1")
    With ActiveSheet.Sort
    .SortFields.Clear
        .SortFields.Add Key:=Range("H2:H" & Rows.Count), Order:=xlAscending
        .SortFields.Add Key:=Range("I2:I" & Rows.Count), Order:=xlAscending
        .SetRange Range("H1:K" & Rows.Count)
        .Header = xlYes
        .Apply
    End With
    For Each c In Range("H2:H" & Rows.Count).SpecialCells(2)
        c.Offset(, 1).Value = i + 1
        i = i + 1
        If c.Value <> c.Offset(1).Value Then i = 0
        If c.Offset(, 1).Value <> 1 Then c.Value = ""
    Next c
End Sub
（mm） 2018/05/02(水) 10:29

コメント返信：

[ 一覧(最新更新順) ]

[[20180501223718]] 『結果のシートのデータを元にして順位のシートに順』（H） ページの最後に飛ぶ

[[20180501223718]]　『結果のシートのデータを元にして順位のシートに順』（H）　ページの最後に飛ぶ